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5. COMMENTS 



5.1 TEST NO. 1 (PUNCH TESTI, 

5.2 TFST NO. 2 (READER TESTI. 

5.3 TEST NO. 3 IPUNCH/REAO/COMPARE TESTI 
5. A TEST NO. 4 (REPROOUCE-TAPES TESTI 

5.5 TEST NO. 5 I PUNCH BITSNS TEST 1 

5.6 MONITOR ROUTINES REQUESTED BV PROGRAM 

APPENDIX 0* 



6.1 
6.2 



EOIT . 
SAMPLE TAP* 



3.2 PROGRAM OPERATION 

STANDARD MONITOR OPERATING PROCEDURES APPLY. 

THESE PROCEDURES ARE SUMMARIZED HERE. Stt DM USE PROCEDURE FOR 

DETAILS. 

1. CLEAR STORAGE 

2. LOAD DIAGNOSTIC MONITOR 

3. SELECT MOOE OF EXECUTION 

4. SELECT MONITOR CONTROL OPTIONS, IF DESIRED 

5. SELECT PROGRAM OPTIONS, IF NEEDED, 

TABLE PROGRAM CONTROL FUNCTION 
TABLE 1 ROUTINE SELECT FUNCTION 
TABLE 3 DATA ENTRY FUNCTION 

6. INSTRUCT MONITOR TO EX! CUTE 



TABLE 



CONTROL FUNCTION 



PURPOSE 

THE FUNCTION TEST IS DESIGNED. (II TO TEST FOR PROPER OPERATION OF THE 

PAPCR-TAPE STATUS INDICATORS AND (21 TO TEST FOR ACCURATE DATA HANDLING 

BY THE PAPER-TAPE READER AND PAPER-TAPE PUNCH tfHEN OVERLAPPED WITH 

OTHER ELEMENTS OF THE 1800 SYSTEM. THIS TAPE MAY ALSO BE USEO TO REPRODUCE: 

TAPES. 

PREREQUISITES 



2.1 



2.2 



PROGRAM PREREQUISITES 

THIS PROGRAM MUST RUN UNOeR CONTROL OF THE DIAGNOSTIC MONITOR. 
THE DIAGNOSTIC MONITOR PROGRAM USES 2,047 STORAGE WORDS, AND THIS 
PROGRAM USES T41 STORAGE WORDS. 



EQUIPMENT PREREQUISITES 

A PAPER-TAPE READER AND/OR PAPER-TAPE PUNCH. 

USE PROCEOURE 

3.1 PROGRAM LOADING 

STANDARD LOADING PROCEDURE AS DESCRIBED IN THE DIAGNOSTIC MONITOR USE 
PROCEDURE. 
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• 1. SET FUNCTION 00 IN SENSE/PROGRAM SWITCHES AND 1. 
SENSE/PROGRAM • 2. SET PIO IN SF.HSE/PHOGRAM SWITCHES 2 THROUGH T. 

01234567* 3. SET DESIRE!) CMNWOL OPTIONS IN DATA ENTRY SWITCHES 0-15. 

• 4. PRESS CONSOLE INTERRUPT. 
00000100* 

DATA ENTRY SWITCHES • DESCRIPTION • 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 • • 

« 

1 REALIGN PAPER TAPE IN RFADER • 

1 MANUAL TAPE ALIGNMENT IN READER • 

• 

TABLE 1 ROUTINE SELECT FUNCTION 

• 1. SET FUNCTION 01 IN SENSE/PROG* AM SWITCHES ANO 1. 
StNSE/PROGRAM • 2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 

12 3 4 5 6 7* 3. SET DESIRED ROUTINE NHJMBEK IN TATA INTRV SWITCHES 0-15. 

• 4. PRESS CONSOLE INTERRUPT. 
01000100* 



• DATA ENTRY SWITCHES 

• 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 



• DESCRIPTION 









1 


ROUTINE 


1 


PUNCH 





I 





ROUT INT 


?. 


RCAO 





1 


1 


RDUTINL 


i. 


k£ At- PUNCH-COMPARE 


1 


c 





KOUTINr 


4. 


RtPHOOUCE PAPER TAPE 


1 


c 


t 


ROUT INF 


S. 


PUNCH DATA I TAfcLE 3 1 



CXIT FROM RTN 4 OR 5 AND RFSTART 
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TABLE 3 



OATA ENTRY FUNCTION 



••••••«•••••»•••••• 



1. SET FUNCTION 11 IN SENSE/PROGRAM SWITCHES AND 1. 
~. SFNSE/PROGRAN • 2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH J. 

• 012 34567* 3. SET DESIRED PUNCH DATA IN DATA fcNTKY SWITCHES 0-15. 
. • 4. PRESS CONSOLE INTERRUPT. 

• I 1 1 • NOTE — EACH HALF WORD INCLUDES TAPE CHANNELS 8-1 
. • RESPECTIVELY. 

. DATA ENTRY SWITCHES • DESCRIPTION 

• 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 • 



XXXXXXXXX 



ONE OATA WORD 10 BE PUNCHED 
X ALTERNATE OATA WORD TO BE PUNCHED 



3.3 PROGRAM HALTS 

THIS PR06KAM HAS NO HALTS. 

3.4 PROGRAH TERMINATION 

A. STANOARO MONITOR TERMINATION 

b. PROGRAM CONTROL FUNCTION 

TEST 4 AND 5 ARE NOT NORMALLY RON IN SEQUENCE WITH TESTS AND, 
THERtFORF, WILL NOT TERMINATE. THF PROGRAM. WILL NORMALLY 
TERMINATE AFTER ROUTINE 3 HAS BEEN EXECUTED. 

A. PRINTOUTS 

4.1 STATUS MESSAGES 

PID MID RID RAD MODIFIER'S 

0400 A001 OOOX AFED 

THr PAPER TAPF TFST RECORO IS ASSUMED TO BE PROPERLY ALIGNED IN THE 
READER AT THIS TIME. THIS MESSAGE IS RECE1VL0 PNLY AFTER OPERATOR 
SPECIFICATION OF REALIGN TAPE OPTION. 

A. 2 ERROR PRINTOUTS 

PIC MID RID RAD WAS S/B 

C400 1001 OOOX XXXX XXXX 0X00 

OSW ERRO* AFTER R FADER-CONTROL COMMANO 

OfOO E002 OCOX XXXX XXXX 0X00 

DSW ERROK AFTER PUNCH COMMAND 

0400 EC03 OOOX XXXX XXXX OFOO 

DSW ERROR AFTER READER-CONTROL AND PUNCH COMMANDS 

0400 E004 OOOX XXXX XXXX CXOO 

DSW ERROR WHEN CHECKING FOR READER-READY 
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0400 E005 OOOX XXXX XXXX 0X00 

OSW ERROR WHEN CHECKING FOR PUNCH-READY 

04C0 E006 OOOX XXXX XXXX 4000 

READER SERVICE-REQUEST OSW ERROR 

0400 E007 OOOX XXXX XXXX 1000 

PUNCH SERVICE-REQUEST DSW ERROR 

0400 EOOR OOOX XXXX XXXX 5000 

DSW ERROR WHEN PUNCH AND READER INTERRUPTS RFC*1VFD AT SAME TIME 

0400 E009 OOOX XXXX XXXX XOOO 

OSW ERROR WHEN FIRST INTERRUPT WAS RECEIVED. ftT THIS TIME BOTH THE 
READER AND THE PUNCH ARE BEING RUN UNDER RACE CPWDITIONS. THE OSW 
FOR THE OEVICE THAT INTERRUPTS FIRST IS ANALI2fcD FIRST. ANY ERROR 
WILL BE PRINTED AS AN E009. SIMILARLY FOR THE SECOND INTCRRUPT, ANY 
ERROR WILL BE PRINTED AS E010. 

0400 E010 OOOX XXXX XXXX XOOO 

OSW ERROR WHEN FIRST INTERRUPT WAS RECEIVED. *T THIS TIME BOTH THE 
READER AND THE PUNCH ARE BEING RUN UNDER RACE CONDITIONS. THE DSW 
FOR THE DEVICE THAT INTERRUPTS FIRST IS ANAL12CO FIRST. ANY ERROR 
WILL BE PRINTED AS AN E009. SIMILARLY FOR THE SECOND INTERRUPT. ANY 
ERROR WILL BE PRINTED AS E010. 
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0400 L011 OOOX XXXX XXXX 0X00 



NO READER INTERRUPT RECEIVED. ( LAST t»SW SENSED IMMEDIATELY AFTER 
READER-CONTROL COMMAND 1 



0400 E012 OOOX XXXX XXXX 0X00 



NO PUNCH INTERRUPT RECEIVED ( LAST DSW SENSEO IMMEDIATELY AFTER. 
READER-CONTROL COMMANO I 

0400 E013 OOOX XXXX XXXX OFOO 

NO PUNCH OR READER INTERRUPT ILAST DSW SENSED I**fDIATELV AFTfcR 
READER-CONTROL AND PUNC C0MMAN0S1 

0400 E014 OOOX XXXX XXOO XXOO BOBO 

READ/COMPARE ERROR IROR BUFFFR CHANGED! „-,„.„.„«■.- 

OATA (XXOOI PRINTED AS ENTTRED IN CORE - CHASSIS 8-1 RESPECTIVELY 

0400 E015 OOOX XXXX XXOO XXOO BOBO 

READ/COMPARE ERROR ( RDR BUFFER UNCHANGED! r „..„ ri „ 

DATA IXX001 PRINTED AS ENTEREO IN CORE - CHANNELS b-1 RFSPFCTIVELV 



OATE 2BFEB66 01MAV66 
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I I II II 
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0400 F016 0C04 XXXX XXXX 0000 XXOO 

READER-DSW READ FRROR WHPN REPRODUCING TAPKS. IF TAPE STOPPED, THE 
FIRST CHARACTER BEYONO THE REAP STATION WAS i'ERHAPS IMPROPERLY Rt"AD. 
THIS CHARACTER HAS NOT AS YET BEEN PUNCHCD. BACK TH! r READER UP ONE 
CHARACTER AND PRESS START ON THE P-C. 
DATA (XXOO) PRINTED AS ENTERED IN CORE - CHANNtLS 8-0 RESPECTIVELY. 



0400 E01T OOOX XXXX XXXX eX40 



WRITE STORAGE PROTECT SWITCH IS ON. 

A READER STORAGE PROTECT ERROR SHOULD HAVE BEEN FORCED. 



CHECK IF 



FIRST SECOND 
READ READ 
0400 E01B OOOX XXXX XXOO XXOO 

CONSECUTIVE READ ERROR OATA (XXOO) SHOULD AGREE. 

0400 E019 OOOX XXXX XXOO YYOO 

THE PROGRAM COULD NOT ALIGN THE TAPE IN THE READER -IN THE LAST 
500 CHARACTERS. 

THE PROBLEM) IS, 

A. OPEN OATA CHANNEL(S). XXOO SHOULD EE FFOC, WHICH IS THE CHARACTER 
THAT WDULD 6F PLACED IN CORF BY READING AN ALL-BITS CHARACTER. 
ANY MISSING BIT(S) INDICATE THE OPEN DATA CHANNEL(S). 

B. SHORTEO OATA CHANNLL(S). YYOO SHOULD BE 0000, WHICH IS THE 
CHARACTER THAT WOULD BF PLACED IN CORE BY READING A NO-BITS 
CHARACTER. ANY bIT(S) PRESENT INDICATE THE SHORTED CHANNEL(S). 

C. IF BOTH XXOO AND YYOO ARE CORRECT, 

1. THE TAPE IS NOT IN THE READER CORRECTLY, OR 

2. THE READER CANNOT READ THE FIRST 8 CHARACTERS PROPERLY. 
IF SO, TRY ONE OF THESE, 

A. TRY RUNNING THE REPRODUCE TAPE ROUTINE (ROUTINE 4). 
6. TRY MANUALLY ALIGNING THE. TAPE IK THE READER. THEN 

SPECIFY THE MANUAL TAPE ALIGNMENT OPTION (TABLE 0) 

ANO RESTART THE PROGRAM. 

5. COMMENTS 

THE FUNCTION TEST CONSISTS OF THREE NORMAL ROUTINES AND TWO OPTIONAL 
ROUTINES. NORMALLY, ROUTINES ONE THROUGH THREE ARE RUN IN ORDER. ALL 
ROUTINES ARE DESCRIBED IN PARAGRAPHS 5.1 THROUGH 5.5. 

THE FUNCTION TEST, 



A. 



checks osw for proper bits before issuing write (punch) or 
control (reader) commands. 



DATE 2BFFB66 01MAV66 
CC NO. 415120 415120A 



PROG ID 
PAGE 



08 04- • 

J 



B. CHECKS DSW FOR CORRECTNESS AFTER XIO INSTRUCTION. 

C. CHECKS FOR INTERRUPT FROM DEVICE WITHIN SPECIFIED TIME LIMIT. 

D. CHECKS OSW AFTER INTERRUPT IS RECEIVED. 

5.1 ROUTINE NO. 1 (PUNCH TEST) 

TEST NO. 1 CHECKS THE OPERATION OF THF PAPER-TAPE PUNCH WHILE 
PUNCHING TWO TEST RECORDS. THt RECORD INCLUDES A RIPPLE PATTERN 
AND AN ALL-CHARACTER PATTERN. (REFER FIGURE II. 

5.2 ROUTINE NO. 2 (REAOER TEST) 

THIS TEST CHECKS THE OPERATION OF THE PAPER TAPE READER WHILE READING 

ONE RECORD PROOUCEO BY THE PUNCH TEST. THE TAPF IS NORMALLY 

AUTOMATICALLY ALIGNED IN THF- READER BY REACHNG EIGHT CONSECUTIVE CHARACTERS 

CORRECTLY. A MESSAGE IS PRINTED WHEN THE TAPE IS PROPERLY ALIGNED. 

IF DESIRED, THE OPERATOR CAN MANUALLY PLACE THE TAPE IN THE READER ON 

THE FIRST CHARACTER OF THE RIPPLE PATTERN AND SPECIFY THE MANUAL 

ALIGNMENT OPTION AS IN TABLE 0. THE TAPE MAY ALSO BE R.EALIGNEO IN 

THE READER AT ANY TIME. 

EACH CHARACTER READ IS COMPARED WITH A WORD IN STORAGE. AN UNEQUAL 
COMPARE WILL CAUSE AN ERROR TYPEOUT. SEE 4.7. THERE WILL BE 
BE ONE ERROR TYPEOUT FOR EACH REAO/COMPARE ERROR. 

THESE ERROR PRINTOUTS MAY INDICATE THE TAPE IS NOT IN THE PPdPE? POSITION IN 
THE REAOER. THF TAPF MAY BE MANUALLY ADJUSTED IN THF READER Oft THE. OPERATOR 
MAY SELECT REALIGN TAPE. (TABLE 0) 

5.3 ROUTINE NO. 3 ( PUNCH/RE AD/COMPARc TEST) 

THIS TEST CHECKS THE FUNCTION AND RELIABILITY OF THE PAPER TAPE 
READER AVD PUNCH WHEN OPERATED TOGETHER. BOTH DEVICES ARE OPERATED 
AT THE SAME SPEED. THE DATA READ IS COMPARED KITH THE DATA PUNCHED 
IN A NEW TAPE. THIS TEST ALSO HAS THE TAPE ALIGNMENT FEATURE OF TEST 
NO. 2. THE TEST IS COMPLETE AFTER ONE RECORD HAS t*£EN PROCESSED. 

5.4 ROUTINE NO. 4 IREPRODUCE-TAPES TEST) 

THE OPERATOR HAS THE OPTION OF REPRODUCING ANY TAPE. T ME OPERATOR 
MUST SPECIFY HALT ON ERROR OPTION IN MONITOR CONTROL TAHLE C. AGAIN, 
ALL DEVICE STATUS CHECKING DONE IN TESTS MOS. 1 AWD 2 IS INCLUCEO 
IN THIS TEST. ALSO, A DSW ERROR WHEN READING THE TAPE WILL CAUSE A 
DELAY OF THE PROGRAM UNTIL THE OPERATOR CAN INTERVEfcE TO VERIFY THAT 
DELAY OF THE PROGRAM UNTIL THE OPERATOR CAN INTERVENE.. WHEN AN ERROR 
OTHER THAN E016 IS PRINTED PRESS START ANO THEN VERIFY THAT THE 
PROPER PUNCHES ARE OBTAINED. SEE SPECIFIC ERROR MESSAGE FOR AIO 
IN INSTRUCTIONS. 

5.5 ROUTINE NO. 5 ( PUNCH FCN 3 SWITCH SETTINGS I 

THIS ROUTINE PUNCHES THE DATA ENTERED VIA FUNCTION LEVEL 3, ALTER- 
NATELY THE FIRST HALF THEN THE SECONO HALF OF THE WORD. ITABLC 3) 
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6.1 



EtTtM'«W I. TH,S HOOKAH » E CK ™ rOUONINC »« » .^ ^NoTe _£ ci.O COLONS T*T ARE S*0 E SHO UL , E LEFT MM.. 

TO PNEFAAS OR HOOIFY EDIT CARDS. FIU. IK THE N E C E SSAAY DATA IN T « SO CIATEO WITH THIS D E V!C E (USE HEX NOTATION. 00-. 7 . 



EDIT CARDS 
IS NECESSARY 



DDEF STANDS FOR DEVICE DEFINITION EDIT FIELD. IT INCLUDES: 



THE LAST EDIT CARD IS THE "END EDIT CARD*. THE INFORMATION IN THIS CARD INCLUDES: 



1. 

2. 
3- 



AN E"IN COLUMN 1. 

THE PID FOR THIS PROGRAM (COL. 2-3). 

A TERMINATOR WORD OF *FFFF" (COL. 7-10) 




CAAO CONTA.NS ONE E NTAY ONLY. THIS E NTRY ,. THE E V,CE OEF.NITION EOIT F 1EL (OOEF, FOR THE FAPEA TARE REAOER/F.NCN TO _ TESTED. 
CARD END IS THE 'END EDIT CARD". PUNCH EXACTLY AS IS SHOWN. 



DATE 28 FEB 66 
EC 1*15120 



01 MAY 66 

M5120A 
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l^rw. •• 


•••• 


acaaaa 


•••••••• 


•••••••••a 


••••*»»••••» 


a 




•• •• 


••• •»• 


•••• •••• 


• »ii •••»• 


•••••• ••«••• 


•a 


•• •• 


••• ••• 


•••• •••• 


••••» aaaaa 


•••••• •»•••% 


••a 


•• •• 


-aaa ••• 


•••• •••• 


••••• aaaaa 


•••«•• ***•»• 


*••• 


• • 


•• •• 


••• ••• 


•••• •»•• 


»»»»» ••••• 


»•*••• •»»••• 


aaaaa 






•••••••••••••• 


• ••••••••••••••4 


••••••••••••*•••• 






• • 


•• •• 


••• ••• 


•••• •••• 


»»»•• ••••• 


»»•»*• »«•••• 


•»•»•» 


' • • 


•• •• 


••• ••• 


•••• •••• 


••»•• ••••• 


»»•••• aaaaa* 


•**a*Oa 


>• • 


•• •• 


••• ••• 


•••• •••• 


aaaaa »»»m» 


••»••• •••••• 


aaaaaaa 










EEGINNINC 




aaaa ••*••*• 
••• aaaaaaa 
*a •••••!• 

••••••••••••• 

a •»»»••• 

»•••*!» •••••••• 



»»•»»»•» •••••••• 

•••••••• »»»a»»»m 

•••••■••••••••••••••••a 



•••••••• 



••••••••••••••••••••••••••a** 

»»»» •••• aaaa aaaa 



»•»»»»»•»*»»»*»•• 



• a 



»» 
• a 



aa •• 

a 



aa 
• a a 



aa 
a 



aaaaaaaa 

«■••••••••••' 

aaaa aaaa 

•• •• •* •• •• 



•••••••••••• 

aaaa a 

•a aa •• i 



..»" ••••••••••••••••••••••••• •• 

JII 9»»»»»»»*»»»»»»» •••••••••••••••• 

Hi »»»»•»»• aaaaaaaa •••••••• »•»••••• 

%t% *»•• •••• aaaa aaaa •••. •••• aaaa •••• 

a! aa •• •• •• •• *• •• • • •• •• •• •• •• •• •• •* 

a 5 • 5 »»»»•*••••••»•• »•••••••••»*•»• 



»••• •*•• »••• •»• 

»» ** •• *» • • •• •• « 



•••••••((••••••< 

aaaaaaaa Kiittti 






a aaaa »*»» *••• 

a aa •• *• •* »» *• 



• ••>' ***• 

• • *» •• •• 



» a a a 



aaaa »»•» 

»• •• •» •» 
taaaaaaa 



»••• •••• aaas aaaa 

»* •• •• »m m» »• aa •• 



END OF TAPE 



SAMPLE 1055 OUTPUT 



J 



n i 



-. ! 
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012C 
0120 
012E 
C12F 
0130 
0131 
0132 
0133 



0000 



7FF 





0400 


0100 





0000 


08C1 


c 


0000 


0802 





cooo 


0803 





000 c 


08C4 


c 


cooo 


0805 


c 


cooo 


0806 


1 


086C 


0807 


1 


086C 


0808 


1 


0A09 


0809 


c 


cooc 


080A 





cooo 


0808 





FFFF 


080C 


1 


OAFC 


0800 


c 


OCOO 


080E 





CCOO 


080F 


c 


OCOO 


0810 


c 


0000 


0811 


c 


0000 


0812 





cooc 


0813 





cooo 


0614 





OCOO 


0815 





oooc 


0816 





oooc 


0817 


c 


cooo 


0818 





cooo 


0819 


c 


COOO 


081A 


c 


COOO 


081B 





COOO 


081C 





OCOO 


0810 


c 


OCOO 



081E C COOO 



081F 
0820 



OCOO 
6A37 



0821 01 CC00C972 

0823 C037 

0824 01 6780C866 



EOU 
EQU 



• 

BEGIN EOU 

START ECU 

ENC 

IOC 

ERROR ECU 

RE30V ECU 

afLCV ECU 

HIT EOU 

• 

CRG 

* 

* 
PIO 

rue 

RAC 
SMC 
SW1 
SW2 
SM3 



1800 DIAGNOSTIC M0NI1CR 
TRANSFER VtCTCR 



300 

BEG1N+1 
START* 1 
£N0*1 
LOG + l 
ERROR* 1 
RECDV»1 
RELDV*1 



•♦2047 

DIAGNOSTIC MONITOR • 

CCNTROLLEC * 

leOO PAPER TAPE TEST * 

♦»***»**»»»»»»***»*»*«*»**»***»**» 

PROGRAM STATUS TABLE 



EPA 



DC 
DC 
EC 
CC 
DC 
DC 

or. 

CC 
DC 
DC 



OATc 
EC NO. 



28FFB66 
415120 



MLSCF CC 
DC 

TERM CC 
CC 

DC 
DC 

re 

CC 
CC 

CDEF LC 
CC 
DC 
OC 
DC 
CC 
CC 
DC 
DC 
CC 
CC 
CC 

• 

* 

CVA CC 

POINT CC 
STX 
XIO 
STO 
LCX 



C1MAY66 
415120A 



/0400 

/OCCO 

/OCOO 

/CCOO 

/OCOO 

/OCOO 

/COOC 

PTIL2 

PTIL2 

TEND 

/CCOO 

/OCOO 

/FFFF 

PEKD 



/OCOO 



PROGRAM 1.0. NO 
TEST NUMBER 
TEST ACCRESS 
FCN - CCNTROL 
FCN I - INITIAL RTN 
FCN 2 - DEVICE ONLY 
PLNCH SWS hCRO 
INITIALIZATION AOOR 
LOCP PROGRAM! ADDR 
ENO PROGRAM AOOR 
MAIN LINE SEC CNTL 
COUNTER ENTRY 
TERMINATOR 
LAST PRCGRAM AODR 



DEVICE CEF EDIT FLD 



INTERRUPT ROUTINE 



/OCCO 

/OCOC 

2 XI. *1 

L XIOSO 

DShIT 
13 INTER 



AREA COCE FCR OEVICE IE 



SENSE OSW 



PART NO. 
PACE 



80400000 
80400010 
8C400020 
80400020 
80400040 
80400050 
80400060 
80400070 
80400080 
80400090 
804C0100 
80400110 
80400120 
80400130 
80400140 
80400150 
80400160 
80400170 
80400180 
80400190 
804O02C0 
80400210 
80400220 
80400230 
80400240 
80400250 
80400260 
60400270 
80400280 
80400290 
80400300 
80400310 
80400320 
8C400330 
80400340 
80400350 
80400360 
80400370 
60400380 
80400390 
8C4C04C0 
80400410 
60400420 
80400430 
80400440 
80400450 
80400460 
80400470 
80400480 
80400490 
804005CO 
80400510 
80400520 
80400530 
80400540 
80400550 
60400560 
80400570 
80400580 
80400590 
804006C0 
804006 10 
804006 20 
604006 30 
60400640 
60400650 
80400660 
60400670 



PROG ID 
PAGE 



* < o< < < c c t t ( < < < ( ( i i ( < t 



2196358 
1 



o 

o 

o 
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0804-0 
1 



0826 01 


4F8O085D 




BSC 


13 


HAKOL-: 




80400680 




0828 01 


F7C0C863 


SI NT 


FOR 


L3 


INTEX- 3 




80400690 




082A 01 


E780C866 




AND 


13 


INTEX 




80400700 




082C 01 


4C18C84E 




BSC 


L 


PINT3,*- 


BR IF DSM OK 


80400710 




082E 01 


6600C984 




LOX 


L2 


NIPES 


SVC REO ERROR 


80400720 




0830 


701F 


• 


MDX 




PINT1 




80400730 
80400740 




0831 


F031 


DINT 


ECR 




INTEO 


CK DSW FOR 2 SVC REC 


80400750 




0832 00 


4C0CC000 




BSC 


L 


/OCOO 


BR IF 2ND OCUBLE INT 


80400760 




0834 C 


002C 


CINT1 


STO 




OSUDI 




80400770 




0835 


E020 




AND 




INTEO 




80400780 




0836 


C02B 




STO 




CSI.ID 




60400790 




0837 CI 


4C200847 




BSC 


L 


DINT4.Z 


EXIT IF ONLY ONE REC 


80 400 8 CO 




0839 


C027 




LD 




DSHOI 




804C0810 




083A 01 


4C18C84E 




BSC 


L 


PINT3,*- 


BR IF DSW OK 


80400820 




083C 01 


6600096E 




LOX 


L2 


0INE1 


1 


804008*0 




083E 


7011 


4 


MOX 




PINT1 




80400840 
80400850 




G83F 


E822 


CINT2 


OR 




CSMID 




80400860 




0840 


D01A 




STO 




CSMIT 




80400870 




0841 


F021 


• 


ECR 




INTEO 




8C4C0680 
804C0690 




0842 01 


4C16C84E 




BSC 


1. 


PINT3t*- 


BR IF DSM OK 


8040C9C0 




0844 01 


660G0993 




LCX 


L2 


DINE2 




8C 4009 10 




0846 


7009 


• 
• 


MCX 




PINT1 




60400920 
8G400930 
804C0940 




0847 C 


1340 


CINT4 


SLCA 


3 


C 




80400950 




0840 


1001 




SLA 




1 




80400960 




0849 


0012 




STC 




BUMRC 


ZERO IF NO IEC BIT 


80400970 




084A 01 


6700C83F 




LCX 


L3 


0INT2 


SET SECONO INT SW 


80400980 




084C C 


6BE6 




STX 


3 


01 NT 1-1 




80400990 




0840 


7009 


• 


MOX 




XIT 




804010C0 
80401010 




084E 01 


660009A2 


PINT3 


LOX 


L2 


0INE6 




80401020 




0850 01 


6700C9AA 


PlNTl 


LOX 


L3 


BSYES 


CHECK BLSY CSU NEXT 


8C401030 




0852 


6BB6 




STX 


a 


MLSCF 




80401040 




0853 01 


6E0009BF 


• 


STX 


L2 


XBSVX+1 


PR01 


80401050 
80401060 




0855 


6200 




LOX 


2 







804010 70 




0656 


6A0F 


• 


STX 


2 


INTEX 




80401080 
80401090 




085? OC 


660CC000 


HIT 


LCX 


L2 


/OCOC 




8O4OUC0 




0859 01 


4C80C81F 




BSC 


I 


POINT 




80401110 








»**♦♦*********♦*»***»***»»»»****«**»♦**»»»»#« 


80401120 








« 










80401130 




085B C 


COOO 


CSMIT 


DC 




/CCCC 


LAST INTERRUPT CSM 


60401140 




085C 


OOOC 


euMRc 


OC 




/OCOC 




60401150 




085U 1 


0657 




OC 




XIT 




80401160 




085E 1 


0828 


FANOl 


DC 




SINT 


INTERRUPT BR ADFS 


80401170 




085F 1 


0828 




DC 




SINT 




80401180 




066C 1 


C831 




CC 




DINT 




80401190 




0661 


0000 


CSMOI 


OC 




/OCOO 




804012CO 




0662 


COOC 


CSUIC 

• 


DC 




/OCOO 


IDENTIFY INT YET EXP 


804C1210 
8U4C1220 




0863 


5000 


INTEC 


DC 




/5CCC 


ROP-PCH SVC REO EXP 


80401230 




0864 


4000 




CC 




/4C00 


RDR SVC REQ 


80401240 




0865 C 


1000 




OC 




/1C00 


PCH SVC REQ 


80401250 




0866 


0000 


INTEX 

• 
• 
• 


DC 




/CCCC 


INTERRUPT EXPECTED 

• 1 « READER 

• 2 •» PUNCH 

• 3 « BOTH 


80401260 
80 4C 1270 
6C4C1260 
6C4C1290 




0867 1 


0978 




OC 




RMASK 


READER 


804013C0 




0868 1 


0979 




DC 




XPASK 


PUNCH 


80401310 








«♦«»»**»»*»»»»»***•»*»»♦»*»»»♦»»**»**»»*»♦**» 


60401320 








• 










e0401330 








»»»***♦»«»***♦»*»***»*♦*♦*»»*»**»*»*»**»«»»*» 


80401340 




0869 00 


4480012C 


PT&CN 


BSI 


I 


BEGIN 


CALL MONITOR • SC 


b0401350 




DATE 


28FEB66 


C1MAY66 








PRCG ID 


C604-0 


EC NO. 


41512C 


415120A 








PAGE 


1* 
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086B 1 OTFF 



086C 


000 c 


• 
• 
PTIL2 


DC 




/ococ 


0860 01 


C4000B02 




to 


L 


SWO 


066F 


1007 




SLA 




7 


0870 


4810 




esc 




— 


0871 


1009 




SLA 




9 


0872 01 


C400CA26 




STO 


L 


NIST 



0874 01 66000879 

0876 6A92 

0877 01 4C80f86C 



0879 C098 
C87A 01 4C28C885 
087C 62F8 
0870 01 6K000A25 

087F CO 4480C131 

0881 1 CAD3 

0882 1 0812 
0833 1 C81E 
0884 1 080B 



0885 6107 

0886 01 C500C970 
G888 E895 
C889 01 C50JC970 
088B 71FE 
088C 70F9 

088D 1810 
088E 01 C40C0830 

0890 CI 660007FF 

0892 C2C4 

0893 C 0022 

0894 C 1C00 

0895 1800 



0896 

0897 C 



4820 
C2C1 



0896 01 65B0C800 
089A C 4818 
089B 7101 

089C 01 6000C600 
C89E 01 C500C3AE 
08A0 0202 

08A1 6300 
08A2 01 6F00CA26 
08A4 01 6F00CA96 
08A6 6301 
C8A7 01 6FC0CA94 

08A9 OC 67000187 
08AB 01 6F00C8D6 

08A0 01 4D8CC8AE 



DC PIO ADDR OF PID NC * 

INITIALIZATION RCUTINE 

ENTRY POINT SE 

CK IF AUTO ALIGNMENT 



SKIP IF NO REALIGN 

SET ALIGN PATTERN SW 

SET MAIN LIKE SEO 
* CONTROL FIELD 



LOX L2 BOrS 
STX 2 MLSCF 
BSC I PTILZ 



SX 



* 

BOSS LO DDEF 

BSC L BUILD-l.+Z BR IF DEVICE MINE 

LDX 2 -8 

STX L2 COfCT 
»»»*«*»»»♦»*»*»*»***#*•***»♦********»******* 

B0SS2 BSI I RECDV REQUEST DEVICE 

CC NOPE DEVICE BUSY 

OC DDEF 

OC li.'A AREA CODE 

DC TERM 
**»♦»*#♦*«♦*»***•*»*•*****♦♦**♦*•**»»******* 

LDX 1 7 

eUILC LD LI XICXX 

OR OVA 

STO LI XICXX 

MOX 1 -2 

MDX BUILD 

SRA 16 

STO L RID 

KGR1 LDX L2 FID 

LD 2 SWl-PID 



SC 



INIT XIO AREA COOES 



STO 
SLA 
SRA 

BSC 
STC 

LDX 
BSC 
MDX 



ShCMP 

13 

13 



2 RIO-PI U 

II RID 

♦- 
1 1 



STX LI RID 

LD LI RTCON-1 

STO 2 RA0-P1D 

LDX 3 

STX L3 NISI 

STX L3 OULP+l 

IDX 3 1 

STX 13 OULP-1 

LOX 13 391 

STX L3 WRECK 

esc II RTCON-1 



ZERO ROUTINE NUMBER 
ASSURE PROPER ENTRY 

SET ROUTINE ID 

UPDATE THE RIO 
INCEX THE ROUTINE NC 
SET RTN NC AND ADDR 

RESTORE CHAR RTN 

SET RECORD LENGTH 
BR TO USER ROUTINE 
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80401360 

80401370 

80401380 

80401390 

804014C0 

80401410 

80401420 

80401430 

80401440 

8C4C1450 

80401460 

80401470 

80401460 

8C401490 

80401500 

8C 4015 10 

80401520 

80401530 

80401540 

8C 40 IS 50 

80401560 

80401570 

8C4C1580 

80401590 

804016C0 

80401610 

80401620 

80401630 

80401640 

80401650 

80401660 

80401670 

8C401680 

80401690 

804017C0 

80401710 

80401720 

80 401730 

80401740 

80401750 

8C401760 

804C1770 

80401780 

80401790 

80401800 

8C 4018 10 

80 4C 18 20 

80401830 

80 4C 1840 

80401850 

80401860 

80401870 

80401880 

80401890 

80401900 

80401910 

80401920 

80401930 

80401940 

80401950 

80401960 

80401970 

80401980 

80401990 

80402000 

80402010 

80402020 

8C 4020 30 



DATE 
EC NO. 



28FLB66 
415120 



ClMAVSt 
415120A 



PROG 10 
PACE 



0804-0 

2 
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08AF 


1 


08B7 


08B0 


1 


08C4 


08B1 


1 


08CC 


08B2 


1 


08D7 


08B3 


1 


08FB 


08B4 


1 


OAEE 


08B5 


1 


OAEE 



08B6 C COOO 



08B7 00 
08B9 
OBBA 00 
08BC 
08BD 01 
OBBF 
08C0 01 
08C2 
08C3 



6500030E 

691C 

65000187 

69FB 

44C00A8E 

405E 

4C000961 

4053 

70F9 



08C4 01 44000A8E 

08C6 4067 

08C7 7076 

08C8 01 440009CO 

08CA 404B 

08CB C 70F8 



08CC 01 
08CE 
U8CF 
08DO 01 
08D2 01 
08D4 C 
08U5 



44000A8E 

404F 

405E 

4C0CC94D 

440009CO 

4041 

70F6 



08D6 0000 



0807 CI C400C803 
08D9 CI 4C180890 
080B 1010 
080C 01 04O00A67 

08DE 01 C400C803 
08E0 F0D5 
08E1 01 4C200890 
08E3 403A 
08E4 4049 
08E5 01 4C00C94D 

08E7 01 CC0O0976 
08E9 01 C4000A66 
08EB 01 0400CA67 



• 

RTCON OC 
DC 
DC 
DC 
CC 
DC 
OC 

SUCMP DC 

* 

RTN11 LDX 
STX 
LOX 
STX 

RTN1 BSI 
BSI 
BSC 

RTN1A BSI 



DATE 
EC NO. 



RTN II PUNCH ROUTINE 

RTN2 REAOER RTN 

RTK3 PCH ♦ ROR CHECK 

RTN4I REPRODUCE TAPE 

RTN5I PCH BIT SW DATA 

PTEND END ROUTINE 

PTENO ENO ROUTINE 



RTN 



28FEB66 
415120 



/OCOO Shi COMPARE WORD 



MAINLINE TESTS 



TEST 1 - PUNCH TEST 



MOX 

* 

RTN2 est 
BSI 
MDX 

RTN2A BSI 
BSI 
MDX 

• 

• 

RTN3 BSI 
BSI 
BSI 
BSC 

RTN3A BSI 
BSI 
MOX 

• 

WRECK CC 

RTN41 LD 
BSC 
SLA 

STO 

LO 

EOR 

BSC 

BSI 

BSI 

BSC 



LI 782 
1 WRECK 

LI 391 
1 RTMH-1 

L MARK 
XKRDV 

L PUNH 
CR/*SH 
RTK1 



RTN4 



PTN4A XIO 
LD 
STO 



01NAV66 
415120A 



SET FOR 2 RECORDS 



BUILD NEXT CHARACTER SC 
PUNCH REACY SC 

PUNCH ONE CHARACTER 
CK IF END ROUTINE SC 



TEST 2 - READER TEST 



MARK 

RRDY 

FEEO 

RDIT 

CRASH 

RTN2 



BUILD NEXT CHARACTER SC 
SC 



READER READY 
CONTROL REAOER 
REAO AND COMPARE 
CK iF EKD ROUTINE 



SC 
SC 



TEST 3 - PCH-RD ♦ CCMPARE 



MARK 

XKRDY 

RRDY 

XFEED 

ROIT 

CRASH 

RTN3 

/OCOO 



BUILD NEXT CHARACTER SC 
PUNCH READY SC 

READER R.EADV SC 

PUNCH ♦ CONTROL RDR 
READ AND COMPARE SC 

OK IF END OF ROUTINE SC 



TEST 4 - REPRO PAPER TAPE 



L SW1 

L MGRli*- 

16 
L XCHAR 

L SHI 

SWCMP 
L MGR1.Z 

XK"»DY 

RRDY 
L XFEED 

L XICRR 
L CARED 
L XCHAR 



BR IF NC EXECUTE RTN 
PUNCH FEED HOLE 1*T 



BR IF END THIS RTN 
PUNCH READY SC 

READER READY SC 

PUNCH ♦ CONTROL RDP. 

READ ROR BUFFER 
PLACE CHAR READ IN 
* CUTPUT AREA 
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80402040 

8C4020 50 

80402060 

80402070 

804C2080 

80402090 

8C4021C0 

804C2110 

80402120 

80402130 

80402140 

80402150 

80402160 

80402170 

80402180 

80402190 

80402200 

804022 10 

80402220 

80402230 

80402240 

80402250 

8C402260 

80402270 

80402280 

80402290 

804C2300 

80402310 

8C402320 

80402330 

80402340 

80402350 

80402360 

80402370 

80402380 

80402390 

80402400 

80402410 

80402420 

80402430 

80402440 

80402450 

80402460 

80402470 

80402480 

80402490 

804025C0 

60402510 

8C402520 

80402530 

8C 402540 

80402550 

80402560 

80402570 

80402580 

80402590 

804026C0 

80402610 

80402670 

80402630 

80402640 

804026S0 

80402660 

8C402670 

80402680 

8040 26 SO 

8040 2 7 CO 

80402710 



PROG 10 
PAGE 



0804-0 
2A 



Jl 11 II II II II 1 I 11 I 



I III II I I I 



» I 



I! (I I 



I 



-ii 



<<<(<<<<(<<(<<< i ( c < <<<(<<<<<<<< 



( 
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OSED C 


10A0 




SIT 




32 






80402720 




OBfcfc 01 


CC00C972 




XIO 


L 


XICSD 


SENSE DSH 




80402730 




O8F0 01 


4C10C8DE 


* 


BSC 


L 


RTN4t- 


BR IF NC DSh ERRORS 




80402740 
60402750 




08F2 


(116 




LOX 


1 


/0016 


PRINT RCR ERROR 




80402760 




08F3 01 


7401CA61 




MOX 


L 


EMESGtl 






80402770 




08F5 01 


44000A4C 




BSI 


L 


PROSM 




MC 


8C402780 




08*7 01 


74FF0A61 


• 


MDX 


L 


EMESG.-l 






80402790 
80402800 




08F9 C 


4034 




BSI 




RROV 


READER READY 


SC 


804028 10 




08FA 


7043 


* 


MOX 
MOX 




FEED 
RTN4 


CONTROL F.EACER 




80402820 
80402830 








********************************************** 


80402840 








• 












80402850 








* 












80402860 








• 






ROUTINE FIVE 




804028 70 








* 












80402880 








* 






PUNCH BIT 


SWITCH DATA 




80402890 








• 












80402900 




08FB 01 


C40C0803 


PTNSI 


LC 


L 


SHI 






80402910 




OBFD 01 


4C18C8 90 




BSC 


L 


MGRlt*- 


BR IF NC EXECUTE RTN 




80402920 




08FF 


6300 




LOX 


3 









80402930 




0900 


7002 




MDX 




RTN5B 






80402940 




0901 00 


6/noooeo 


RTN5A 


LOX 


L3 


/OOOO 






80402950 




0903 01 


C400C805 


RTNSE 


LD 


L 


SW3 






80402960 




0905 


1300 




SLA 


3 









80402970 




C906 01 


C400CA67 




STC 


L 


>CHAR 






80402980 




0908 


C0F9 




LD 




RTN5A+1 






80402990 




0909 


eoob 




CMP 











80403000 




090A C 


6300 




LOX 


3 









80403010 




090 B 


7001 




MDX 




RTN5D 






80403020 




090C 


6308 




LDX 


3 


8 






804030 30 




0900 


6BF4 


RTN5C 


STX 


3 


RTN5A*1 






80403040 




090E 01 


C400C803 




LD 


L 


SHI 






80403050 




0910 


F0A5 




EOR 




SHCMP 






804C3060 




0911 01 


4C20C890 




BSC 


L 


MGR1.Z 


BR IF END THIS RTN 




80403070 




09'3 


400 A 




BSI 




XKRDV 






80403080 




0914 


704C 


• 


MDX 




PUNH 






80403090 
80403100 




0915 


0000 


C 


DC 




C 






80403110 








************** f *** ****************** ********* 




80403120 








• 












80403130 








• 












80403140 








• 






TEST 


5 - PUNCH BIT SHS 




80403150 








• 












80403160 








• 












80403170 








• 






CCUNT 


CHARACTERS ROUTINE 




804031 eo 








• 












80403190 




0916 


cooo 


CRASF 


cc 




/OCOO 


IS RTN COMPLETE 


SE 


604032C0 




0917 01 


74FFC8D6 




MDX 


L 


WRECK, -1 






80403210 




0919 


7C02 


• 


COX 




RASH 






80403220 
80403230 




091A 01 


4CO0C39O 


• 


BSC 


L 


MGR1 


BR - ENC CF RECORD 




80403240 
80403250 




091C 01 


4C80T916 


RASH 

• 


BSC 


I 


CRASH 


RET IF RCD NOT CMPLT 


SX 


804032(0 
80403270 








I******************************************** 




804C3280 








• 












80403290 








• 












80403300 








• 






PLNCH 


READY ROUTINE 




8C 403 3 10 








• 












80403320 




091E 


POOO 


XKRDV 


CC 




/OCOO 




SE 


8C403330 




091F 


0852 




XIO 




XIOSD 


SENSE AND SAVE DSH 




80403340 




0920 


C062 


* 


STO 




OS HAS 






eO4O3350 
80403360 




0921 


E057 


• 


AND 




XMASK 


REMOVE RDR NRDV BIT 




80403370 
80403380 




0922 01 


4C98C91E 




BSC 


I 


XKRDV* ♦- 


8R IF DSH OKAY 


SX 


80403390 




DATE 


28FEB66 


C1MAV66 










PROG 10 


0804-0 


EC NO. 


415120 


41S120A 










PAGE 


3 



0924 





1007 


0925 





6105 


0926 





C85C 


0927 





E057 


0928 





1800 


0929 


01 


4400CA4C 


092B 


01 


4400CA7F 


092D 





70F1 



092E COOO 
092F 084 2 

0930 C052 

0931 E046 

0932 01 4C98092E 



0934 

0935 

0936 

0937 

0938 



100 5 
6104 
C84C 
E046 
1800 



0939 CI 4400CA4C 

093B 01 4400CA7F 
0930 70F1 



093E 6101 

093F 01 6D00C866 

0941 01 6D0009AB 

0943 C830 



0944 

0945 



C82D 
D03B 



0946 01 44000A7F 



0948 
C949 
094A 
094B 
094C 



6111 
C837 
E033 
E82F 
7052 



094D 01 6500C834 

094F 01 6000C833 

0951 6103 

0952 01 6DO0C866 
09ii4 01 600009A8 



0956 

0957 



0819 
081C 



095a 0819 



SLA 
LDX 
LCD 
AND 
RTE 
BSI 

BSI 

MDX 



7 
1 5 

OSHAS 
POFF 
16 
L PROSH 

L TIME 

XKRDV* 1 



PRINT OSM ERROR 



MC 
PALSE BEFORE RECHECK SC 



♦♦♦♦I**************************************** 



RRDY CC 
XIO 
STO 

AND 



/OOOO 
XICSD 
OSHAS 

RMASK 



READER READY ROUTINE 

SENSE AM) SAVE DSH 



BSC I RRDY**- 



SE 



SX 



SLA 
LOX 
LOO 
ANO 
RTE 
BSI 

BSI 

MDX 



5 
1 4 

DSHAS 
ROFF 
16 
L PROSW 

L TIME 
RRDY+1 



REMOVE PCti NROY BIT 
BR IF DSH OKAY 
PRINT OSM ERROR 



MC 
PAUSE BEFCRE RECHECK SC 



***v ********************************** ******* 
CONTROL READER ROLTINE 



FEED LDX 1 1 

STX LI INTEX 



STX 

XIO 

XIO 
STO 

BSI 

LCX 
LDD 
AND 
OR 

MDX 



LI BSYES+1 

XICFD 

XICSO 
OSHBV 

L TIME 

1 /0C11 
DSHBY 
ROFF 

DSHR2 
DINE5 



SET REACER INTRPT 
* EXPECTED 



FEEO READER 
SAVE BUSY DSH 

PAUSE FC« INTRPT 
PRINT NC INTRPT ERR 



SC 



«***#***♦***********************«*>•«.********* 
• PUNCH ANC CONTRCL HEADER 



XFEEC LOX LI DIKT1 

STX LI DINT1-1 

* 

LDX 1 3 

STX LI INTEX 

STX LI BSVES*! 



ROUT (NE 

RESTORE DCUBLE IT 

• SNITCH 

StT DOUBLE INTRPT 

• EXPECTED 



XIO 
XIO 


XICXX 
XIOFO 


FEEO ANO PUNCH 


XIO 


XICSO 


SAVE BUST DSH 



DATE 
EC NO. 



28FEB66 
415120 



C1MAV66 
415120A 



804034C0 
80403410 
80403420 
804C3430 
8040344C 
80403450 
80403460 
80403470 
80403480 
80403490 
804035CC 
80403510 
80403520 
80403530 
80403540 
80403550 
80403560 
80403570 
80403580 
80403590 
80403600 
80403610 
80403620 
80403630 
80403640 
80403650 
30403660 
80403670 
8C4C3680 
80403690 
80403700 
80403710 
80403720 
80403730 
80403740 
80403750 
60403760 
60403770 
80403780 
80403790 
804C38C0 
804C3810 
80403820 
80403830 
80403840 
80403850 
804C3860 
80403870 
80403680 
60403890 
e04039C0 
60403910 
80403920 
80403930 
60403940 
80403950 
60403960 
8C 40 39 70 
6040 3980 
804C3990 
80404000 
80404010 
60404020 
80404030 
80404040 
80404050 
60404060 
80404070 
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0459 002 T 
095* CI 44000ATF 



095C 





6113 


0950 





C023 


095E 





1800 


095F 





C010 


09*0 


c 


70 3E 



0961 630? 
096? 01 6F00C866 
0964 01 6F0OC9A8 

0966 0809 



0967 


G80A 


0968 C 


C018 


0969 01 


44000 


096B 


6112 


096C 


C814 


0960 


ECU 


096E 


E8U0 


096F C 


702F 


0970 


COCO 


097G 1 


0A67 


0971 r 


C100 


0972 


oooc 


0973 G 


0701 


0974 


0000 


0975 C 


0410 


0976 1 


CA66 


0977 


C2'»C 


0978 


FEFF 


0979 


FBFF 


097A 


FFFF 


097B 


CCGO 


097C 


C30O 


0970 G 


OF 00 


097E 


0100 


097F 


0400 


0980 C 


0030 


0981 C 


0000 


0982 


COOO 


0983 


COOC 



STO 

BS1 

LDX 

ID 

RTE 

10 

MOX 



OSWBV 
TIME 

1 /GC13 

CSWBV 
16 

OSWRX 
DINE5 



PALSE FCR INTERRUPT SC 
PRIM NC IN1RPT ERR 



»,«»«*..»*••**•••*•♦•♦•***•*••***♦******•*♦♦* 

PUNCH ROUTINE 



PUNH LDX 3 2 

STX 13 INTEX 
STX 13 8SYES»1 



0984 01 $530G9AB 
0986 01 CC00085B 
0988 01 E500CWTD 
098A 01 E000C863 
098C 7105 
098C 7G11 



098E 01 C4C0C85B 
0990 18D0 



XIC 

XIO 
STO 



XICXX 

XICSO 
OSVBY 



BSI L TIME 



SET PUNCH INTRPT 
♦ EXPECTED 

PUNCH CHARACTER 
SAVE BUSY OSW 

PALSE FCR INTERRUPT 
PHINT NC INTRPT ERR 



SC 



****** 

* 
• 

XICXX 

XICSC 

XIOFC 

XIORR 

PM*SK 

XMASK 

cswr; 
cswx; 

CSHRX 

BOFF 

POFF 

CSW3Y 



LDX 1 /CC12 

LCO L-WBV 

AND POFF 

OR 0SWX2 

MCX DINES 

*************************************** 



CSWAS 

****** 

• 

* 
MPES 



BSS 
DC 

DC 
DC 
DC 

DC 
DC 
CC 
DC 
CC 
DC 

nc 
:c 

3C 
3C 
CC 
DC 
CC 
DC 
OC 

oc 

******** 



XCHAR 
/01C0 
/OCOC 
/0 701 

/ocoo 

/C41C 
CARED 
/0200 
/FEFF 
/ftff 
/FFFF 
/OCOC 
/G20C 
/OFOO 
/010C 
/0400 
/OCGO 
/CCOO 
/CCOC 
/CCOC 
********** 



PUNCH ICCC 

SENSE DSW ICCC 

FEED IOCC 

HEAD IOCC 

READER CASK 
PUNCH MASK 
MINUS ONE 
RDR BUSY EXP OSW 
PCH BUSY EXP OSW 

double busy osw exp 



LAST BU5Y DSW 
NOT USEC 

LAST DShER PRINTED 
**»*****»***♦***»***»* 



PRINT OSW ERRCRS DETECTED 
DURING INTERRUPT 



LDX 
LOO 



II 

L 



AND LI 
OR LI 



BSYES*1 
OSWIT 
ROFF-1 
1NTEX-3 



»DX 

MCX 



1 £ 



CINE1 



LO 
RTE 



0INE5 



DShIT 
16 



PRINT D5N ERROR 

* DETECTED WHILE 

* RUNNING RTN 1 CR 

* RTN 2 



PRINT OSW ERROR 
• DETECTED W-ILE 



PART NO. 
PACE 



2196358 







() 



OATE 
EC NO. 



28FEB66 
415120 



01MAV6E 
41S120A 



80404010 

80404090 

80404 ICO 

80404110 

80404120 

80404130 

80404140 

80404150 

80404160 

80404170 

804041*0 

6G4C4190 

804042C0 

80404210 

804C4220 

80404230 

8C 404240 

80404250 

80404260 

80404270 

80404280 

80404290 

80404300 

80404310 

80404320 

80404330 

80404340 

80404350 

80404360 

80404370 

80404380 

80404390 

804044C0 

80404410 

80404420 

80404430 

80404440 

80404450 

804C4460 

80404470 

80404480 

80404490 

804045C0 

804C4510 

8C 4045 20 

80404530 

80404540 

80404550 

80404560 

804C4570 

80404580 

80404590 

804046C0 

80404610 

8C4C4620 

80404630 

80404640 

804C46S0 

80404660 

80404670 

80404680 

80404690 

8C 404700 

80404710 

80404720 

80404730 

80404740 

80404750 
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PART NO. 219635* 
PACE ** 



0991 6108 

0992 700 A 

0993 01 C400C85B 

0995 1RD0 

0996 01 C400085C 
0993 01 4C20099C 



099A 
099 8 



6109 
7001 



099C 6110 
0990 01 C4D0C863 
099F 1800 
09A0 01 44000A4C 

09A2 01 658r0800 
09A4 C07F 
09A5 01 4C98CACD 

09A7 1810 
09A8 007B 
09 A9 7017 



LDX 
MOX 

• 

CINE2 LO 
RTE 
LC 
BSC 
LDX 
MOX 

• 

CINE3 LCX 

CINE4 LO 

CINE5 RTE 
BSI 

• 

CINEt LOX 
LO 
BSC 

SRA 
STO 

MOX 



1 8 

DINE4 

L DSWIT 

16 
L BUMRQ 
L DINE3.Z 
1 9 

0INE4 

1 /0C1C 
L INTEO 

16 
L PRDSM 



* RUNNING RTN 3 CR 

• RTN 4 

SEC SVC REO ERROR 
BR IF 1ST SVC REO OK 



Rul 10 MAINLINE RTN 



II RID 

ERRET 
II SORTS-lt*- BR IF NC ERROR LAST 



16 RETURN TO FINISH 

ERRET • ALIGNING TAPE 

„,., RFAD * IN REACER 

a*,*******************************'********** 

* CHECK BUSY DSk 



09AA OC 
09AC 
09AD 01 
09AF 01 
09B1 01 



6500C000 
CO 04 

E50GC97T 
F500097A 
4C18C9BB 



ESYES LCX LI /CCOC 



09B3 C8C0 

09B4 01 E500C970 

09B6 01 ED00C97A 

0968 18D0 

09B9 01 44000A4C 

09BB 6100 

09BC 01 6D000B0A 



XBSE 



LD 
ANO 
ECR 
BSC 

LOO 
ANC 
OR 
RTE 

esi 

LOX 
STX 



DSkBV 
LI RMASK-1 
LI 0SWR2-1 
L XBSEt*- 

DSkBY 
LI ROFF-1 
LI DSWR2-1 

16 

L PRDSW 

1 
LI P.LSCF+l 



BR IF OSW OK 
PRINT OSW ERROR 



09BE OC 4C00C00O XBSYX BSC L /CCCC 



MC 



BLOCK PAUSE FCR INT 
* RCUTINE KEErtTRY 

BRANCH TO SCMEWHERE PMOl 



09C0 0000 

09C1 01 C400CA66 

09C3 01 C400CA69 

09C5 CdBO 



♦;♦*♦.♦******.**♦.♦**»*••*♦*•**♦♦*•***♦*♦**** 

• 

RDIT 
READ 



09C6 


Gl 


C4000A66 


09C8 


G 


DOSE 


09C9 


01 


2C41CA66 


09CB 





C85C 


09CC 





C8A9 


09CD 


G 


08A4 


09CE 


01 


2C40CA66 


0900 





00B2 


0901 





E0A6 


09G2 





F055 


09D3 


01 


4C18G9E0 



0905 C8A0 

09D6 E0A7 

09D7 E850 

0908 1800 



DC 
LO 
STO 
XIO 

LD 
STO 

STS 

LDD 
XIC 
XIO 
STS 
STO 
ANO 
EOR 
BSC 

LDP 
AND 
CR 
RTE 



/OCOO 
CARED 
LREA3 
XICRR 

CARED 
SAVIT 



COMPARE ROUTINE 

SAVE LAST CHAR READ 
READ CHARACTER 
SAVE CHARACTER READ 



CAREDt/41 
K8040 
XICRR 
XIOSD 



STt PROT READ AREA 



FCPCE READ ERROR 

SENSE OSW 
CAPEDt/40 CLEAR STO PROT BIT 
OSkAS 
RMASK 
K8C40 
RDITA.4 



DSWAS 
ROFF 
K8C40 
16 



BR IF DSH OK 
PRINT DSH ERROR 



OATE 

EC NO. 



28FEB6i 
415120 



C1MAV66 
415120* 



80404760 
80404770 
80404780 
80404790 
•0404*00 
80404*10 
80404920 
80404830 
80 4C 48 40 
804G48 50 
804C4 860 
80404870 
80404880 
HC 80404890 

80404900 
8G404910 
8C404920 
80404930 
SC 404940 
80404950 
80404960 
80404970 
80404930 
80404990 
8040 50 GO 
£0405010 
8G405020 
804C5030 
8G4C5040 
8C4C5050 
80405060 
80405070 
804050 80 
80405090 
804C51CC 
80405110 
80405120 
80405130 
80405140 
80405150 
80405160 
80405170 
80405180 
804G5190 
804O52C0 
604C5210 
SE 80405220 

80405230 
80405240 
804052*0 
80405260 
8C405270 
80405280 
8C 405290 
8040 5 3C0 
80405310 
8C40S32C 
8G405330 
804C5340 
80405350 
804C5360 
8C 405370 
60405380 
80405390 
80405400 
80405410 
804054 20 
804054 30 
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09D9 





6117 


090* 





4071 


09DB 





co* a 


090C 


01 


B40C0A66 


090E 





1000 


09DF 





701E 



09E0 C89S 

09E1 01 C400CA67 

09E3 01 F40CCA66 

09E5 1800 

09E6 01 4C20CACA 

OSES 01 7401CA25 

09EA /05F 



09EB 
09EC OC 
09EE OC 
09F0 C 
09F1 01 
09F3 
09F4 
09F5 01 
09F7 
09F8 
09F9 C 
09FA 
09FB 
09FC 



683A 

6500 «0C1 

660CAFE0 

407A 

C400C902 

1009 

1809 

C400C802 

1810 

C031 

C031 

C02E 

6164 

692F 



09FD C 704C 



09FE 

09FF C 

OAOO 

0A01 01 

0A0 3 01 

0AC5 CI 

0A07 

0A08 C 

0A09 



1800 

CC66 

6118 

7401CA61 

4400CA4C 

74FFCA61 

COIF 

C05E 

70D7 



OAOA C01B 
OAOB 01 4C20PA20 



OACO 
OAOE 
OAOF 3 



C01C 
E&57 
C01A 



0A10 C C018 
0A11 E054 
0A12 C016 



0A13 


01 


74FFCA2C 


0A15 





7007 


0A16 





6119 


0A17 


c 


C011 


0A18 





1800 


0A19 





C010 


0A1A 





F010 


0A1B 





403P 


0A1C 





70DA 



10X 
BSI 

LD 
CMP 

NOP 
POX 

RDITA XIO 

• 

RD1TC LO 
ECP 
S*A 

ESC 
MOX 

POX 



STX 

LDX 

L()X 

BSI 

LI) 

SLA 

SPA 

STO 

SPA 

STO 

LO 

S10 

irx 

STX 



PDITC 



RDIT1 



ROI 



PCX 

RTE 

LC 

LDX 

PCX 

BSI 

POX 

LD 

STO 

MOX 

LO 

esc 

LO 

en 
STO 

LO 

AND 

STC 

MOX 
PDX 

LCX 
LO 
RTE 
LO 

ec« 

BSI 

POX 



0A10 61FB 



RDIT3 



1 /0C1T 
PRDSM 

SAVIT 
CAREO 

RDIT1 

XICRR 

XChAR 

CAREO 

8 

RDIT2.2 

CORCT, 1 

ROITE 



C K1ST 
LI /AC01 
L2 /AFEO 
PTLOG 
L SUC 
9 
9 
L SUC 
16 

BTLNE 

KFFOO 

NOLNE 

1 IOC 

1 TRIAL 

RDITE 



16 

CARED 

/18 

EMESGtl 

PROS* 

EMESG,-1 

1AVIT 

XCHAR 

ROITO 

MST 

R0IT4.2 
BTLNE 
CAREO 
PTLNE 

NOLNE 
CAREO 
NOLNE 



LDX 



L TRIAL, -1 
R0IT3 

1 /19 

NOLNE 

16 

BTLNE 

KFFOO 

PRPSM 

ROITO 



1 -8 



CHECK IF SAME CHAR 
MAS REAC 

NO - ERROR IN REAO 

READ 

OC CHARACTERS 
CCMPARE 

BR IF NCN CCMPARE 

EXIT 

PRINT TAPE ALIGNED 

TURN OFT REALIGN SH 

RESET BIT LINE CHECK 



EXIT 



SET MESSAGE 10 



BR IF NCT FIRST EPH 
BIT LINE CPEN CK 



BIT LINE SHCRT CK 



CCLNT OCWN 100 PAX 



PRINT NC ALIGN ERROR 



PART NO. 
PAGE 



80405440 

804C54S0 

80405460 

804C5470 

80405480 

804054 VO 

804055C0 

8C405510 

80405520 

8C4C5530 

80405540 

804C5550 

80405560 

80405570 

80405580 

80405590 

8040 56C0 

80405610 

8C40S620 

80405630 

80405640 

60405650 

80405660 

80405670 

80405680 

80405690 

804057C0 

8040S710 

8040S720 

80405730 

80405740 

80-.C5750 

80405760 

80405770 

804C5780 

80405790 

804C58C0 

80405810 

80405820 

804C5830 

80405840 

80405850 

80405860 

80405870 

80405880 

80405890 

80405900 

80405910 

804C5920 

60405930 

60405940 

80405950 

80405960 

804C5970 

60405980 

80405990 

804060CO 

80406010 

80406020 

80406030 

80406040 

80406050 

80406060 

80406070 

80406080 

80406090 

80406 ICO 

80406110 
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PART NO. 2196358 
PAGE 5A 



OAIE 6906 
0A1F 01 4400C92E 
0A21 6802 
0A22 01 4C0C093E 



0A24 





0000 


0A25 





0000 


0A26 





cooo 


0A27 





cooo 


0A28 





£040 


0A29 





FFOC 


0A2A 





COOO 


0A28 





FFOO 


0A2C 





0064 



0A20 01 C400C802 
0A2F 1008 
0A30 01 4C100A35 
0A32 1008 



0A33 
0A34 



0A35 
0A36 
0A37 
0A38 01 
0A3A 
0A3B 
0A3C 
0A3D 
0A3E 
0A3F 
0440 
0A41 
0A42 00 
0A44 
0A45 01 
0A47 
0A48 01 













C0F2 
70E8 



6114 

C031 

F02F 

4C180A3E 

C02B 

F02D 

4818 

6115 

C028 

1898 

1088 

C024 

6600CADA 

6A21 

7401CA61 

4004 

74FFCA61 



0A4A 01 4C8CC9C0 



0A4C 0000 

0A4D D816 

0A4E 6914 

0A4F C01A 

0A50 CR12 

0A51 C011 



0A52 OC 448C013C 
0A54 1 0A61 
0A55 1 CA5A 
0A56 1 0A57 

0A57 01 65800A4C 
0A59 7002 

0A5A 01 6500CA52 
0A5C 01 6000C8C9 



STX 
BSI 
STX 

BSC 



• 

ERRET OC 

CORCT OC 

MST CC 

SAVIT OC 

K804C OC 

NOLNE 

FTLNI 

KFFOC 

TRIAL 

• 

RDIT4 



DC 
CC 
DC 
OC 



ROITt 



PDIT« 



LD 
SLA 
BSC 
SLA 

STO 

MDX 



LDX 

LD 

ECR 

BSC 

LD 

EOR 

BSC 

LDX 

LD 

SRT 

SLT 

LO 

LDX 

STX 

MDX 

BSI 

MDX 



L2 

2 
L 



RDITE 



CORCT 
RRDY 
ERRET 
FEED 



/OCOO 
/OCOO 

/ccoc 

/OCOO 
/8040 
/FFCO 
/OCOC 
/FFOO 
IOC 

SMC 

e 

RDIT6,- 
8 

MST 
R0IT3 



/0C14 

LCHAR 

XCHAR 

RDlT5,-t- 

CAREO 

LREAD 

••— 

/0C15 

XCHAR 

24 

8 

CAREO 

/OAOA 

CAREO 

EMESGtl 

PROSM 

EMESG.-l 



REAOER READY 
CONTROL REAOER 



RET TO CMPRE IF SET 
TAPE ALIGNMENT 
• NORK AREAS 
SAVED CHARACTER 

BIT LINE SHCRT CK UC 
BIT LINE CPEN CK MO 
CONSTANT 
ALIGNMENT COUNTER 



BR IF NO REALIGN 



PRINT DATA REAO ERR 



BR IF BLF S/NB CNGD 



BR IF RCR BLF CNGED 



BSC I ROIT 



* 

PRDSM CC 
STD 



PRINT ERRCR ROUTINE 



/OCOC 

EMESG*3 

EHESG+2 
KECOO 
EMESG*2 
EMESG*2 



PRINT ERRCR RTN 
SAVE DATA MAS ♦ S/B 



SAVE MESSAGE ID NC 



STX 

LD 

CR 

STO 

••*• «*»•****** ****** **«*»«**** »•*•*»*•****** 

ERCSM BSI I ERROR 

OC EMFSG MESSAGE AOOR 

CC CKCSX BLSV RETURN ACOR 

DC ERLOP LCOP ON ERR ADDR 

ERLOP LDX II PRDSM NORMAL * LOCP RETS 
PDX POSMX 

CKCSX LDX 
POSMX STX 



LI 
LI 



EROSM 
MLSCF 



BUSY RETURN TO CALL 



60406120 
SC 80406130 

8G 406 140 
80406150 
80406160 
804C6170 
80406180 
80406190 
80406200 
804062 10 
80406220 
80406230 
80406240 
80406250 
80406260 
80406270 
80406260 
80406290 
8O4063CO 
80406310 
80406320 
80406330 
80406340 
80406350 
80406360 

804063 70 
80406380 
80406390 
80406400 
60406410 

804064 2C 
80406430 
80406440 
80406450 
80406460 
80406470 
80406460 
80406490 
80406500 
80406510 

MC 80406520 

80406530 
804C6540 

SX 80406550 

80406560 
80406570 
80406560 
60406590 
804066 CO 

ME 80406610 

80406620 
80406630 
60406640 
80406650 
80406660 
804C6670 
8C4C6660 
8C 406690 

SC 60406 7C0 

80406710 
80406720 
80406730 
60406740 
80406750 
80406760 
80406770 
80406780 
80406790 



DATE 
EC NC. 



28FEB6C 
415120 



ClMAV6u 
41*liOA 
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OATE 
EC NO. 



26FEB66 
415120 



C1MAY66 
41S120A 
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0A5E OC 4C80C120 



SSC I START 



MX 



0A60 




oooo 


0A60 





100C 


0A61 





0002 


CA62 


t 


0000 


0A63 





cooo 


0A64 


u 


0000 


0A65 


c 


0000 


0A66 





cooo 


0A67 





0000 


0A68 


c 


cooc 


0A69 


c 


0000 


0A6A 





EOOO 



0A6B C 0000 
0A6C 6910 

0A60 6A10 

0A6E 00 4480012F 
0A70 1 0A7B 
0A71 1 0A75 
OA72 0000 

0A73 C0F7 
OA74 7001 
0A75 C CC04 
0A76 01 D40C08G9 
0A7B OC 4C80012D 



0A7A 




coco 


0A7A 


1 


0A6E 


0A7B 





0001 


0A7C 





0000 


0A7D 


c 


OOCC 


0A7E 


c 


oooc 



0A7F 
0A8G 00 
0A82 
0A83 01 
0A85 C 
0A86 01 
0A8H 01 
OASA 01 
0A8C OC 



COCO 

65001000 

690D 

74FFCA6C 

7002 

4C80CA7F 

660COA63 

6E0CC3OA 

4C90C12D 



0A8E 





0000 


0A8F 





C007 


0A90 





1808 


0A91 


C 


1008 


0A92 





C0D5 



0A93 00 65000001 





8SS 


E 


TIMEX 


cc 


/1C00 


EMESC 


cc 


/OC02 




DC 


/OOOC 




DC 


/OCOO 




CC 


/CCCO 


• 


CC 


/OCOO 


• 
CAPEC 


DC 


/OCOC 


XCHAR 


DC 


/ococ 


LCHAR 


DC 


/OCOO 


LREAC 


CC 


/ccoc 


KEOCC 


cc 


/ECOO 


******************** 

* 
* 


• 
* 
PTLOC 


cc 


/ococ 




STX 


1 LGMS+2 


* 







COUNTER 

WORD COLNT 

HEX OUTPUT 

MSG ID 

DSWAS 

OSW S/B 



CHARACTER READ 
PUNCH OUTPUT CHAR 
PREVIOUS CUTPUT CHAP 
PREVIOUS CHAR READ 



LOG MESSAGE ROUTINE 



SAVE MESSAGE ID 
STX 2 LGMS+3 SAVE MODIFIERS 

PTLOt BSI I L>'G 

CC LCMS ADDR OF MESSAGE 
CC PTL02 BUSY RETURN ADDR 
DC /CCOO RUN 

♦ ♦♦♦a*,.************************************* 



ME 



SC 



LO 

MDX 
PTL02 LD 
PTL0 1 STO 

BSC 

* 

ess 

LGMSl CC 

LGMS CC 

CC 

CC 

DC 



PTLOG 
PTL01 
LCMS1 
MLSCF 
START 



PTL06 

1 

/OCOO 

/OCOO 

/OCOC 



NORMAL RETURN 
BUSY RETURN 



WORD COLNT 

MESSAGE ID NUMBER 
MODIFIER MESSAGE 



MX 



• TIMEO OELAY ROUTINE 

* 

TIME DC 

LDX 

STX 

KOX 

CDX 

ESC 
TIME1 LDX 



STX 
ESC 



/CCOO 
LI /1C00 
1 TIMEX 
L TIMEXt-1 

TIME1 
I TIME 
L2 TIME+4 
L2 MLSCF*1 
I START 



SET UP COUNTER 



EXIT TIME UP 
SET FCR REENTRY 



SE 



SX 



BUILC NEXT CHARACTER 



* 

* 
MARK 



CC 

LD 

SRA 

SLA 

STO 



/OCOO 

XCHAR 

8 

8 

LCHAR 



ROUTINE 



SAVE LAST ChARACTER 



SE 



LDX LI 1 



INIT TEST XR1 



OAlE 
EC NO. 



28FEB66 
415120 



C1MAV4C 

415120* 



60406BC0 

80406810 

804C6820 

804068 30 

80406840 

80406850 

80406860 

804G6670 

80406880 

60406890 

804069CO 

804069 10 

80406920 

80406930 

80406940 

80406950 

80406960 

80406970 

80406980 

80406990 

804070C0 

804C7010 

80407020 

80407030 

80407040 

80407050 

80407060 

804070 70 

80407080 

80407090 

80407100 

80407110 

80407120 

80*07130 

80407140 

60407150 

80407160 

80407170 

60407180 

80407190 

804072C0 

60407210 

80407220 

80407230 

80407240 

60407250 

60407260 

80407270 

80407280 

80407290 

80407300 

804C7310 

80407320 

8C 407 3 30 

80407340 

80407350 

80407360 

80407370 

80407380 

80407390 

80407400 

80407410 

80407420 

80407*30 

80407440 

80407450 

80407460 

80407470 



PROG ID 
PAGE 



0A95 OC 66000000 
0A97 01 4E800ABF 

0A99 01 C50COAC3 
0A9B DOCS 
0A9C 6201 
0A9C 701C 



0A9E 
0A9F 
OAAO 
0AA1 
0AA2 
0AA3 
0AA4 
0AA5 
0AA6 



0AA7 CI 
0AA9 C 
OAAA 
OAAB 
OAAC 










OAAD 01 






OAAF 

OABO 



0AB1 
0AB2 C 



C0C8 
1001 
D0C6 
4820 
7018 
6202 
COIE 
C0C1 
6925 

74FFCACC 

7011 

6200 

7101 

6920 

74F80ACO 

7001 

700 A 

6203 
7008 



0AB3 C018 
0AB4 00B2 
OABS 800E 
0AB6 0015 
0AB7 01 4C20CABB 



0AB9 





6101 


OABA 





6200 


OABB 





69DB 


OABC 





6AD9 


OABC 


01 


4C80I 


OABF 


1 


CA99 


OACO 


1 


0A9F. 


0AC1 


1 


0AA7 


0AC2 


1 


0AB3 


0AC3 





FFOO 


0AC4 





0100 


0AC5 





OOCO 


0AC6 


c 


OOEO 


0AC7 





OOFO 


0AC8 





OOF 8 


0AC9 





OOFC 


OACA 





OOFE 


OACB 





OOFF 


OACC 





0000 


OACD 





0000 



OACE 1 "8C2 



CULP LDX L2 

BSC 12 WHAT 
• 
KRIPX LO LI BITSX 

STO XCHAR 

LOX 2 1 

MCX EXITX 

• 
SRIPX LD 

SLA 

STO 

BSC 

MOX 

LDX 

LD 



PARX 



STO 
STX 

MDX 
MDX 
LDX 
MDX 
STX 
MDX 
MDX 
MDX 



ENRIX LOX 
MDX 

* 

ALLBX LO 
STO 
A 

STO 
BSC 

• 

LDX 

LDX 

EXITX STX 

STX 



XCHAR 

1 

XCHAR 

Z 

EXITX 
2 2 

BITSX 

XCHAR 
1 COUNX 



WHAT 



BSC 



CC 

DC 
DC 
DC 



L COUNX, -1 
EXITX 
2 
1 1 

1 KHUNX 

L K0UNX.-8 
ENRIX 
EXITX 

2 3 
EXITX 

COUNX 
XCHAR 
ONEEX 
COUNX 
L EXITX,/ 



1 1 

2 C 

1 OULP-1 

2 OULP+1 
I MARK 



NRIPX 
SRIPX 
■4ARX 
ALLBX 



XR2 
GO BUILC CHARACTER 

START NEW RIPPLE 
* PATTERN 



SHIFT RIPPLE PATTERN 
SKIP NEXT CH NC BITS 
PLACE ALL BIT CHAR 

SKIP WHEN CCUNX GO 



SKIP EXCEPT END RIPPE 
BR TO END RIPPLE ROUT 
BR TO EXIT 

END RIPPLE PATTERN 



ALL CHARS PATTERN 
ACD ONE I. E. 0100 

REINITIALIZE 

EXIT SX 

RECORD CONTROL AORS 



/FFOO 
/0100 
/CCCO 
/OOEO 
/CCFO 
/OOF 8 
/OCFC 
/OCFE 
/OCFF 

/CCOO 
/OCOO 



CHARACTER PATTERN 
» CCNSTANTS 



WORK AREAS 



0804-0 

6 



DATE 
EC NO. 



28FEB66 
415120 



EITSX OC 

CNEEX CC 

DC 

CC 

DC 

DC 

DC 

OC 

CC 
• 
COUNX CC 

KOUNX DC . 

«♦«»«*♦«.#**»******•»♦*»•*♦•••***•*•*****♦*♦*• 

• 
* 

• ACORESSES FOR RETCRN TO 

• MAINLINE AFTER INTRPT 
SORTS CC RTN1A ROUTINE 1 



C1MAV66 

415120A 



80407480 

80407490 

80407500 

80407510 

80407520 

80407530 

80407540 

80407550 

80407560 

80407S70 

80407580 

60407590 

804076C0 

80407610 

80407620 

80407630 

80407640 

80407650 

80407660 

80407670 

80407680 

604076S0 

8040 7 7 CO 

80407710 

80407720 

80407730 

80407740 

80407750 

80407760 

80407770 

60407780 

80407790 

804078C0 

804C7810 

80407820 

80407830 

804C7840 

80407850 

60407860 

80407870 

8C 407880 

80407690 

804C79C0 

80407910 

8C4C7920 

80407930 

60407940 

60407950 

80407960 

80407970 

80407960 

80407990 

804C8000 

60408010 

80408020 

80408030 

80406040 

804080 50 

60408060 

80408070 

804080 eo 

604080'50 
804081C0 
80408110 
80408120 
80408130 
80408140 
80408150 



PPGG 10 
PAGE 



0804-0 
6A 



« 4 

L 
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) 
"I 



OACF 


* 
* 


osce 




DC 




RTN2A 




ROUTINE 2 


OADO 


1 


G8D2 




DC 




RTN3A 




ROUTINE 3 


0A01 


1 


C8E7 




DC 




RTN4A 




ROUTINE 4 


0AD2 


1 


0901 


• 


cc 




RTN5A 




ROUTINE 5 


0A03 


01 


65000879 


• 
NOPF 


LCX 


LI 


BOSS 




TRY AGAIN 


0A05 


01 


6000C809 




STX 


LI 


MLSCF 






CAD7 


00 


4C8G012D 


• 


BSC 


I 


START 






0A09 





0000 


• 
TEND 


DC 




/CCGO 






OAOA 


oc 


6500030E 




LDX 


LI 


782 




SET RTN1 1 


OAOC 


01 


6D00C8B8 




STX 


LI 


kTMI*1 




OAOE 


00 


670O7FFF 




LDX 


L3 


/7FFF 






OAEO 


01 


C400C866 


TEND1 


LD 


L 


INTEX 






0AE2 


CI 


4C16CAE6 




BSC 


L 


TEND2, 


♦- 


BR IF INTI 


0AE4 





73FF 




HDX 


2 


-1 






0AE5 





70FA 




MDX 




TEN01 






0AE6 


01 


2C40CA66 


TENDi 


STS 


L 


CAREO. 


MO 





- LATER 



0AE8 00 44800132 
OAEA 1 0812 
OAEB 1 080B 

OAEC 01 4C80CAD9 



OAEE 01 6D000A25 

OAFO 00 4C80C12E 

0AF2 0000 
OAF 2 

OAFD 0000 

OAFE 0869 



*»»*<***************************♦******.*»**** 
BSI I RELOV RELEASE DEVICE * 
CC ODEF • 

DC TERM * 

a******************************************** 

BSC I TEND 
PTENC STX LI CORCT 

**•*•• ******************:*♦*****:*«* **** ******* 

BSC I END END PROGRAM * SC 

*•***««»*«*** t**»* ****•**»«*** 4 ««***** ******* 

BSS E 

ORG PIC+/2FE 
PENO CC 

ENO PTBGN 



80408160 
80408170 
80408180 
80408190 
80408200 
80408210 
60408220 
80408230 
80408240 
80408250 
80408260 
80408270 
80408280 
804082S0 
804083C0 
80408310 
804C8320 
80408330 
80408340 
80408350 
80408360 
80408370 
804C8380 
80408390 
804084C0 
80408410 
80408420 
80408430 
80408440 
80408450 
80408460 
804C8470 
80408480 
80408490 
80408500 
80408510 



CROSS REFERENCE LISTING 



SYMBOL 

ALLBX 

BARX 

eEGIN 

BITSX 

BOSS 

B0SS2 

BSYES 

BTLNE 

BUILD 

BUMRC 

CARED 

CKDSX 

CORCT 

COUNX 

CRASH 

ODEF 

0INE1 

0INE2 

0INE3 

0INE4 

0INE5 

0INE6 

OINT 

0INT1 

0INT2 

DINT4 

OSWAS 

OSWBY 

DSHDI 

DSWID 

DSWIT 

DSURX 

DSWR2 

0SWX2 

DULP 

OVA 

EMESG 

END 

ENRIX 

EPA 

ERDSU 

ERLOP 

ERRET 

ERROR 

EXITX 

FEED 

HALT 

HANDL 

INTEO 

INTEX 

KEOOO 

KFFOO 

KOUNX 

K8C40 

LCHAR 

LGMS 

LGMS1 

LOG 

LREAO 

MARK 

MGR1 

MLSCF 

NIPES 



VALUE 

0AB3 

0AA7 

012C 

0AC3 

0879 

087F 

C9AA 

0A2A 

0886 

085C 

CA6C 

0A5A 
0A25 
OACC 
0C16 
0812 
098E 
0993 
099C 
099 D 
C99F 
09A2 
0831 
0834 
083F 
C8*7 
0983 
0981 
0861 
0862 
C85B 
C97C 
097B 
C97C 
0A95 
C81E 
0A61 

012E 
0AB1 
0808 
0A52 
0A57 
0A24 
0130 
OABB 
093E 
0133 
C85E 
0863 
0866 
0A6A 
0A2B 
OACO 
0A28 
0A68 
0A7B 
CA7A 
012F 
0A69 
0A8E 
0890 
0839 
0984 



REFERENCES 

0AC2 

0AC1 

OCC0.0669 

CA99.0AA4 

C874.CA03 



0850 
C9F8 
C87A 
C849 
C8E9 
CA11 
CA55 
C87D 
0AA6 
08C2 
C8 79 
C83C 
C844 
C998 
C992 
C94C 
C84E 
C860 
C84C 
C84A 
0837 
C9 20 
C945 
C834 
C836 
0823 
09EF 
C94B 

09t: 

C8A4 
08E3 
08F3 
0AE4 
COCO 
CAAF 



,C<41,C954,0St4,C984 

.OAOD.OAOF.OAIS 

tOESC 

,0596 



1,0596 

,0«i76,C9Cl,OSCe,09C9,CSCE,09DC,C5E3 t O9FF,OAOE, 
,CA3A,CA41,0A44,0A£6 



,0SE8,0A1E,0AEE 
,C*A7,0AB3,0AB6 
,C£CA,C804,091C 
,CE82,0AEA 



,0598 

,0960, 096F, 0980 



,CS4D,094F 



,0<2e,C93C,0936,C900,C9D5 

,0S49,C959,095D,C968,096C,C9AC,09B3 

,0439 

,0E3F 

,Ce4C,C986.C98E*C993 

,Q9AF,C9B6 

.0EA7 t CABB*0ABC 

,C688 

,CEF7,0A01,0A0 5,CA45,CA48,0A4O,OA4E,OA50,O«51, 

.OAFO 



CA5A 

0A56 

C9A4.0<Ae.CA21 

CCC0.0A52 

CA9D,04A2,CAA9,OABC,0AB2,0AB7 

C8C7.08FA.CA22 



0826 
0831 
C824 
0A4F 
C9F9 
CAAC 
09CB 
0A36 
CA6C 
0A75 
00 CO 
09C3 
CPED 
C6C9 
C6S2 
082E 



,0(35,C841*0990 

,CE2e,C82A,Ce56.C93F. 0952, C962.0S8A, OAEO 

,CA1A 

,OAAD 

,0902,0907 

,CA92 

.0A60.0A70 

,0A6E 

,0A3B 

,0eC4,08CC,0ABD 

,0EE1,C8F0, 6911,09 1A 

,C(/6,C9BC,OA5C,CA76*0A8A,0AD5 



DATE 
EC NO. 



28FER66 
41S120 



C1MAY66 

415120A 



PROG ID 
PAGE 



0804-0 
7 



OATE 
EC NO. 



28FEB66 
415120 



C1MAV66 
415U0A 



PROG 10 
PAGE 



0804-0 
7A 



( I 
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2196358 





o 

o 

o 



NIUNE 

NOPE 

NRIPX 

NIST 



ONE EX 

POSWX 

PENO 

PIO 

PINT1 

PINT3 

POFF 

POINT 

PRDSW 

PTBGN 

PTENC 

PTILZ 

PTLCG 

PTL01 

PTL02 

PTLOfc 

PUNH 

RAO 

RASH 

HDIT 

ROITA 

ROITO 

RDITE 

RDITC 

R0IT1 

R0IT2 

R0IT3 

ROITA 

RDIT5 

R01T6 

READ 

REIOV 

REQOV 

RIO 

RMASK 

ROFF 

RROV 

RTCON 

RTN1 

RTN1A 

RTN1I 

KTN2 

RTN2A 

RTN3 

RTN3A 

RTN4 

RTN4A 

RTN4I 

RTN5A 

RTN5E 

RTN50 

RTN5I 

SAVIT 

SINT 

SORTS 

SRIPX 

START 

S&.CNP 

swo 

SW1 

SW2 
SW3 
TEND 



OAfE 
EC NO. 



0A29 
CAD3 
CA99 
0A26 
0915 
0AC4 
CA5C 
OAFC 
C7FF 
0850 
084E 
097F 
C81F 
CA4C 
0869 
CAEE 
C86C 
GA66 
0A76 
OA75 
0A6E 
0961 
0801 

o-i ir. 

09C0 
C9EC 
09F7 
0A4A 
09E1 
C9FE 
CAOA 
CAID 
CA20 
CA3E 
0A35 
09C1 
0132 
Cl3l 
C8CC 
C978 
0O7E 
09? E 
08AF 
C8BU 
08C2 
C8B7 
C8C4 
C8C6 

race 

0802 
080E 
08E7 
C807 
090 l 
0903 
09C0 
C8FB 
0A27 
0428 
CACE 
CA9E 
012P 
0386 
CB0 2 
0803 
C804 
0805 
0AD9 



C9FA,CAlCtCA12,0A11 

ceu 

CABF 

08 72tC»A2,C9EB,0ACA.0A33 

C9C9 

0AB5 
CA59 
08CC 
C6tB,C89C,C892,0897,C8*0tCAF2 

G830,CBiEtC846 

CPK,Ce3A,C842 

C927,C9tO 

C8 c 9 
CeF5.C9iS,C939,09AC,C9B9,09DA,OA03.0AlE, 

CAFE 

CEB4,C085 

C60t,C8C7,C877 

C9F0.CA73 

0A74 

CA71 

0A7A 

08C0.0914 

C8A0 

0919 

CeCe,C802,CA4A 

C9C3 

CA1C 

CSEA.09FO 

CAC9 

C9DF 

C9E6 

CA15.0A34 

CACB 

CA38 

CA30 

C9A9 

CCCO.0AE8 

CCC0.C87F 

CefcE,C89 7,C89f,Ce < 5C,C9A2 

Cet7,C931,C9ACtCSDl 

C937,C9<.*,t98e,CSB4tC9D6 

c8c6,c8cf,c8e4,c6f9,c932,c93d,ca1f 

C8se,;eao 

08C3 

OACF 

CB/F,C8BC,CA0C 

C8ECC8CB 

CACF 

0881,0805 

CACO 

C8F0 

0AC1 

C8E2 

09C8,C9CC,CAD2 

C9C0 

C9C6 

08B3 

09C8,090B,CA07 

O8 5T,086F 

09A5 

CACO 

O0C0tCA5E.tA7e,OA8CtCA07 

C8S3,08FC,C910 

Ce6D,C9Fl,C9F5,OA20 

C89?,0aD7,C8DE,C£r8,C9CE 

C9C3 

oece.oAtc 



0A47.0A57 
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0AE5 
0AE2 

C86A.0AEB 

092B,CS3B,C946, 095 A, 0949.0*86, 0A88 

0A82t0A83 

CA85 

C9FC.0A13 

OAST 

08A8,C£BS,C917 

0981 

08 53 
08CC,0EEB,C9C6,0S7C,C9El,CAC8,0A37,OA3E.OA8F,O*9B, 

CA9E,0AAC,CAA5,OAB4 

C8CCCFE5 

C943.0S57 

C8E7,C?CS,09CC,OSEC 

C821,CfEE,C91F,092F,C944,CS53»C967,OSCD 

0886, CFB9, 0956,0964 

CB20,CE4C,C85D 

08BF,0FCE,t8E3, 0913,0922,0920 

0668,0*21 
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TEN01 


CAEO 


TEN02 


CAE6 


TERM 


0808 


TIME 


0A7F 


TIMEX 


0A60 


TIME1 


0A88 


TRIAL 


CA2C 


MHAT 


OABF 


WRECK 


0806 


XBSE 


09BB 


X3SVX 


09BE 


XCHAR 


0A67 


XFEEO 


09*0 


XIOFD 


0974 


XIORR 


0976 


XIO$0 


097? 


XIOXX 


0970 


XIT 


0857 


XKROY 


091E 


XMASK 


0979 



2876864 C1MAY66 

415120 415120A 
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PURPOSE 

THt PURPOSE OF THE 1 62 » PLOTTER DIAGNOSTIC TfrST IS TO EXECUTE THE DIFFERENT 
MOVEMENTS OF THE PLOTTER AND TO CHECK THE CABLES FOR CORRECT ADJUSTMENT. 

PREREQUISITES 

2.1 PROGRAM PREREQUISITES 

THIS PROGRAM MUST RUN UNDER CbNTROL OF THE DIAGNOSTIC MONITOR. 
THE DIAGNOSTIC MONITOR PROGRAM USES 2,047 STORAGE WORDS, AND THIS 
PROGRAM USES 1024 STORAGE WORDS. 

2.2 COUIPMLNI PREREQUISITES 
6.1 EOIT 

THE FOLLOWING EQUIPMENT IS REQUIRED. 
A. 1801 OR ie02 DATA ACQUISITION SYSTEM. 
6. 162.7 PLOTTER MODEL 1 OR 2 
USE PROCEDURE 

3.1 PROGRAM LOADING 

STANPARO LOADING PROCEDURE AS OESCRIBED IN THE DIAGNOSTIC MONITOR USE 
PROCEDURE. 

3.2 PROGRAM OPERATION 

STANDARD MONITOR OPERATING PROCEDURES APPLY. 

THfSE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR 

DETAILS. 

1. CLEAR STORAGE 

2. LOAt* DIAGNOSTIC MONITOR 

3. SneXT MODE OF EXECUTIUH 

4;. select monitor control options 

5. select program options from, 

table program control function 
table 1 routinf select function 
Table 2 mammal function control 

6. instruct monitor to execute 

table control. function 



.................. i. jer function on in sense/program switches and 1. 

SENSE/PROGRAM • 2. SE-T P II) IN SfNSE /PROGRAM SWITCHES 2 THROUGH 7. 

P1234567* 3. SET DESIRED CONTROL OPTIONS IN DATA ENTRY SWITCHES 0-15. 

• 4. PRESS CONSOLE INTERRUPT. 
00000101* 



1 

) 

) 



DATA ENTRY SWITCHES 
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 



• DESCRIPTION 



1 BYPASS 7RINTUUT 



f 
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DATE 
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PACK 
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r 
c 



IPM MAINTENANCE C! AGNOSTIC PROGRAM FOR THE IHOO SYSTEM! 
lt>27 FUNCTION TLST 



PARI NO. 219656* 
PAGE 2 



9 



TAHLE 1 RUUIINE SELECTION 

1. SE1 FUNCTION 01 IN SENSE/PROGRAM SWITCHESO AND 1. 



• 

• 



cchtF/PRU RAM • 2. SET PIO IM SfcNSt/PROCKAN SWITCHES 2 THROUGH 7. 
SENSE/PROvRAH . 2. SET ™ ^ RmmNE „ UMBfcR , „ 0ATA £ * T RY SWITCHES 0-15. 

• 4. PRESS CONSOLE INTERRUPT. 



10 10 1* 



OATA ENTRY SWITCHES • DESCRIPTION 

I 2 3 * % 6 7 8 9 10 11 12 II I* 15 • 



1 ROUTINL 1- PEN UP-DOWN OCTAGON TEST 

o 1 ROUT I ME 2- REGISTRATION TEST 

I 1 ROUTINE 3- SWING TEST 

1 ROUTINE 4- STRESS TEST (WINDMILL! 
1 c 1 ROUTINE 5- MANUAL CONTROL 



TAHLC 2 



MANUAL FUNCTION CONTROL 



SENSE/PROGRAM • 
01234567* 

• 

1 1 1 • 



1 SET FUNCTION 10 IM SENSE/Pi?OGR AM SWITCHES ANO 1. 

2. SE1 PID IN SENSe/PROG*** SWITCHES 2 THROUGH 7. 

3. SET OIRECIION CONTROL IN DATA ENTRY SWITCHES 8 THRU 13. 

4. PRFSS CONSOLE INTERRUPT. 



OATA ENTRY SwMC.ES • DESCRIPTION 

. I) I 2 3 « 56 JM 10 11 12 l> 1U5 • 

* NOT USED 

* MOT USclJ 

1 PL-M UP 

* .... 1 PFN LEFT 

* ... 1 Pf «>G HT 

\ . . 1 PAPtH UP 

1 . ,, PAPER DOWN 



l m PEN DOWN 



1. 



.. SfLfcCT SECOND 1627 



3.3 PROGRAM; MALTS 

THIS PROGKAH HAS MO WAIT*. 

3.4 PROGRAM TERMINATION 
STANDARD MONITOR TERMINATION 



....»•••••••••••••••••••••••••••••••••• 
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4.1 COMMAND MESSAGES 

0500 ,"°PLO?? e R*,S A M0T REAUY^THIS IND.CATES THAT THERE IS NO POWER. 

4.2 ERROR MESSAGES 

°* 00 TH,1 l ,MDKAr-ES A A FAILURE."™ RECEIVE AN INTERRUPT AFTER AN .10 
COMMAND WAS GIVEN. 

0500 TH E °PLo??CR A WAt BUSY WHeHhE OSV WAS SfNSED. THIS VOULD INDICATE 
THAT AN "" COMMANO WAS IN PROCESS OR THE DSW BUSY BIT CANNOT 
BE TURNED OFF. 
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COMMENTS 



5.1 



ROUTINE 1 I PEN UP-PEN DOWN OCTAGON TEST I 

THE PURPOSE OF TMIS ROUTINE IS TO TEST THE CAPABILITY OF THE PLOTTER 
TO EXECUTE THE PfN UP ANC PEN OOWM PIOT1P.R CGftaNDS. IN THIS ROUTINE. 
1^ IM THE OTHER PLOTTER PATTERN GE MfR A T I NG ROUTINES, AN ADDRESS TABLE 
it USED TO SELECT THE CORRECT PLOTTER COW*»M>S. THlr ADDRESS TABLE. IN 
URn'p^WS TO I PA |R OF COMPUTER «OR«S. 0*E WORD C«r»IW| BOMBER 
W.HICH INDICATES THE NUMBER OF TIMES TH E OTHER WORD I THE PLOTTER 

commano 1 is to ee executed. 

THE PATTCRN PLOTTED IN THIS FUNCTION TEST CONTAINS TWO ADJACENT 

uc agcV/s m^e sices are o^ and owe. half inches im ^™; ON UCTAl ' 0N 
Nli 1 I leftmost octagon I is plotted in a clockwise oirection. 

OCTAGON HO. T C RioWMOST OCTAGON . IS PLOITED IM A COUNTER CLOCKWISE 

DIRECTION. 

THIS ROUTINE IS DESIGNED SO THAT, IF A PEN UP CUWAMD IS NOT EXECUTED 

II IT I OULO II. \ LINF WILL bt DRAWN IN THE INNER PORTION OF THE 

OCTAGON. IF EN DOWN COM^M) IS NOT EXECUTED. A SIDE OF THE OCT- 

ACON WILL BE MISSING. FIGURE I SHOWS AN EXAMPLE OF THE OUTPUT OF 

THIS ROUTINE. 



5.2 ROUTINE 2 REGISTRATION TEST 

THE FUNCTION OF THIS ROUTINE IS TO DETERMINE IF ANY f^"""""" 6 
NEEOE-T) IN THE PEN OR ORUM MOVEMENT MECHANISMS. F I C-URE ^^SHOWS THE 
PATTERN GRATED BY THIS ROUTINE. IF ANY OF THE LINES FAIL TO 
INTERSECT, SOME MfcCHANICAL ADJUSTMCUT OF THl PLOTTER WAY BE NEEOED. 

5.3 ROUTINE 3 SWING TEST 

THE PURPOSE OF THIS ROUTINE- IS TO TC-ST THE ABILITY OF THE PLOTTER TO 
PLOT LONG LINE SEGMENTS IN VARIOUS 0IACCT1UNS. 1HL "ATURN GCNERUEO 
«v THIS ROOT INt IS SO OTrSIGKED, THAT IF PLOTTER COMMANDS ARE NOT EX- 
ECUTED OR EX RA COhSnOS «r EXECUTE.!.. IMF CORNERS OF THE PATTERN 
WILL So? JOIN. THiVtEST WILL ALSO SHOW UP /ANY MALADJUSTMENT IN THE 
PEN OR ORUM HECMANISM. 
THE MCTHW USED IN GENERATING 1HE PATTERN IS AS FOLLOWS, 

A. TM6 LEFT ANC TOP SIDE* OF A SERIES OF S0UARES ARE ORAWN AS A 
CONTINUOUS LINE, VARY1NC IN SIZE FROM 10 TO 2 1NCMCS. 



PRINTOUTS 

ALL MESSAGES ARC GENERATED BY 1HC MONITOR PRIrtT ftOUTINE A*0 ARC IN STANDARD 

MONITOR FORMAT. 



,-ATE 
it NO. 



28FLB66 
415120 



PRUG 10 
PAGE 



0605-0 

2 



OATE 

(C NO. 



B. 



28FEJ66 
415120 



thf HlKrtl ANO BOTTOM SIDES OF THE SERIES OF SQUARES ARE 
DRAWN M ONE OUARIER INCH L ML SEGMEMS. JOINED TOGETHER. AND 
TOTALING THE LENGTH OF THfc LEFT AND TOP SIDES. 



I 
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c 
t 
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C. ON COMPLETING THE PLOTTING OF THl SOUARES, LINES ARE DRAWN 
I HOTH SEGMENTEO AND CONTINUOUS I THRU THE CORNERS OF THE 
SOUARfcS. AIL OF THESE OIAGONAL LINES SHOULD INTERSECT THE 
CORNERS OF THE SQUARES PERFECTLY. 

FIGURE 3 SHOWS THE PLOTTER PATTERN GENERATED BY THIS ROUTINE. 

5.4 ROUTINE 4 STR6SS TEST t WINDMILL PATTERN » 

THE PURPOSE OF THIS ROUTINE IS 10 EXERCISE ALL OF THE MECHANICAL 
FUNCTIONS OF THE PLOTTER. THIS OBJECTIVf IS ACCOMPLISHED BY PLOT- 
TING A PATTERN Of TRIANGLESt «OUGHLY REStMBEL ING AW4N0MILL. EACH 
SIDE OF THE TRIANGLE CONSISTS OF A SEMES OF SHORT SAWTOOTH-LIKE SEG- 
MENTS, WHICH TESTS THF ABILITY OF THE PLOTTfcR TO PLOT SHORT LINE 
SCGMLNTS WITH ABRUPT CHANGES IN DIRECTION. A SET OF FIVE TRIANGLES 
IS PLOTTED, THE- AXIS IS THEN ROTATED 90 OECKEC-S AND FIVE MORE TRI- 
ANGLE'S ARF PLOTTtO IN THE SAME - MANNER UNTIL, FINALLY, FOUR SETS OF 
TRIANGLES HAVE 8EEN PLOTTED. WHEN THE TRIANGLES HAVE BEEN PLOTTED, t 
LINt IS DKAWN THRU THE INNERMOST POINTS OF THF TRIANGLES. THE RE- 
SULTANT PATTERN THEN APPrARS AS A klNDMILl WITH A 01 AMONO SHAPED 
PATTERN CONNECT ItfG THE- INNER POINTS OF THL TRIAN8L8S. THE DIAMOND 
DESIGN SHOULD INTERSECT ALL OF THt INNER POINTS WF THE TRIANGLES IF 
THE PLUTTLR IS ADJUSTED CORRtCTLY. FIGURE 4 SHOWS THE PLOTTER PAT- 
TERN GENEKA1ED BY THE ROUTINE. 

5.5 ROUTINE 5 < MANUALLY SELECTED PLOTTER COMMANDS ) 

TO USE ROUTINE 5 IT MUST BC SELECTED IH FUNCTION 01. 

THt PURPOSE OF THIS ROUTINE IS TO PkOVIUl TU THE FIELD ENGINEER THE 
CAPABILITY OF EXECUTING ANY PLOTTER COMMAND HE WISHES TO ON THF PLOT- 
TER, BY MEANS OF ENTERING THfc PLOTTER LOMMAND IN THE CONSOLE BIT 
SWITCHES. IHL PLOTTER WILL CONTINUr- TO EXECUTE THE COMMANO UNTIL IT 
RECEIVES ANOIHIR COMMANO FROM THE OPERATORS CONSOLE, OR A COMMANO OF 
ALL ZEROS li lUCeiVEO WHICH WILL END THIS ROUTINE. THF ROUTINE MAY 
ALSO BC Dt-SELfCTtD BY SELECTING ANOTHER ROUTINE. FOR COMMAND 
SETTING RLFCR TO TABLE 2 StCTlCN 3.3.3. 

5.6 ROUTINE i ENO ROUTINE 

THIS ROUTINE MAY BE SELECTED TO TERMINATE THE PROGRAM AND WILL 
RETURN CONTROL TU THE DIAGNOSTIC MONI10R END ROUTINE. 
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6.1 



DDEF 



EDIT PROCEDURE , nrATFn IN THE PAPER TAPE EDIT UTILITY PROGRAM DOCUMENTATION. THE PROPER EDIT CARDS 

m Fououin edit nocture it for card input hbJJ ocedure or JA . ta re jput JfWJ™ ^ ™se e"i cards or updating existik edit cards, ir it .s necessary 

— • ro " DEV,CE DEf 0N ED,T F,ELD - ,T '"' " i- S ESIHSTeSicW! 5 TS,«"S MB: S& « v . * car. ~u-. 



THE LAST EDIT CARD IS THE " END EDIT CARD*. THE INFORMATION IN THIS CARD INCLUDES: 



1. 
2. 
3- 



AN*E" IN COLUMN I. 

THE PID FOR THIS PROGRAM (COL. 2-3). 

A TERMINATOR WORD OF * FFFF* (COL. 7-10) 




CARD CONTAINS THE DDEF'S FOR THE 1627 PLOTTERS. IF THIS SYSTEM HAS ONLY ONE 1627, THEN ONLY ONE ENTRY IS REQUIRED IN THIS CARD. 
CARD END IS THE "END EDIT CARD ". PUNCH EXACTLY AS IS SHOWN. 



DATE 28 FEB 66 
EC M5120 



PROG ID 0805-0 
PAGE k 
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Fl&URE I 



PATTERN FOR PEN UP/PEN DOWN TEST 



:au 3A 



F.G'.'RE . 



PATTERN FOR- REGISTRATION TEST 
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SCALE: }"* • 1 



DATE 28FEB66 

EC NO. 415120 
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SWING TEST - PATTERN 




DATS 28FEB66 
EC NO. 415120 



SCALE: I"* - 1 
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STRESS TtST - WINDMILL PATTERN 
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EC NO. 
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0000 






ORG 


•♦2047 




80500000 


012C 




BEGIN EQU 


300 




80500010 


0120 




START EOU 


BECIN+1 




•0500020 


012E 




END 


EGJ 


START+1 




•0500030 


012F 




LOG 


EQU 


END«1 




80500040 


0130 




ERROR EQU 


LOG+1 




80500050 


0131 




REOOV EQU 


ERROR* 1 




•05000*0 


0132 




RELDV EQU 


REODV+1 




•0500070 


0133 




HALT 

* 
• 


EQU 


RELDV+1 




•0500080 
•0500090 
80500100 






••••• 


PROGRAM STARTER TABLE •*••*»••» 


80500110 






• 








80500120 


07FF 


0500 


• 
PIO 


DC 


/0500 


PROG IDENTIFICATION 


80500130 
80500140 


0800 


0000 


RIO 


OC 


/OOOO 


ROUTINE NUMBER 


80500150 


0801 


0000 


RAO 


OC 


/OOOO 


ROUTINE ADDRESS 


805001*0 


0802 


0000 


SMO 


OC 


/OOOO 


bit snitch func o 


80500170 


0803 


0000 


SHI 


OC 


/OOOO 


BIT SWITCH FUNC 1 


80500180 


0804 


0000 


SM2 


OC 


/OOOO 


BIT SWITCH FUNC 2 


80500190 


0805 


0000 


SU3 


OC 


/OOOO 


BIT SWITCH FUNC 3 


80500200 


0806 1 


0829 


I LP 


OC 


RTO 


INITIALIZATION ADDR 


•0500210 


0807 1 


0829 


LPA 


OC 


RTO 


LOOP PROG ADDR 


80500220 


0808 1 


09CC 


EPA 


OC 


RTOVR 


END FROG ADDR 


80500230 


0809 


OOOC 


MLSCF 


OC 


/OOOO 


1ST MLSCF NORNAL 


80500240 


060A 


0000 




OC 


/OOOO 


2ND MLSCF BUSY 


80500250 


0808 


0000 




DC 


/OOOO 


3RD MLSCF INTR CK 


805002*0 


080C 


FFFF 


TERN 


DC 


/FFFF 


TERMINATOR 


80500270 


0800 1 


OBFO 




DC 


PEND 


PROGRAM EN0 


80500280 


080E 


0000 




DC 


/OOOO 




80500290 


080F 


0000 




DC 


/OOOO 




80500300 


0810 


0000 




OC 


/OOOO 




80500310 


0811 


0000 




OC 


/OOOO 




80500320 


0812 


0000 


• 


DC 


/OOOO 




80500330 
80500340 


0813 


0000 


EOIT1 


DC 


/OOOO 


PLOTTER 1 


805003 SO 


0814 


0000 


E0IT2 

• 


DC 


/OOOO 


PLOTTER 2 


80500360 
80500370 


0815 


0000 


EDIT 

* 
• 


DC 


/OOOO 


INTR AN0 CHAN USED 


80500380 
80500390 
80500400 






»•••* 




ROUTINE INTERRUPT ************* 


80500410 






• 








80500420 






* 








80500430 


0816 


0000 


PLDVA 


DC 


/OOOO 


AREA CODE ANO MOD 


80500440 


0817 


0000 


• 
RECEV 


DC 


/OOOO 


RETURN ADDR SE 


80500450 
80500460 


0818 01 


0C000A92 




XIO L 


SENSE 


SENSE 0SW 


80500470 


081A 


1000 


KEEP1 


NOP 




USE FOR TRAP 


805004*0 


0816 01 


F4000A70 




EOR L 


K8000 


REMOVE SERVICE REQST 


80500490 


0810 01 


04000A0A 




STO L 


ERBIT 


SAVE DSW ERROR BITS 


80500500 


081F 01 


67000A20 


RECSH 


LDX L3 


CONT 


GET MLSCF 


80500510 


0821 


6BE7 




STX 3 


MLSCF 


SET MLSCF 


80500520 


0822 01 


4C800817 


• 
• 


BSC 1 


RECEV 


RETURN TO MONITOR SX 


80500530 
60500540 
80500550 






*•»»*»•»»»«* 


OSM TABLE 


**•»•*•»»*»**»***»*»***»*# 


805005*0 






• 








80500570 






• 








80500580 


0*24 00 


44800 12C 


PLBGN 


BSI I 


BEGIN 


CALL TO MONITOR 


80500590 


0826 1 


07FF 




DC 


PIO 




80500*00 


0827 1 


0817 




OC 


RECEV 


INTERRUPT ENTRY AD0R 


80500610 


0828 


FFFF 


• 


DC 


/FFFF 




80500620 
•0500630 






**»••••••****•*»•»**•»*•»••»•«•*•♦«»•»•«««»»« 


80500640 






* 








80500650 






••••• 




ROU'INE 0- 


INITIALIZATION •**•• 


80500660 






• 








80500670 


OATE 


28FE86* 










PROG 10 0805-0 


EC NO. 


415120 
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0*29 OOOO 

0«2A COEA 
082 B 01 442809CC 
0820 C006 
082E 1S0E 
082F 01 4C040833 

0831 C0E1 

0832 7001 

0833 COEO 

0834 DOEO 

0835 OO 44800131 

0837 1 0849 

0838 1 0815 

0839 1 0816 
083A 1 080C 

083B 6205 
083C 01 C6000A90 
083E E014 
083F E8D6 

0840 01 D6000A90 

0842 72FE 

0843 70F8 

0844 01 6600084E 
OB46 6AC2 
0847 01 4C800829 

0849 01 65000835 
084B 69B0 
064C 00 4C800120 



084E 01 44000933 

0850 6201 

0851 01 4C00090F 

0853 0701 



0854 01 44000A38 

0656 01 C4000A6F 

0858 63F1 

0859 01 D7000A83 
0858 7302 
08SC 70FC 

0850 01 65000A9A 
085F 01 60000A71 
0861 01 44000A0C 

0863 01 44000903 
0865 6202 
0666 01 4C00090F 



0868 01 44000A38 

086A 00 67000064 
086C 01 6F000A82 



OATE 
EC NO. 



28FEB66 
415120 



RTO 



OC 



LO 

BSI 

LO 

SRA 

BSC 

LD 

MOX 

NBTWO LD 

XX STO 

• 

LABEL BSI 
OC 
DC 
DC 
OC 

• 

LDX 
BUILO LD 
ANO 
OR 
STO 
MOX 
MDX 
• 

LDX 
STX 
BSC 

STOBY LDX 
STX 
BSC 

* 

RUNIT BSI 
LDX 
BSC 

K0701 OC 

* 

RT1 BSI 

LD 
LOX 

BOOT STO 
MOX 
MDX 

• 

LOX 
STX 
BSI 



/OOOO 

EDIT 
L RTOVR, *Z 

SN2 

14 
L NBTWO»E 

E0IT1 

XX 

E0IT2 

EDIT 

I REQDV 
STDBV 
EDIT 
PLDVA 
TERN 

2 5 

L2 SENT 

K0701 

PLOVA 
L2 SENT 
2 -2 

BUILD 

L2 RUNIT 
2 MLSCF 
I RTO 

LI LABEL 

1 MLSCF 

I START 



L BSWCK 

2 1 
L RTSET 



/0701 
ROUTINE 1- 
READY 



BSI 
LOX 
BSC 



* 
••••• 

* 
RT2 



L K0150 
3 -15 

L3 NN+15 
3 2 
BOOT 

LI RT1ST 
LI LOOK 
L DISP 

L BSUCK 

2 2 
L RTSET 



RETURN AOOR E 

RELEASE DEVICE NINE 



BCH ON BIT 1 
PLOTTER 1 OOEF 

PLOTTER 2 OOEF 
OOEF CONTROLS 

REQUEST OEVICE SC 
3USV ADDR 
INTR ANO CHAN 
AREA CODE AND MOO 
TERMINATOR 



LOAO FUNCTION 

AREA CODE 

SET IN I/O COMMAND 



LO XR2 WITH RE-ENTRY 

<ET MLSCF 

RETURN TO MONITOR 

GET BUSY AOOR 
SET NLSCF 

RETURN TO MONITOR 



CHECK BIT SWITCH SC 
SET ROUTINE 1 
SET ROUTINE 

REMOVE AREA COOE HSK 

OCTAGON PEN UP-DOWN 

CHECK STATUS ESC 

CONSTANT OF 150 

STORE MOVE COUNT 



START COMMAND ADDR 
POINTS TO COMMAND 
USE DISPATCH ROUTINE SC 



CHECK BIT SWITCH 
NEW ROUTINE NUMBER 



SC 



ROUTINE 2- REGISTRATION TEST *• 



BSI L READY 

LDX L3 100 
STX L3 NW 



CHECK STATUS 
SET UP COUNT 



ESC 
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•0500*00 

•0500**0 

•0500700 

•0500705 

8050070* 

•0500710 

•0500720 

•0500730 

•0500740 

•0500750 

•05007*0 

•0500770 

•0S007M 

•05007*0 

80500800 

80500810 

80500*20 

80500*30 

80500*40 

80500*50 

805008*0 

•05008*5 

80500870 

80500880 

•0500*90 

•0500*00 

•0500910 

80500*20 

•0500*30 

•0500940 

•0509950 

805009*0 

80500970 

805009*0 

80500990 

80501000 

•0501010 

•0501020 

•0501030 

80501040 

80501045 

•050 1050 

•05010*0 

00501070 

805010*0 

80501090 

•0501100 

•0501110 

•0501120 

■0501130 

•0501140 

•0501150 

•05011*0 

•0501170 

•05011*0 

•05011*0 

•0501200 

80501210 

80501 2?0 

•0501230 

•0501240 

80501250 

805012*0 

80501270 

805012*0 

80501290 

80501300 

80501310 



PROG ID 
PAGE 



0805-0 
1A 



»L 



( 
C 

c 

c 



IBM MAINTENANCE DIAGNOSTIC PAOGAAN FOA THE 1*00 SYSTEM 
1*27 FUNCTION TEST 



SHE 


01 


6FO00AM 


MTO 


01 


6F00OA74 


0872 


01 


6F000A76 


0874 


01 


6F000A7C 


067* 


01 


6FOO0A7E 


0878 


00 


67000032 


087A 


01 


6F000A76 


067C 


01 


6F0O0A7A 


007E 


01 


65000AEC 


0380 


01 


*0000A71 


0882 





*305 


08S3 


01 


*FOO0ACB 


0665 


01 


4400OA0C 



0867 01 74010A71 
0889 00 670003E0 
0666 01 *F000A7« 

OSSD 01 44000AOC 

088F 01 74FE0A71 

0891 01 74FF0A6B 

0893 70F9 

0894 01 74030A71 
089* 6305 
0897 01 6FO00A6B 

0899 CI 44000AOC 
089B 01 74FE0A71 
0890 01 74FF0A6B 
089F 70F9 

08A0 630A 
08A1 01 6F000A6B 
08A3 01 74030A71 

08A5 01 44000AOC 
08A7 01 74F80A71 
08A9 01 74FF0A6B 
08AB 70F9 

08AC 01 74090A71 
08AE 6332 
08AF 01 6FO00A76 
08B1 00 670003E8 
08B3 01 6F000A7A 
08B5 01 44000AOC 

0BB7 01 44000903 
08B9 6203 
08BA 01 4C00090F 



08BC 01 44000A38 



0.*BE 
OSBF 
08CO 
08C2 
0SC4 
08C5 
08C7 
08C8 



6328 
6B2C 

00 670000CB 

01 6F000A74 

6364 

01 6F000A7C 

6332 

01 6FO00A78 



STX 

STX 
STX 
STX 
STX 

LOX 
STX 
STX 

• 

LOX 
STX 
LOX 
STX 
BSI 

• 

HOX 
LOX 
STX 

REG01 BSI 

HOX 

MOX 

NOX 

• 

MOX 
LOX 
STX 
* 

REG02 BSI 

HOX 

HOX 

HOX 

* 

LOX 
STX 
MOX 
• 

REG03 BSI 

HOX 

HOX 

HOX 

• 

MOX 
LwX 
STX 
LDX 
STX 
BSI 

BSI 
LDX 
BSC 



DATE 
EC NO. 



2SFEB** 

619120 



t 



LS SN 
L3 NN 
LS SS 
L3 NE 
L3 SE 
L3 50 
L3 EE 
L3 MM 

LI RT2ST 

LI LOOK 

3 5 
L3 EXTRA 
L DISP 

L LOOK.l 
L3 1000 
L3 EE 

I 01SP 
L LOOK, -2 
L EXTRA,-l 
REG01 

L LOOK, 3 

3 5 
L3 EXTRA 

L DISP 
L LOOK, -2 
L EXTRA.-l 
REG02 

3 10 
L3 EXTRA 
L LOOK, 3 

L OISP 
L LOOK.-B 
L EXTRA,- I 
REG03 

L LOOK, 9 

3 50 
L3 SS 
L3 1000 
L3 WU 
L DISP 

L BSWCK 

2 3 
L RTSET 



START COHH AND AODR 
POINTS TO COMMAND 

LOOP COUNT 

USE DISPATCH ROUTINE SC 



CHANGE COUNT 

USE DISPATCH ROUTINE SC 
REDUCE LOOP COUNT 



LOOP COUNT 

USE DISPATCH ROUTINE SC 



USE OISPATCH ROUTINE SC 



ROUTINE 



li BSI L READY 



USE DISPATCH ROUTINE SC 
CHECK BIT SWITCH SC 
X 

3- SUING TEST »•*♦••»•♦ 

CHECK STATUS «C 



LDX 
STX 
LOX 
STX 
LOX 
STX 
LOX 
STX 



3 40 

3 SMNG2*1 
L3 200 
L3 NN 

3 100 
L3 NE 

3 50 
L3 EE 



PART NO. 219*3*2 
PAGE Z 



•0501320 

•0501330 

•0501340 

•0501350 

•05013*0 

•0501370 

80501380 

•0501390 

•0501400 

•0501410 

•0501420 

•0501430 

80501440 

80501450 

•05014*0 

•0501470 

80501480 

•0501490 

•0501500 

80501510 

80501520 

•0501530 

•0501540 

80501550 

805015*0 

•0501570 

•0501500 

•0501590 

80501*00 

80501*10 

80501*20 

80501630 

80501640 

80501*50 

80501**0 

80501*1) 

80501680 

80501*90 

80501700 

80501710 

80501720 

80501730 

80501740 

80501750 

80501760 

80501770 

80501780 

80501790 

80501800 

80501810 

•0501820 

•0501*30 

80501840 

80501850 

•0501860 

80501870 

80501880 

•0501*90 

80501900 

80501910 

80501920 

80501930 

80501940 

80501950 

805019*0 

80501970 

805019*0 

•0501990 



PROG ID 
PAGE 



0*05-0 

2 



X 

t 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1*00 SYSTEM 
1*27 FUNCTION TEST 



08CA 01 65000BOB 
OSCC 01 6D000A71 
OBCE 01 440O0A0C 



0800 
08D2 
08D4 
0S06 
0808 
080A 
08DB 
0800 
08DF 
08E1 
08E3 



01 74010A71 

00 67000 1F4 

01 6F000A82 
01 6F000A7E 
01 6FOOOA80 

6319 

01 6F0O0A76 
01 6F000A7A 

00 670003E8 

01 6FO00A74 
01 6F0O0A78 



OSES *305 
08E6 01 6F000A72 



OSES 
08E9 01 
08EB 00 
OSED 01 
08EF 01 
08F1 01 
08F3 01 
0SF5 



6302 

6F000AT3 

67000028 

6F000A6B 

44000A0C 

74FF0A71 

74FF0A6B 

70F9 



08F6 01 74020A71 
08F8 01 74FF0A73 
08FA 7OF0 



08FB 01 
08F0 01 
08FF 
0900 01 
0902 01 

0904 

0905 01 
0907 
0S08 01 
090 A 01 
090C 01 
090E 



749C0A74 

749C0A74 

1000 

749C0A78 

749C0A78 

1000 

74F80BEC 

1000 

44000AOC 

74F70A71 

74FF0A72 

7009 



090F 01 740A0A71 
0911 00 670003E8 
0913 01 6F000A74 
0915 01 6F000A76 

0917 01 44000A0C 
0919 01 74010A71 
091B 6302 
091C 01 6F0O0A73 
091E 6319 
091F 01 6F000AS2 
0921 01 6F000A7C 

0923 6314 

0924 01 6F000A6B 
0926 01 44C00A0C 
0928 01 74FF0A71 
092 A 01 74FF0A6B 
092C 70F9 

0920 01 74020A71 
092F 01 74FF0A73 
0931 70F1 



LDX 
STX 
BSI 

• 

MOX 
LDX 
STX 
STX 
STX 
LDX 
STX 
STX 
LDX 
STX 
STX 

LOX 
STX 

• 

SHNG1 LDX 
STX 

SHNG2 LDX 
STX 

SWNG3 BSI 
MDX 
MOX 
MDX 

• 

MDX 
HDX 
HOX 

HDX 
NOX 

KEEP2 NOP 
HOX 
HOX 

KEEPS NOP 
KOX 

KEC?4 NOP 
BSI 
MDX 
HDX 
HDX 

• 

HDX 
LDX 
STX 



DATE 
EC NO. 



LI RT3ST 
LI LOOK 
L OISP 

L LOOK.l 
LS 500 
LS NN 
LS SE 
LS SH 
3 25 
L3 SS 
L3 UN 
L3 1000 
LS NN 
LS EE 

3 5 

L3 SORCT 

3 2 

13 TRICT 
L3 40 
L3 EXTRA 
L DISP 
L LOOK.-l 
L EXTRA.-l 
SMNG3 



.'ART COMMAND ADOR 
USE DISPATCH ROUTINE SC 



L LOOK, 2 
L TRICT.-1 
SNNG2 



SQUARE COUNT 



SEGMENTEO LINE COUNT 

LOOP COUNT 

USE DISPATCH ROUTINE SC 



DO ANOTHER SEGHENT 



DO ANOTHER LINE 



HOX MILL HOP THIS 



NN,-100 
NN.-100 

EE.-100 

EE.-100 

MDX MILL SKIP THIS 

SWNG2+1«-S ADJ LINE LENGTH 

NOX HILL SKIF THIS 
USE OISPATCH ROUTINE 



OISP 
L00K.-9 
SORCT, -1 
SUNG1 



SC 



DO ANOTHER SQUARE 



L LOOK, 10 
L3 1000 
L3 NN 



LDX 
STX 
LDX 
STX 
STX 

SHNG5 LOX 
STX 

SHNG4 BSI 
MDX 
HOX 
HDX 



STX L3 SS 

BSI L DISP 
MDX L LOOK.l 



3 2 

L3 TRICT 

3 25 
L3 NH 
LS NE 



USE OISPATCH ROUTINE SC 



SEGMENTEO LINE COUNT 



3 
L3 

L 
L 
L 



20 

EXTRA 

DISP 

LOOK.-l 

EXTRA.-l 

SUNG4 



MOX L LOOK, 2 
MOX L TRICT.-1 

MOX SWNGS 



LOOP COUNT 

USE OISPATCH ROUTINE 



DO ANOTHER LINE 



DO ANOTHER LINE 



SC 



PAKT NO. 21**S*2 
PACE ** 



•05O20M 

•0502010 

60502020 

80*020 M 

•0502040 

•0502050 

•05020*0 

•0502070 

•05O2000 

•05020*0 

•0502100 

•0502110 

•0502120 

•0502130 

•05021*0 

•0502150 

•05021*0 

•0502170 

•0502100 

•0502190 

•0502200 

•0502210 

•0502220 

•0S022S0 

80502240 

80502250 

•05022*0 

•0502270 

•0502200 

•05022*0 

80502300 

S0502310 

80502320 

S0502330 

60502340 

80502350 

605023*0 

80502370 

805023*0 

80502390 

80502400 

80502410 

60502420 

80502430 

60502440 

60502450 

605024*0 

80502470 

605024*0 

605024*0 

60502500 

60502510 

80502520 

80502530 

605025*0 

80502550 

605025*0 

60502570 

80502500 

•05025*0 

80502*00 

•0502*10 

80502*20 

80502630 

•0502**0 

•0502*50 

805026*0 

•0502*70 



2BFEB6* 

415120 



PROG 10 
PACE 



0*05-0 
2A 



<<<<<<<<<<<< <<<<<;< <<<<<<(<< < A -i :-i ( 



<l < 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



PART NO. 219*342 



( 














PACE 3 


( 


1*27 FUNCTION TEST 














r 




• 










80302*80 




0932 01 4*000903 




BSI 


L BSWCK 


CHECK BIT SWITCHCS 


SC 


80502690 




0934 6204 




LUX 


2 4 


NEW ROUTINE NUMBER 




80502700 




0935 01 4C00090F 


• 
• 


BSC 


L RTSET 




X 


80502T10 
80502720 
80502730 






•***« 




ROUTINE 


4- WINDMILL DESIGN «*•• 




80502740 






• 










80502750 






• 










80502760 




0937 01 44000A38 


RT4 

• 


62.1 


L READY 


CHECK STATUS 


ESC 


80502770 
80502780 




0939 00 67000164 




LOX 


L3 356 


SET UP COUNT 




80502790 




093B 01 6F000A7C 




STX 


L3 NE 






80502800 




0930 01 6F000A74 




STX 


L3 NN 






80502810 




093F 01 67000B28 




LOX 


L3 RT4ST 


START COMMAND AOOR 




80502820 




0941 01 6F000A71 




STX 


L3 LOOK 






80502830 




0943 01 44000AOC 


• 


BSI 


L OISP 


USE DISPATCH ROUTINE 


SC 


80502840 
80502850 




0945 01 74010A71 




MDX 


L LOOK.l 






80502860 




0947 62F1 




LDX 


2 -15 






80502870 




0948 CI C4000A60 




LD 


L K0002 


MOVE COUNT 




80502880 




094 A 01 06000A83 


HMIL1 


STO 


L2 NN+15 






80502890 




094C 7202 




MDX 


2 2 






80502900 




0940 70FC 




MDX 


HMIL1 






80502910 
80502920 




094E 01 67000A7C 




LDX 


L3 NE 






80502933 




0950 401B 




BSI 


TCNTL 


USE TRIANGLE CONTROL 


SC 


80502940 
80502950 




0951 01 67000A7E 




LDX 


L3 SE 






80502960 




0953 4018 




BSI 


TCNTL 


USE TRIANGLE CONTROL 


SC 


80502970 
80502980 




0954 01 67000A80 




LCX 


L3 SU 






80502990 




0956 4015 




BSI 


TCNTL 


USE TRIANGLE CONTROL 


SC 


80503000 
80503010 




0957 01 67000A82 




LOX 


L3 NW 






80503020 




0959 4012 




BSI 


TCNTL 


USE TRIANGLE CONTROL 


SC 


80503030 

80503040 




095 A 00 670000C8 




LCX 


L3 200 






80503050 




095C 01 6F000A82 




STX 


L3 NW 






80503060 




095E 01 6F000A7C 




STX 


L3 NE 






80503070 




0960 01 6F000A7E 




STX 


L3 SE 






80503080 




0962 01 6F000A80 




STX 


L3 SU 






80503090 




0964 01 74010A71 




MCX 


.. LOOK.l 






80503100 




0966 01 44000A0C 


• 


BJI 


L OISP 


DRAW SQUARE 


SC 


80503110 
80503120 




0968 406A 




BSI 


BSWCK 


CHECK BIT SWITCH 


SC 


80503130 




0969 6206 




LOX 


2 6 


NEW ROUTINE 




80503140 




096A 01 4C0009DF 


• 
• 


BSC 


L RTSET 




X 


80503150 
80503160 
80503170 






*•••• 




TRIANGLE 


CONTROL ****»»»»»**♦** 




80503180 






* 










80503190 






• 










B0503200 




096C 0000 


TCNTL 


DC 


/OOOO 


RETURN AOOR 


SE 


80503210 




096D 6B28 




STX 


3 CHGl+l 




PR01 


80503220 




096E 6B2E 




STX 


3 CHG2+1 




PR02 


80503230 




096F 6B35 




STX 


3 CHG3+1 




PR03 


80503240 




0970 6305 




LDX 


3 5 






80503250 




0971 01 6F000A73 


• 


STX 


L3 TRICT 


TRIANGLE COUNT 




80503260 
80503270 




0973 6356 


RUN 


LOX 


3 86 


START TRIANGLE 




80503280 




0974 01 6F0OOA6B 


• 


STX 


L3 EXTRA 






80503290 
80503300 




0976 01 44000AOC 


SI0E1 


BSI 


L DISP 


SIOE ONE 


SC 


80503310 




0978 01 74FE0A71 




MOX 


L LOOK, -2 






80503320 




097A 01 74FF0A6B 




MOX 


L EXTRAt-1 






80503330 




097C 70F9 


• 


MOX 


sicn 






80503340 
80503350 




OATE 28FEB6* 












PROG 10 0805-0 




EC NO. 415120 












PAGE 3 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1*00 SYSTEM 



1*27 FUNCTION TEST 



PART NO. 219*3*2 
PAGE SA 



0970 01 74030A71 




MOX 


L 


LOOK, 3 






•05033*0 


097F *32B 




LOX 


3 


43 






•0503370 


0980 01 6F000A6B 


• 


STX 


L3 


EXTRA 






80503300 
•0503390 


0982 01 44000A0C 


SI0E2 


BSI 


L 


OISP 


SIOE TWO 


SC 


•0503400 


0984 01 74FE0A71 




MDX 


L 


LOOK ,-2 






•0503410 


0986 01 74FF0A6B 




MDX 


L 


EXT-tA,-l 






•0503420 


0988 70F9 


* 


MOX 




SI0E2 






•0503430 
•0503440 


09B9 01 74030A71 




MDX 


L 


LOCK, 3 






•05034S0 


098B 6356 




LOX 


3 


a* 






8050 34*C 


098C 01 6F000A6B 


• 


STX 


L3 


EXTRA 






•0503470 

■0503480 


098E 01 44000AOC 


SI0E3 


BSI 


L 


DISP 


SIDE THREE 


SC 


•05034*0 


0990 01 74FD0A71 




MDX 


L 


LOOK ,-3 






•0503500 


0992 01 74FF0A6B 




MOX 


L 


EXTRA.-l 






80503510 


0994 70F9 


• 


MOX 




SIDES 






80503520 
80503530 


0995 01 74300A7C 


CHG1 


MOX 


L 


NE.48 




PM01 


80503540 


0997 01 74C40A71 




MDX 


L 


LOOK ,4 






80503550 


0999 01 74CF0A73 




MDX 


L 


TRICT.-l 


TRIANGLE COUNT 




•0503560 


099 B 7006 


• 


MDX 




TOP 






80503570 
•05035*0 


099C 01 74D00A7C 


CHG2 


MDX 


L 


NE.-48 




PM02 


80503590 


099E 01 74030A71 




MDX 


L 


LOOK, 3 






80503*00 


09A0 01 4C80096C 


• 


BSC 


I 


TCNTL 


RETURN TO PROG 


sx 


80503610 
80503*20 


09A2 01 44000AOC 


TOP 


BSI 


L 


OISP 


USE OISPATCH ROUTINE 


SC 


80503*30 


09A4 01 74D00A7C 


CHG3 


MDX 


L 


NE,-48 




PM03 


80503*40 


09A6 01 74F30A71 




MDX 


L 


L00K.-13 






80503*50 


09A8 70CA 


• 
• 


MOX 




RUN 


00 ANOTHER TRIANGLE 




80503**0 
80503670 
80503*00 




•*•** 






ROUTINE 5- 


MANUAL CONTROL •**•* 




80503690 




• 












80503700 




• 












80503710 


09A9 01 67000B6D 


RT5 


LDX 


L3 


RT5ST 


START COMMANO AOOR 


E 


80503720 


09AB 01 6F000A71 




STX 


L3 


LOOK 


POINTS TO COMMAND 




80503730 


09A0 01 C4000804 




LO 


L 


SH2 






80503740 


09AF 1002 




SLA 




2 






30503750 


09B0 4820 




BSC 




I 






805037*0 


09B1 7007 




MDX 




RT5A 


BCH TO MANUAL CNTL 




80503770 


09B2 4020 




BSI 




BSWCK 


CHECK BIT SWITCH 


SC 


80503700 


09B3 01 670009A9 




LDX 


L3 


RT5 


PICK UP MLSCF ENTRY 




80503790 


09B5 01 6F000809 




STX 


L3 


MLSCF 


SET MLSCF 




80503*00 


09B7 00 4C800120 


• 


BSC 


I 


START 


LOOP THRU MONITOR 


X 


80503810 
80503820 


09B9 01 670009B9 


RT5A 


LDX 


L3 


RT5A 


MODIFY RETURN ADDR 




80503*30 


09BB 01 6F000820 




STX 


L3 


RECSW+1 


FOR INTERRUPT RTNE. 




80503*40 


09B0 01 C4000804 




LD 


L 


SU2 


BIT SWITCH STORAGE 




•0503*50 


09BF 1802 




SRA 




2 






805038*0 


09C0 100 A 




SLA 




10 






80503870 


09C1 01 D4000A97 




STO 


L 


SBSW2 


NEW COMMAND 




8050 38 80 


09C3 01 44200A0C 




BSI 


L 


DISP.Z 


TEST FOR END OF RTNE 


SC 


80503890 


09C5 01 67000A2D 




LDX 


L3 


CONT 






80503900 


09C7 01 6F000820 




STX 


L3 


RECSW+1 


RESTORE RETURN ADDR. 




80503910 


09C9 4009 


• 
• 


BSI 




BSWCK 


CHECK BIT SWITCH 


SC 


80503920 
80503930 
80503940 


09CA 00 4C80012E 


RTENO 

• 


BSC 


I 


END 


GO TO MONITOR 


X 


80503950 
805039*0 


09CC 0000 


RTOVR 

* 


DC 




/OOOO 


RETURN ADDR 


SE 


80503970 
80503980 


09C0 00 44800132 




BSI 


I 


RELOV 


RELEASE DEVICE 


SC 


80503990 


09CF 1 0815 




DC 




EOIT 






80504000 


C900 1 080C 




DC 




TERM 


TERMINATOR 




80504010 


0901 01 4C8009CC 


* 


BSC 


I 


RTOVR 


RETURN TO PROGRAM 


SX 


80504020 
80504030 


OATE 28FEB6* 














PROG 10 0805-0 


EC NO. 415120 
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IBM HAINTENAMCE DIAGNOSTIC PROGRAM FOR THE 1000 SYSTEM 
1*27 FUNCTION Tf ST 



PART NO. 2104302 
PAGE 4 



ION MAINTENANCE DIAGNOSTIC PROGRAM FOft THE 1000 SVSTEN 
1*27 FUNCTION TEST 



PANT NO. 214*444 
FACE 4a 







— ♦*» 


**••**•*•*•»**»* 






80504040 






• 








• 




80904050 

805040*0 












COMMON 


SUB ROUTINES ***••••••** 








• 












00504070 






• 












80504080 






***** 






ROUTINE 






80904090 






• 












80504100 


0903 


0000 


•SUCK 


DC 




/OOOO 


RETURN ADORESS 


SE 


80504110 


0904 01 


C4000803 




LD 


L 


SHI 


BIT SWITCH STORAGE 




80504120 


090* 01 


4C98O903 




BSC 


I 


6SWCK.+- BCH ON ZERO 


sx 


80504130 


09OS 01 


E40O0A6E 




ANO 


L 


K0007 


SAVE ROUTINE NUMBER 




80504140 


090A 01 


04000800 




STO 


L 


RIO 


STORE ROUTINE NUMBER 




80504190 


090C 01 


66800800 




LOX 


12 


RIO 


LOAD XR 2 INDERCT 




805041*0 


090C 


7002 


• 


HOX 




RERUN 






80504170 
805041 BO 


09DF 01 


*E000800 


RTSET 


STX 


L2 


RIO 


STORE ROUTINE NUMBER 




B0S04190 


09E1 04 


CM009E9 


RERUN 


to 


L2 


RTABL 


GET ROUTINE ADDR AND 




80504200 


09E3 01 


0AOO0809 




STO 


L 


MLSCF 


SET MLSCF 




00504210 


09ES 01 


040OO801 




STO 


L 


RAD 


ROUTINE AOOR 




80504220 


09E7 00 


4C60012D 


• 


BSC 


I 


START 


RETURN TO MONITOR 


sx 


80504230 
80504240 


09E9 


0000 


RTABL 


DC 




/OOOO 


ROUTINE TABLE 




80504250 


09EA 1 


0854 




DC 




RT1 


P.EN UP-DOWN OCTAGON 




805042*0 


09E8 1 


08*8 




DC 




RT2 


REGISTRATION TEST 




80504270 


09EC 1 


088C 




DC 




RT3 


SWING TEST 




80504280 


09ED 1 


0937 




DC 




RT4 


WINDMILL TEST 




80504290 


09EE 1 


09A9 




DC 




RT5 


MANUAL CONTROL 




80504300 


09EF 1 


09CA 


•*••• 


DC 




RTEND 
ROUTINE 


ROUTINE END 

BUSY ****************** 




80504310 
80504320 
80504330 
80504340 
80504350 
805043*0 


09F0 


0000 


BUSY 


DC 




/OOOO 


RETURN ADDR 


SE 


80504370 


09F1 01 


CC000A8E 




LOO 


L 


MBUSY 


MSG- BUSY 




80504380 


09F3 


4002 




BSI 




ERR1 


USE ERROR ROUTINE 


SC 


80504390 


09F4 01 


4C8009FO 


• 
• 
***** 

• 
* 


BSC 


I 


BUSY 
ROUTINE 


TURN TO PROGRAM 
ERROR TYPE OUT ****•••• 


SX 


80504400 
80504410 
80504420 
80504430 
80504440 
80504450 


09F* 


0000 


ERR1 

• 


DC 




/OOOO 


RETURN ADDR 


SE 


80504460 
80504470 


09F7 00 


44800130 


ERBSV 


BSI 


I 


ERROR 


CALL MONITOR ERROR 


SC 


80504480 


09F9 1 


OAO* 




DC 




ERMSC 


MESSAGE ADDR 




80504490 


09FA 1 


09FF 




DC 




REPT1 


BUSY AOOR 




8050*500 


09FS 1 


09FF 


• 


DC 




REFTl 


ERROR ADDR 




80504510 
80504520 


09FC 01 


658009F6 




LOX 


11 


ERR1 






80504530 


09FE 


7002 


• 


HOX 




OUT 






80504540 
80504S50 


09FF 01 


650009F7 


REPT1 


LOX 


LI 


EfcBSV 






805045*0 


0A01 01 


60000809 


OUT 


STX 


LI 


MLSCF 


SET MLSCF 




SOS04570 


0A03 00 


4C60012D 


• 


BSC 


I 


START 


RETURN TO MONITOR 


SX 


60504580 
80504590 


OAO* 


0000 




BSS 


E 









80504*00 


OAO* 


0003 


ERMSG 


DC 




/0003 


WORD COUNT 




80504*10 


0A07 


0000 




OC 




/OOOO 


HEX CONTROL 




80504620 


OAoa o 


E003 




DC 




/E003 


MESSAGE NUMBER 




80504*30 


0A09 


B1EE 




DC 




/B1EE 


CODED MESSAGE 




80504*40 


OAOA 


0000 


ERBIT 


DC 




/OOOO 


BITS IN ERROR 




80504650 


0A0B 


0000 


02BE 
••••• 


DC 




/OOOO 
ROUTINE 


CORRECT BITS 
DISPATCH **••*»•«**•••* 




805046*0 
80504670 
B0S046B0 
80504*90 
80504700 
80504710 


OATE 


2SFE8** 
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OAOC 





OOOO 


01 SP 


OC 




/OOOO 


•■TURN ADO* 


SE 


0494*724 


OAOO 


01 


6S800A71 


NEXT 


LOX 


11 


LOOK 


*t STORE IN 1 




80534730 


OAOF 





•9*1 




STX 


1 


LOOK 


SAVE XR 1 




M544740 


0A10 


00 


C 0800000 




LOO 


11 





GET COUNT ♦ OINCCTION 




80544790 


0A12 


01 


0COOOA9S 


• 


STO 


i_ 


COUNT 






84544740 
04504774 


0A14 


01 


4C900AOC 




BSC 


I 


DlSPt*- 


BCH ON ZERO 


SX 


40944740 


0A1* 





4021 




BSI 




REAOV 


CHECK STATUS 


SC 


4454*744 


0A1T 





087C 


PLOT 


XIO 




MARK 


HOVE COMMAND 




00904444 


0A1* 





0877 




XIO 




SEt:r 


SENSE DSU 




04944414 


0A19 





OOFO 




STO 




ERBIT 


SAVE ERROR BITS 




8454*024 


0A1A 





F0S2 




EOR 




K0002 


CHECK BUSY 




80584630 


0A1B 


01 


4C1B0A1F 




•SC 


L 


TINE.*- 


BCH ON ZERO 




B0504444 


0A1D 





DOED 




STO 




02BE 


CORRECT OSM BITS 




84544494 


0A1E 





4007 


* 


BSI 




ERR1 


USE ERROR ROUTINE 


SC 


80504444 
04944474 


0A1F 


00 


65000700 


TIME 


LOX 


LI 


/0700 


TIMING CONSTANT 




80944404 


0A21 





6948 




STX 


1 


CONST 






80904444 


0A22 


01 


65000A28 


HOPV 


LOX 


LI 


HOP 


GET MLSCF 




80904904 


0A24 


01 


6D000B0B 




STX 


LI 


MLSCF«2 


SET MLSCF 




•4944914 


0A2* 


00 


4CS00120 


• 


BSC 


I 


START 


RETURN TO HON I TON 


sx 


04944924 
80904934 


0A2S 


01 


74FF0A6A 


HOP 


NOX 


L 


CONST t-1 


REDUCE TIMER 


SE 


049444*4 


0A2A 





70F7 




MOX 




HOPV 






•09444S4 


0A2B 





C860 




LDO 




MNINT 


MSG- NO INTERRUPT 




00904944 


0A2C 





4023 


• 


BSI 




TYPE 


USE TYPE ROUTINE 


SC 


80904970 
00904900 


0A20 


01 


74FF0A98 


CONT 


MDX 


L 


COUNTt-1 


REDUCE COUNT 




00904994 


0A2F 





70E7 


• 


HOX 




PLOT 






00549440 
80949014 


0A30 


01 


7401 0A71 




NOX 


L 


LOOKtl 


INCREASE LOOK 4T 1 




80909020 


0A32 





700A 


• 
• 
***** 

• 
* 


HDX 




NEXT 
ROUTINE 


NOT READY ****** «» 




80509030 
80509444 
805O5OS0 
809094*4 
80909074 
84909404 


0A33 





OOOO 


NRDY 


OC 




/OOOO 


RETURN AOOR 


SE 


80909494 


0A34 





C8S5 




LDO 




MNRDY 


MSG- NOT READY 




00505140 


0A35 





401A 




BSI 




TYPE 


USE TYPE ROUTINE 


SC 


80505114 


0A36 


01 


4C800A33 


• 
• 

***** 

* 

• 


BSC 


I 


NRDY 
ROUTINE 


RETURN TO PROGRAM 
STATUS CHECK •**#••**** 


sx 


80909124 
80909134 
80909144 
80905194 
809091*4 
80909170 


0A38 





OOOO 


READY 


DC 




/OOOO 


RETURN AOOR 


SE 


80505104 


0A39 





0858 




XIO 




SENSE 


SENSE DSW ANO NESET 




80505194 


0A3A 


01 


4C980A38 




BSC 


I 


READVt*- 


BCH ON ZERO 


SX 


0050S204 


0A3C 





ooeo 




STO 




ER8IT 


SAVE OSN 




80909210 


0A3D 


01 


44040A33 




BSI 


L 


NRDV.E 


BCH IF BIT IS ONI 


SC 


00909224 


0A3F 





COCA 




LD 




ERBIT 


GET ERROR OSN 




80909234 


0A40 





1801 




SNA 




1 






80505244 


0A41 


01 


440409F0 




BSI 


L 


BUSV.E 


BCH IF BIT 14 ON 


SC 


80505250 


0A43 





C0C6 




LD 




ERBIT 


GET ERROR DSU 




805052*0 


0AV4 





1802 




SRA 




2 






80505270 


0A45 


01 


442009F* 




BSI 


L 


ERRltZ 


BCH ON BITS 


SC 


805052 BO 


0A47 





084A 


NOT 


XIO 




SENSE 


SENSE OSM ANO NESET 




80505290 


0A48 


01 


4C980A38 




BSC 


I 


READY, *~ 


RETURN TO PROG ON 


sx 


80S0S304 


0A4A 


01 


65000A47 




LDX 


LI 


.-40T 


GET MLSCF 




80505310 


0A4C 


01 


60000S09 




STX 


LI 


MLSCF 


SET MLSCF 




80505320 


0A4E 


00 


4CS00120 


• 
••••• 

• 


BSC 


I 


START 

ROUTINE 


RETURN TO MONITOR 
TYPE **»*»••*••***•**•* 


sx 


80505330 
80505344 
80505350 
80505340 


0A5O 





OOOO 


TYPE 


DC 




/OOOO 


RETURN AOOR 


SE 


S0S0S374 


0A51 





OBI* 




STO 




MSG 


HSG ANO NUMBER 




80505380 


0A52 


01 


C4000B02 




LO 


L 


SMO 


BIT SWITCH STORAGE 




80505394 


OATE 




28FEB66 
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0A54 


100C 




SLA 




12 




80505400 


OASS 01 


4CAS0A50 


• 


8SC 


I 


TVPEt^Z 


BCH ON BIT 13 SI 


80S0S410 
8050S420 


0AS7 00 


44800 12F 


LOG AG 


BSI 


1 


LOG 


CALL MONITOR LOG SC 80505430 


0A59 1 


OA** 




OC 




LOGM 


AOOR OF MSG 


80505440 


0A5A 1 


OASF 




DC 




LOGB 


BUSY ADDR 


8050S450 


0/.SB 


0000 


• 


DC 




/OOOO 




805054*0 
80505470 


0A5C 01 


6SBOOA50 




LDX 


11 


TYPE 


GET MLSCF 


80505480 


0A5E 


7002 


• 


MDX 




0UT1 




80S0S490 
8OS05S0O 


OASF 01 


6S000AS7 


LOGS 


LDX 


LI 


LOGAG 




80S05S10 


0A61 01 


6D00080A 


00T1 


STX 


LI 


MLSCF*1 




80505520 


0A*3 00 


4C80012D 


• 


BSC 


I 


START 


RETURN TO MONITOR SX •09035313 

80505540 


0A66 


0000 




BSS 


E 







80505550 


0A*6 


0301 


LOGH 


OC 




/OOOl 


WORD COUNT 


805055*0 


0A67 


0000 




DC 




/OOOO 


HEX 


8050SS70 


0A*8 


0000 


MSG 


DC 




/OOOO 


MESSAGE NUMBER 


80505580 


0A*9 


0000 


• 


DC 




/OOOO 




80505590 
80505*00 






#»*»*♦»••**•••••*••***•*•***»*»********•***** 


80505*10 






• 










80505*20 






•*•»» 






STORAGE 


AREA **»****»*»»*»***** 


80505*30 






• 










80505*40 






• 










80505*50 


0A*A 


0000 


CONST 


DC 




/00?0 




80505**0 


0A6B 


0000 


EXTRA 


DC 




/OOOO 




80505*70 


0A6C 


0000 


KOOOO 


DC 




/OOOO 


ZERO CONSTANT 


80505*80 


OA60 


0002 


K0002 


DC 




/0002 




80505*90 


0A6E 


0007 


K0007 


DC 




/0007 




80505700 


0A6F 


0096 


KOI 50 


DC 




ISO 


CONSTANT 


80505710 


0A70 


8000 


K8000 


DC 




/eooo 




80505720 


0A71 


0000 


LOOK 


OC 




/OOOO 


START OF STRING 


80505730 


0A72 


0000 


SORCT 


DC 




/OOOO 


SQUARE COUNT 


805057 VO 


0A73 


0000 


TRICT 

• 


OC 




/OOOO 


TRIANGLE COUNT 


80505750 
805057*0 






»»»»»»«•»»*»*•*»»»*»*»*»*****•**»***»»•****•» 


80505770 






• 










80505780 






*»»*» 






COMMAND 


AREA »**»*»*»*»»**»»»»• 


80505790 






• 










80505800 






• 










80505810 


0A74 


0000 


NN 


DC 




/OOOO 


MOVE COUNT 


80505820 


0A75 


4000 




DC 




/4000 


OIRECTION- NORTH 


80505830 


0A7* 


0000 


SS 


OC 




/OOOO 




80505840 


0A77 


2000 




DC 




/2000 


- SOUTH 


80505850 


0A78 


0000 


EE 


DC 




/OOOO 




805058*0 


0A79 


1000 




OC 




/1000 


- EAST 


80505870 


0A7A 


0000 


WW 


OC 




/OOOO 




80505880 


0A7B 


0800 




DC 




/0800 


- WEST 


80505890 


0A7C 


0000 


NE 


OC 




/OOOO 




80505900 


0A70 


5000 




OC 




/5000 


- NORTHEAST 


80505910 


0A7E 


0000 


SE 


DC 




/OOOO 




80505920 


0A7F 


3000 




OC 




/3000 


- SOUTHEAST 


80505930 


0A80 


0000 


SM 


DC 




/OOOO 




80505940 


0A81 


2800 




DC 




/2800 


- SOUTHWEST 


80505950 


0A82 


0000 


NM 


DC 




/OOOO 




80505960 


0A83 


4800 




DC 




/4800 


- NORTHWEST 


80505970 


0*84 


0001 


PENUP 


DC 




/OOOl 




80505980 


CASS 
0A86 


0400 
0001 


PENOM 


DC 
DC 




/0400 
/OOOl 


- PEN UP 


80505990 
80506000 


0A87 
OABB 


8000 
044C 


LEFT 


DC 
OC 




/8000 
1100 


- PEN DOWN 


80506010 
80506020 


0A89 


0800 


• 


DC 




/0800 


- WEST 


80506030 
80506040 


0A8A 


C001 


MNRDV 


DC 




/cc:i 




80506050 


CA8B 


A10E 


• 


DC 




/AIDE 


MSG- NOT REAOV 


80506060 
80506070 


DATE 

cr Mn 


28FEB6* 
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EC NO. 



0A8C 


E001 


MNINT 


DC 


/E001 




0A80 


ICED 




DC 


/ICED 


MSG- NO INTERRUPT 


0A8E 


E002 


MBUSV 


DC 


/E002 




OASF 


ADOO 


* 
SENT 


DC 


/ADOO 


MSG- BUSY 


0A9O 


OOOO 


DC 


/OOOO 


SENSE OSM 


0A91 


0700 




DC 


/0700 




0A92 


OOOO 


SENSE 


OC 


/OOOO 


SENSE OSM ♦ RESET 


0A93 


0701 




DC 


/0701 




0A94 1 


0A99 


MARK 


DC 


COMAD 


OIRECTION COMMAND 


0A95 


0100 


* 
BSUCT 


DC 


/0100 




0A96 


1100 


DC 


/1100 


CMD EXECUTE CNTR 


0A97 


OOOO 


SBSW2 


DC 


/OOOO 


MANUAL COMNANO ST6 


0A98 


OOOO 


COUNT 


DC 


/OOOO 




0A99 


OOOO 


COMAO 

• 

RTIST 


DC 


/OOOO 




0A9A 1 


0A84 


DC 


PENUP 


RT 1 START 


0A9B 1 


OASS 




DC 


LEFT 




0A9C 1 


0A7C 




DC 


NE 




0A9D 1 


0A8* 




DC 


PENDW 


START 1ST OCTAGON 


0A9E 1 


0A74 




DC 


NN 


1ST SIOE 


0A9F 1 


0A84 




DC 


PENUP 




OAAO 1 


0A7S 




DC 


EE 




0AA1 1 


0A7C 




DC 


NE 




0AA2 1 


0A8* 




OC 


PENDW 




0AA3 1 


0A7E 




DC 


SE 


2ND SIDE 


0AA4 1 


0A84 




DC 


PENUP 




0AA5 1 


0A80 




DC 


SM 




0AA6 1 


0A7* 




OC 


SS 




0AA7 1 


0A86 




OC 


PENDW 




0AA8 1 


0A7A 




DC 


WW 


3R0 SIOE 


0AA9 1 


0A84 




DC 


PENUP 




OAAA 1 


0A74 




DC 


NN 




OAAB 1 


0A82 




OC 


NW 




OAAC 1 


0A8* 




DC 


PENOM 




OAAO 1 


0A7C 




DC 


NE 


4TH SIOE 


OAAE 1 


0A84 




DC 


PENUP 




OAAF 1 


0A7E 




OC 


SE 




OABO 1 


0A7S 




DC 


EE 




0AB1 1 


0A8* 




DC 


PENDW 




0AB2 1 


0A7* 




OC 


SS 


5TH SIOE 


0AB3 1 


0A84 




OC 


PENUP 




0AB4 1 


0A7A 




DC 


WW 




0AB5 1 


OA80 




DC 


SM 




0AB6 1 


OAB* 




DC 


PENDW 




0AB7 1 


0A82 




DC 


NW 


*TH SIOE 


0AB8 1 


CA84 




DC 


PENUP 




0AS9 1 


0A7C 




DC 


NE 




OABA 1 


0A74 




OC 


NN 




OABB 1 


0A86 




DC 


PENDW 




OABC 1 


0A78 




DC 


EE 


7TH SIDE 


OABO 1 


0A84 




DC 


PENUP 




OABE 1 


0A76 




DC 


SS 




OABF 1 


0A7E 




DC 


SE 




OACO 1 


0A86 




DC 


PENDW 




0AC1 1 


0A80 




DC 


SW 


8TH SIDE 


0AC2 1 


0A84 




DC 


PENUP 




0AC3 1 


0A78 




DC 


EE 




0AC4 1 


0A78 




DC 


EE 




OACS 1 


0A86 




DC 


PENDW 


START SECOND OCTAGON 


0AC6 1 


0A78 




OC 


EE 


1ST SIOC 


0AC7 1 


0AB4 




DC 


PENUP 




OACS 1 


0A74 




OC 


NN 




0AC9 1 


0A7C 




OC 


NE 




OACA 1 


0A86 




OC 


PENDW 




PACB 1 


OA82 




DC 


NW 


2ND SIOE 


OACC 1 


0A84 




OC 


PENUP 




DATE 


28FEB6* 








' 


EC NO. 


415120 











PART NO. 219*3*2 
PAGE 5* 



8050*080 

8050*090 

8050*100 

8050*110 

8050*120 

8050*130 

8050*140 

8050*190 

8050*1*0 

8050*170 

8050*180 

8050*190 

8050*200 

8050*210 

8050*220 

80506230 

8050*240 

80506250 

805062*0 

8050*270 

8050*280 

8050*290 

8050*300 

8050*310 

8050*320 

8050*330 

8050*340 

8050*350 

805063*0 

8050*370 

80506380 

80506390 

8050*400 

8050*410 

80506420 

80506430 

80506440 

80506450 

8050*4*0 

8050*470 

8050*480 

8050*490 

80506500 

80506510 

80506S20 

8050*530 

8050*540 

8050*550 

805065*0 

8050*570 

80S06SS0 

8050*590 

8050*600 

8050**10 

80506620 

80506*30 

8050**40 

80506650 

80506660 

80506*70 

8050**80 

8050**90 

8050*700 

8050*710 

80506720 

80506730 

80506740 

8050*750 
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OACO 1 


OASO 


DC 


SN 




OAtE 1 


0A7A 


DC 


HH 




OACF 1 


OAS* 


DC 


PENOM 




OAOO 1 


OAT* 


DC 


SS 


3RD SIDE 


OAOl 1 


OAS* 


DC 


PENUP 




OA02 1 


0A7B 


DC 


EE 




OA03 1 


0A7E 


OC 


SE 




OAD* 1 


OAS* 


DC 


PENOM 




OA05 1 


0A7C 


OC 


NE 


*TH SIOE 


OAM 1 


OAS* 


OC 


PENUP 




OAOT 1 


0AS2 


OC 


NM 




OADS 1 


0A7* 


DC 


NN 




0A09 1 


OAS* 


OC 


PENOM 




OAOA 1 


0A7A 


DC 


WH 


STH SIOE 


OAOB 1 


OAS* 


DC 


PENUP 




OAOC 1 


0A7* 


DC 


SS 




OAOO I 


OASO 


OC 


SH 




OAOE 1 


CAS* 


DC 


PENOM 




OAOF 1 


0A7E 


DC 


SE 


6TH SIOE 


OAEO 1 


OAS* 


DC 


PENUP 




0AE1 1 


0A7C 


DC 


NE 




0AE2 1 


0A7S 


DC 


EE 




0AE3 1 


OAS* 


OC 


PENDf 




OAE* 1 


0A7* 


DC 


NN 


7TH SIOE 


0AE5 1 


OAS* 


DC 


PENUP 




OAE* 1 


0A7A 


DC 


MM 




OAET 1 


0AS2 


DC 


NM 




0AE8 1 


OAS* 


OC 


PEf,-»M 




0AE9 1 


OASO 


DC 


SM 


STH SIOE 


OAEA 1 


OAS* 


DC 


PENUP 




OAEB 1 


OA*C 


DC 
• 
RT2ST OC 


KOOOO 


ENO OF ROUTINE 


OAEC 1 


OAS* 


PENUP 


RT 2 START 


OAEO 1 


0A88 


OC 


LEFT 




OAEE 1 


0A7C 


OC 


NE 




OAEF 1 


0A7* 


DC 


NN 




OAFO 1 


0A7A 


DC 


MM 




0AF1 1 


0A6C 


DC 


KOOOO 


RETURN CNTL TO PROG 


0AF2 1 


0A86 


DC 


PENOM 


START FIGURE 


0AF3 1 


0A7S 


DC 


EE 




OAF* 1 


0A82 


DC 


NM 




OAFS 1 


OASO 


DC 


SM 




0AF6 1 


0A6C 


OC 


KOOOO 


RETURN CNTL TO PROG 


0AF7 1 


0A7* 


DC 


NN 




OAFS 1 


OATE 


OC 


SE 




0AF9 1 


0A7C 


OC 


NE 




OAFA 1 


OAfcC 


DC 


KOOOO 


RETURN CNTL TO PROG 


OAFS I 


0A7* 


DC 


SS 




OAFC 1 


OAS* 


DC 


PENUP 




OAFO 1 


0A7A 


DC 


MM 




OAFE 1 


OAS* 


DC 


PENDM 




OAFF 1 


0A7* 


DC 


NN 




0800 1 


OAS* 


DC 


PENUP 




0801 1 


0A7A 


OC 


MM 




0802 1 


0A86 


DC 


PENOM 




0803 1 


OA*C 


DC 


KOOOO 


RETUNR CNTL TO PROG 


0804 1 


0A78 


DC 


EE 




0805 1 


OAB* 


OC 


PENUP 




080* 1 


0A7* 


OC 


SS 




0807 1 


OAS* 


DC 


PENOM 




0808 1 


0A7A 


DC 


MM 




0809 1 


OAS* 


OC 


PENUP 




OBOA 1 


OA*C 


OC 
• 
RT3ST OC 


KOOOO 


END OF ROUTINE 


OBOB 1 


OAS* 


PENUP 


RT 3 START 


OBOC 1 


OASS 


OC 


LEFT 




OBOO 1 


0A7S 


DC 


EE 




OBOE 1 


0A7* 


OC 


NN 




DATE 


2SFEB** 








EC NO. 


*15120 









PART NO. 21**3*2 
PACE * 



8050*7*0 

8090*770 

8050*7*0 

8050*790 

8050*800 

8050*810 

8050*820 

8050*830 

8050*8*0 

8050*850 

8050*8*0 

8050*870 

8050*880 

8050*890 

8050*900 

8050*910 

8050*920 

8050*930 

8050*9*0 

8050*950 

8050*9*0 

8050*970 

8050*980 

8050*990 

80507000 

80507010 

80507020 

80507030 

805070*0 

80507050 

805070*0 

80507070 

80507080 

80507090 

80507100 

80507110 

80507120 

80507130 

805071*0 

80507150 

805071*0 

80507170 

80507180 

80507190 

80507200 

80507210 

80507220 

80507230 

805072*0 

80507250 

805072*0 

80507270 

80507280 

80507290 

80507300 

80507310 

80507320 

80507330 

805073*0 

80507350 

805073*0 

80507370 

80507380 

80507390 

80507*00 

80507*10 

80507*20 

80507*30 
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PROG ID 
PAGE 



0805-0 



OBOF 1 


OA*C 


DC 


KOOOO 


. ?Tl«N CNTL TO 


PROS 


0B10 1 


OAS* 


OC 


PENOM 


START SQUARE 




0811 1 


OAT* 


DC 


NN 






0B12 1 


0A7S 


OC 


EE 






0813 1 


0A7* 


DC 


SS 






OBI* 1 


OA*C 


OC 


KOOOO 


RETURN CNTL TO 


PROG 


0815 1 


0A7A 


OC 


MM 






OBI* 1 


OAfcC 


OC 


KOOOO 


RETURN CNTL TO 


PROG 


OBIT 1 


OAS* 


DC 


PENUP 






0818 1 


0A7C 


OC 


NE 






0819 1 


0A*C 


DC 


KOOOO 


RETURN CNTL TO 


PR06 


081A 1 


OAS* 


OC 


PENOM 






0B1B 1 


0A7E 


OC 


SE 






081C 1 


OAS* 


OC 


PENUP 






0B10 1 


0A7* 


OC 


NN 






0B1E 1 


OAS* 


OC 


PENOM 






0B1F 1 


OASO 


OC 


SH 






0B20 1 


OAM 


DC 


KOOOO 


RETURN CNTL TO 


PROG 


0B21 1 


0A82 


OC 


NM 






0822 1 


0A6C 


DC 


KOOOO 


RETURN CNTL TO 


PROG 


0823 1 


OAS* 


OC 


PENUP 






0B2* 1 


0A7* 


OC 


SS 






0B25 1 


OAS* 


OC 


PENOM 






082* 1 


0A7C 


DC 


NE 






0827 1 


OA*C 


OC 


KOOOO 


ENO OF ROUTINE 




0828 1 


OAS* 


RT*ST OC 


PENUP 


RT* START 




0829 1 


OASS 


OC 


LEFT 






082A 1 


0A7C 


DC 


NE 






0828 1 


0A7* 


OC 


NN 






0B2C 1 


0A7* 


OC 


NN 






0B2D 1 


0A*C 


DC 


KOOOO 


RETURN CNTL TO 


PROG 


0B2E 1 


OAS* 


OC 


PENOM 






0B2F 1 


OASO 


OC 


SM 


SIOE 1 TRI 1 




0B30 1 


0*82 


DC 


NM 






0831 1 


OAfcC 


DC 


KOOOO 


RETURN CNTL TO 


PROG 


0B32 1 


0A82 


DC 


NM 


SIOE 2 TRI 1 




0833 1 


0A7C 


OC 


NE 






083* 1 


OA*C 


DC 


KOOOO 


RETURN CNTL TO 


PROG 


0835 1 


0A7* 


DC 


NN 


SIOE 3 TRI 1 




0B3* 1 


0A7E 


OC 


SE 






0B37 1 


OATE 


DC 


SE 






0B38 1 


OAOC 


DC 


KOOOO 


RETURN CNTL TO 


PROG 


0839 1 


OAS* 


DC 


PENUP 


MOVE TO NEM LOCATIO* 


0B3A 1 


0A7C 


OC 


NE 






0B3B 1 


0A6C 


DC 


KOOOO 


RETURN CNTL TO 


PROG 


0B3C 1 


0A86 


OC 


PENDM 






0830 1 


0A82 


DC 


NM 


SIOE 1 TRI 2 




0B3E 1 


0A7C 


OC 


NE 






0B3F 1 


0A6C 


DC 


KOOOO 


RETURN CNTL TO 


PROG 


08*0 1 


0A7C 


OC 


NE 


SIDE 2 TRI 2 




08*1 1 


0A7E 


DC 


SE 






08*2 1 


OAM 


OC 


KOOOO 


RETURN CNTL TO 


PROG 


08*3 1 


0A7S 


DC 


EE 


SIDE 3 TRI 2 




OB** 1 


OASO 


OC 


SM 






08*5 1 


OASO 


OC 


SM 






OB** 1 


OA*C 


DC 


KOOOO 


RETURN CNTL TO 


PROG 


08*7 1 


OAS* 


OC 


PENUP 


MOVE TO NEM LO 


CAT 1 01 


08*8 1 


0A7E 


OC 


SE 






08*9 1 


OAfcC 


DC 


KOOOO 


RETURN CNTL TO 


PROG 


OB*A 1 


OAS* 


DC 


i>ENDM 






08*8 1 


0A7C 


OC 


NE 


SIOE 1 TRI 3 




08*C 1 


OATE 


DC 


SE 






08*0 1 


OA*C 


OC 


KOOOO 


RETURN CNTL TO 


PROG 


OB*C 1 


0A7E 


OC 


SE 


SIDE 2 TRI 3 




OB*F 1 


OASO 


DC 


SM 






OBSO 1 


OAM 


DC 


KOOOO 


RETURN CNTL TO 


PROG 


0BS1 1 


0A7* 


OC 


SS 


SIDE 3 TRI 3 




OATE 


2SFEB** 










EC NO. 


*1S120 











PART NO. 
PACE 



•0507*40 

80507*50 

805074*0 

•0507*70 

80507*80 

•0507490 

S050TSOO 

•0507510 

•05O7520 

•OSOTSM 

•050754* 

•05O7550 

805075*0 

•0507570 

•OSOTSM 

8050 7590 

•0507*0* 

60507*10 

80507*20 

80507*10 

80507**0 

80507*50 

805074*0 

80507*70 

80507*80 

80507690 

S050TTM 

•0507710 

S0507720 

S050T730 

80507740 

80507750 

805077*0 

80507770 

S050TTM 

80507790 

80507000 

S0507010 

■0507820 

•OSOTSM 

80507*40 

80507*50 

805078*0 

80507*70 

S0S07SM 

80507S9O 

80507900 

00507*10 

80507920 

805079M 

805079*0 

•05079M 

•05079*0 

•0507*70 

•05079*0 

•0507990 

80508000 

S050S010 

S050M20 

S050SO30 

80S0SO40 

80508050 

805080*0 

80508070 

80508080 

80508090 

•050*100 

•0508110 



FROG ID 
PACE 



219*3*2 



0805-0 



<<<<<<( ((<<<<< < ( < ( ,< < ( <(!(<( ( < ( ( ( i ( 
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PART NO. 2116362 
PAGE T# 



0BS2 


1 


JA32 




DC 


NW 






80508120 


0BS3 


1 


0AB2 




DC 


NW 






80508130 


0B54 


1 


0A6C 




DC 


KOOOO 


RETURN CNTL TO 


PROG 


80508140 


0855 


1 


UA84 




DC 


PENUP 


MOVE TO NEW LOCATION 


805081 SO 


0B56 


1 


0A80 




DC 


SW 






80508160 


0B57 


1 


0A6C 




DC 


KOOOO 


RETURN CNTL TO 


PROG 


80508170 


0B58 


1 


0AB6 




DC 


PENDH 






80508180 


0B59 


1 


0A7E 




DC 


SE 


SIOE 1 TRI 4 




80508190 


0B5A 


1 


0A80 




DC 


SW 






80508200 


0B5B 


1 


0A6C 




DC 


KOOOO 


RETURN CNTL TO 


PROG 


80508210 


0B5C 


1 


OABO 




DC 


SH 


SIDE 2 TRI 4 




80508220 


0B5D 


1 


0AS2 




DC 


NW 






80508230 


0B5E 


1 


0A6C 




DC 


KOOOO 


RETURN CNTL TO 


PROG 


80508240 


OBSF 


1 


0A7A 




DC 


WW 


SIDE 3 TRI 4 




80508250 


0660 


1 


0A7C 




DC 


NE 






80506260 


0B61 


1 


0A7C 




DC 


NE 






80508270 


0B62 


I 


0A6C 




DC 


KOOOO 


RETURN CNTL TO 


PROG 


80508280 


0B63 


1 


CA84 




DC 


PENUP 


MOVE lO NEW LOCATION 


80508290 


0B64 


1 


0A82 




DC 


NW 






80508300 


0B65 


1 


0A6C 




DC 


KOOOO 


RETURN CNTL TO 


PROG 


80508310 


0B66 


1 


r*86 




DC 


PENDW 


ORAN SQUARE 




80508320 


0B67 


1 


■ r 




DC 


NE 






80508330 


0B68 


1 


0* TE 




DC 


SE 






80508340 


0869 


1 


t»»,60 




DC 


SW 






80508350 


0B6A 


1 


0.*- : * 




DC 


NW 






80508360 


0B6B 


1 


OAi« 




DC 


PENUP 






80508370 


0B6C 


1 


0A6C 


* 


DC 


KOOOO 


ENO OF ROUTINE 




80508380 
80508390 


0B6D 


1 


0A96 


RT5ST 


DC 


BSwCT 


RT 5 START 




80508400 


0B6E 


1 


0A6C 


• 


DC 


KOOOO 


MANUAL CONTROL 




80508410 
60508420 


0B70 




0000 




BSS 


E 






80508430 


0B70 






• 


ORG 


PID+/03FE 






80508440 
60503450 








• 




THIS AREA 


CAN BE USED FOR 


PATCH 


80508460 








• 










805064(70 


OBFO 





0000 


PENO 

• 


DC 


/OOOO 






80508480 
80508490 


OBFE 




0824 




END 


PLBGN 






60508500 



CROSS REFERENCE LISTING 



DATE 
EC NO. 



28FEB66 
415120 



PROG ID 
PAGE 



0805-0 

T 



iYMBUL 


VALUE 


REFERENCES 




BEGIN 


012C 


07FF.OB24 




BOOT 


0859 


085C 




BSWCK 


09D3 


08<>E, 0863, 0887, 0932, 0968, 09B2.09C9, 090* 




BSWCT 


0A96 


0B6D 




BUILO 


083C 


0643 




BUSY 


09F0 


09F4.0A41 




CHG1 


0995 


0960 




CHG2 


099C 


096E 




CHG3 


09A4 


096F 




COMAO 


0A99 


0A94 




CONST 


0A6A 


0A21.0A28 




CONT 


0A20 


061F.09C5 




COUNT 


0A98 


0AI2i0A2D 




01SP 


OAOC 


0861, 0M8 5,0880, 0899, 08A5.08B5, 08CS ,06EF ,0908,0917, 
0926, 0943, 0966, 0976, 0982, 098E, 09 A2,09C3,0A14 




EDIT 


0815 


082A, 0834, 0838, 09CF 




E0IT1 


0813 


0831 




£01 T2 


0814 


0833 




EE 


0A78 


067A,088B,08C8,08E3, 0900, 0902, OAAO, OABO, OAK, 0AC3, 
OAC4,0AC6,OAO2,0AE2,OAF3,OB04,OBOO, 0812,0043 




END 


012E 


07FF.09CA 




EPA 


0808 






ERBIT 


OAOA 


081D,OA19,0A3C,0A3F,OA43 




ERBSY 


09F7 


09FF 




ERMSG 


0A06 


09F9 




ERROR 


0130 


07FF.09F7 




EKR1 


09F6 


09F3.09FC0A1E.0A4S 




EXTRA 


0A6B 


0633,0891, 0897, 0890, 08A1 ,08A9,08ED,08F3, 0924, 092A, 
0974, 097A, 0980,0986, 096C, 0992 




HALT 


0133 






HOP 


0A28 


0A22 




HOPV 


0A22 


0A2A 




ILP 


0806 






KEEP1 


081A 






KEEP2 


08FF 






KEEPS 


0904 






KEEP4 


0907 






KOOOO 


0A6C 


0AEB,0AFl,0AF6,0AFA,OBO3,080A,0B0F,0B14,OB16,OB19, 
0820, 0B22,0B27,0B2D,0B31,0B34,0B38,0B3B,0B3F, .1642, 
0B46, 0849, 0B4D, 0050, 0B54,0B57,0B5B,0B5E,OB62,OB65, 
0B6COB6E 




K0002 


0A6D 


0948, 0A1A 




KOOOT 


0A6E 


0908 




K0150 


0A6F 


0856 




K0701 


0853 


083E 




K8000 


0A70 


081B 




LABEL 


0835 


0849 




LEFT 


0A88 


0A9B,0AE0,0B0C,0B29 




LOG 


012F 


07FF.0A57 




LOGAG 


0AS7 


0A5F 




LOGS 


0A5F 


0A5A 




LOGM 


0A66 


0A59 




LOOK 


0A71 


085F, 0680, 086 r,066F, 0894, 089B,08A3,08A7,08AC,06CCt 
08D0,08F1,08F6,090A,090F, 0919, 0926,0920, 0941, 0945, 
0964, 0978, 09 70, 0984, 0989, 0990,0997, 099E , 09 A6, 09 AB, 
0A0D.0A0F.0A30 




LPA 


0607 






MARK 


0A94 


0A1T 




HBUSY 


0A8E 


09FI 




MLSCF 


080« 


0821, 0846, 084B,09B5,09E3,OA01,OA24,OA4C,OA61 




MNINT 


0A8C 


0A2B 




MNRDY 


0A8A 


0A34 




MSG 


0A66 


0A51 




NBTWO 


0633 


082F 




NE 


0A7C 


0874, 08C5, 0921, 09 3B.094E.095E, 0995, 099C, 09 A4.0A9C, 




DATE 


28FEB66 


PROG ID 0805-0 


EC NO. 


415120 


PAGE 7A 



F 

L 
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t 



NEXT 

NN 



NOT 
NRDV 

NW 

OUT 

0UT1 

02BE 

PfcNO 

PENDM 



PENUP 



OAOO 
0A74 



0A47 
0A33 
0A82 

0A01 
0A61 
OAOB 
ObFD 
0A86 



0AB4 



P10 


07FF 


PIBGN 


0824 


PLOVA 


0816 


PLOT 


0A17 


R*D 


0601 


READY 


0A38 


RECEV 


0817 


RECSU 


081F 


REG01 


0880 


REG02 


0899 


REG03 


08AS 


RELOV 


0132 


REPT1 


09FF 


REQDV 


0131 


RERUN 


09E1 


RIO 


0800 


RTAEL 


09E9 


RTENO 


09CA 


RTOVR 


09CC 


RTSET 


09DF 


RTO 


0629 


RT1 


0854 


RT1ST 


0A9A 


RT2 


0868 


RT2ST 


OAEC 


RT3 


08BC 


RT3ST 


OBOB 


RT4 


0937 


RT4ST 


0B28 


RT5 


09A9 


RTSA 


09B9 


RT5ST 


0B6D 


RUN 


0973 


RUNIT 


084E 


SBSH2 


0A97 


SE 


0A7E 


TENSE 


0A92 


SENT 


0A90 


SIDfcl 


0976 


SI0E2 


0982 


SI0E3 


098E 


SQRCT 


0A72 


ss 


0A76 


START 


0120 


stobv 


0849 


DATE 


26FEB66 


EC NO. 


415120 



OAAl,OAAO,0AB9,0AC9,OAD5,0AEl,0AEE,0AF9, 0818, 0820, 

062A,0BJ3,QB3A,0B3fc,0B40,0B4B,0B60,0B6l,0867 

0A32 

0859,0870,08C2,08E1,08FB,08FD,0913,093D,094A,OA9E. 

OAAA,OABA,0AC8,OAO8,OAE4,OAEF,0AF7,OAFF, OBOE, 0611* 

OB1D,OB2B,OB2C,OB35 

0A4A 

0A36.0A3D 

086C, 0804, 091F, 0957, 095C ,0AAB t 0AB7, OACB ,0AD7,0AE7, 

OAF4,0B21,0B3O,OB 32, 0B3D,0B52,0B53, 0650,0864, 0B6A 

09FE 

0A5E 

0A1D 

0800 

0A9D,0AA2,3AA7,0AAC,0AB1,0AB6.0ABB,0AC0,0AC5,0ACA, 

OACF,0AD4,0AO9,OAOE,OAE3,OAE8,0AF2 f 0AFE,OB02,OB07, 

0B10, OBI A, 0B1E,0B25,0B2E,0B3C,064A, 0858,0666 

0A9A,OA9F,OAA4,OAA9,OAAE,OAB3,OAB8,0ABO,OAC2,OACTt 

OACC,OA01,OA06,OAOB,OAEO,OAE5,OAEA,OAEC,OAFC,OBOO, 

0605,0809, OBOB, 0B17.0B1C t 0623, 0628, 0B39,0B47«08S5* 

0863,0668 

0626,0870 

OBFE 

0839, C83F 

0A2F 

09E5 

0854, 0868, 08BC,C937,0A16,0A3A,0A48 

0822,0827 

09BB.09C7 

0893 

089F 

08AB 

07FF.09CO 

09FA.09FB 

07FF.0835 

09DE 

09DA,090C,09DF 

09E1 

09EF 

0808, 082B, 0901 

0851, 0866, OBBA, 0935, 096A 

0606,0807*0847 

09EA 

085D 

09E8 

087E 

09EC 

08CA 

09ED 

09 3F 

09B3.09EE 

0981,0989 

09A9 

09A8 

0844 

09C1 
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0986 
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0837 



SM 
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SWNG2 


08EB 


SMNG3 
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SWNG4 


0926 


SMNGS 


0923 


SM 


0802 
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0803 
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SU3 


0805 


TCNTL 
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TERM 


080C 


TIME 
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TOP 
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TRICT 


0A73 


TYPE 
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WW 
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XX 
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OB01,OB08,OB15,OB5F 
0834 0832 
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1A 



V 



3.2 



PROGRAM OPERATION 

STANDARD MONITOR OPERATING PROCEDURES APPLY. 

THESE PROCEDURES ARE SUMMARIZED HERE. SEE OM USE PROCEDURE FOR 

DETAILS. 



2 
2 
2 



CLEAR SOTRAGE 

LOAD DIAGNOSTIC MONITOR 

SELECT MODE OF EXECUTION 

SELECT MONITOR CONTROL OPTIONS, IF OESIREO 

SELECT PROGRAM OPTIONS, IF DESIRED, FROM— 

TABLE FUNCTION SELECTION 

TABLE 1 ROUTINE SELECT FUNCTION 

TABLE 2 OEVICE SELECT FUNCTION 

TABLE 3 DATA ENTRY FUNCTION 

SET A TAB STOP 30 POSITIONS TO THE RIGHT OF THE LEFT MARGIN. 

*. INSTRUCT MONITOR TO EXECUTE 



TABLE FUNCTION SELECTION 



1. SET FUNCTION 01 IN SENSE/PROGRAM SWITCHES AND 1. 

2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH T. 

3. SET DESIRED FUNCTION IN DATA ENTRY SWITCHES THRU IS. 

4. PRESS CONSOLE INTERRUPT 



1. PURPOSE 

THE 1053-1816 TEST IS DESIGNEO TO CHECK THE OPERATING PERFORMANCE OF ALL 

m"y N L"r S u2 N .no H Ipe S nden?ly: ° VfRL * P "°° e - UP T0 • mNT " S AHD 0N£ " VM " D 

2. PREREQUISITES 

PROGRAM PREREQUISITES 

THIS PROGRAM MUST RUN UNDER CONTROL OF THE DIAGNOSTIC MONITOR. 
THE DIAGNOSTIC MONITRO PROGRAM USES 2,047 STORAGE WORDS, AND THIS 
PROGRAM USES 1,792 STORAGE WORDS. 

3. OPERATING PROCEOURE 

3.1 PROGRAM LOADING 

STANDARD LOADING PROCEDURE AS DESCRIBED IN THE DIAGNOSTIC 
MONITOR USE PROCEDURE. 



*•*••*••••*•****»«• 

* SENSE/PROGRAM • 
••1234567* 

* • 
•••000110* 

* * 
•*••*•••♦••••••*••*•*••••*•»•••*•*•»••••♦*»»•,»»»»»»«««.,«,,„„„»„„, 

* DATA ENTRY SWITCHES • 1 
•0123456789 10 11 12 13 14 15 • DESCRIPTION * 

* l USE DELAY TO LATCH THE CYCLE CLUTCH • 



TABLE 1 



ROUTINE SELECT FUNCTION 



SET FUNCTION 01 IN SENSE/PROGRAM SWITCHES AND 1. 

SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 

SET DESIRED ROUTINE NUMBER IN DATA ENTRY SWS. THRU If. 

PRESS CONSOLE INTERRUPT. 



DATE 
EC NO. 



01FEB66 
415120B 



01 MAY** 
415120A 



010CT67 
411S75 



PROG ID 
PAGE 



•SO*-* 
1 



I 

r 
t 

* 

r 

t 
t 

f 
i 

s 



2 

2 
2 
J 
1 



• SENSE/PROGRAM • 2, 
••1234567* 3. 

• • 4, 
••1*00220* 

• • 
•••••••••••••*••••• •***•••••••*•••*••*••*••*•*•*••••*••••»».»«,»,«»«»»»»» 

• OATA ENTRY SWITCHES * DESCRIPTION 

• 1 2 3 4 5 6 7 8 9 10 11 12 13 14 IS • 

• 0*0 0.... PRINT LAST KEYBOARD ENTRY RTN 1 

1 O....TAB ANO CARRIER RETURN RTN 2 

1 1... .UPPER OASE CHARACTERS RTN 3 

1 0.... LOWER CASE CHARACTERS RTN 4 

10 1... .REGISTRATION RTN 5 

1 1 0.... BACKSPACE AND INDEX RTN * 

1 1 l.„.. END OF LINE CARRRIER RETURN RTN 7 
10 0....R0CK RTN • 

1 1....R0LL RTN 9 
1 1 0... .TWIST ktn 10 
10 1 1... .PRINT SW 3 DATA RTN 11 
110 0... .KEYBOARD ENTRY RTN 12 • 

• NOTIi. THE KEYBOARD TEST IS NORMALLY ENTERED BY OEPRESSING THE KEYBOARO • 

• REOUEST KEY. HOWEVER THE KEYBOARD TEST CAN HOT BE RUN ON PRINTER • 

• WITHOUT RESERVING PRINTER FOR EXCLUSIVE USE BY THIS PROGRAM BY • 

• SELECTING ROUTINE 12 (TABLE II. SEE SECTION 5.3 . • 
••••••••••••••••♦••♦•••••••••♦••»»*»»»»»»».»»««»»»»»»»»,»»»„»».»„„ M ^,^^ 0# 



* 
* 
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TABLE 2 



DEVICE SELECT FUNCTION 



•••••••••*••••••*• i. SET FUNCTION 10 IN SENSE/PROGRAM SNITCHES ANO 1. 

SENSE/PROGRAM • 2. SET PIO IN SENSE/PROGRAM SNITCHES 2 THROUGH T. 

• 1 2 3 4 5 6 T • 3. IT IT IS OESIREO YO RUN ALL PRINTERS, NO ENTRY I* 

• NEEOEO. OTHERWISE* SELECT THE OESIREO PRINTERS* 

* 4. PRESS CONSOLE INTERRUPT. 
10000110* 

•**•**••*••••••••*•••**••••*••••*•*••**•••****•***••**•••******•••••*•*•*•***•• 



DATA ENTRY SWITCHES 

1 2 3 4 ^6 7 M 10 11 12 
> ••••••! 

■ •••■•• I * • 
' • • • • 1 



i 



• DESCRIPTION 

5 • 

... PRINTER • 

... PRINTER T 

... PRINTER * 

... PRINTER 5 

... PRINTER ♦ 

... PRINTER 3 

... PRINTER 2 

... PRINTER 1 

... PRINTER (PRINTER THAT IS USEO AS 
THE MONITOR LOG OEVICE. THIS HAS 
BEEN DEFINED IN THE 1053/ 1S14 EDIT 
CARD) 



TABLE 3 DATA ENTRY FUNCTION 



1. SET FUNCTION 11 IN SENSE/PROGRAM SNITCHES ANO 1. 

2. SET PIO IN SENSE/. ROCARM SWITCHES 2 THROUGH 7. 

3. SET OESIREO PRINT DATA IN DATA ENTRY SMTICHES 0-13. 

4. PRESS CONSOLE INTERRUPT. 

NOTE — EACH ENTRY CONTAINS TWO CHARACTERS FOR OUTPUT. 
ROUTINE 11 MUST BE SPECIFIEC (TABLE 1) FOR 
THIS OATA TO BE PRINTED. 



• SENSE/PROGRAM • 

• 01234*67* 

• • 

• 1100011C* 

•••*•••••••••*••*•*••*•••••••*••••*•*****••••••••*•••••******•**»***•••*»*****•* 

• OATA ENTRY SWITCHESS • DESCRIPTION • 

• • 1 2 3 * 5 * 7 S • 10 11 12 13 1* 15 • • 

• • 

• XXXXXXXX 1ST OUTPUT CHARACTER OR CONTROL MONO • 

• • 

• XXXXXXXX 2ND OUTPUT CHARACTER OR CONTROL HORO • 

• • 
••••••••**•••••••••••••••••*•••••••••••••••*•••••*•*•*••••*»*******»***•••**»•*• 

3.3 PROGRAM HALTS 

THIS PROGRAM HAS NO HALTS. 

3.4 PR06RAH TERMINATION 

A. STANOARO MONITOR TERMINATION 

B. PROGRAM CONROL FUNCTION 

THE PROGRAM WILL TERMINATE IF NO EDIT INFORMATION HAS BEEN 
PROVIDED OR IF THE OPERATOR HAS CLEAREO OEVICE SELECTION WHILE 
PROGRAM IS EXECUTING. 
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PRINTOUTS 

4.1 STATUS MESSA6E 
NONE 



4.2 



ERROR MESSAGES 



PTR 
PIO MID RID RAD NO. WAS S/B 
0600 E001 OOOX XXXX OOOX XXXX 0000 

OSW ERROR ON CHECKING FOR READY 

THIS MESSAGE MAY COME OUT IN ERROR WHEN DESELECTING A NOT READY 
TYPEWRITER WHEN RUNNING MULTIPLE TYPEWRITERS. 



0600 E002 OOOX XXXX OOOX XXXX XXXX 

DSW ERROR IMMEDIATELY AFTER OUTPUT COMMAND. 



0600 E003 OOOX XXXX OOOX XXXX XXXX 
INTERRUPT DSW ERROR 



0600 E004 OOOX XXXX OOOX XXXX XXXX 
LOST PRINTER INTERRUPT. 
DSW AFTER LAST X10 WRITE COMMAND IS PRINTED. 



0600 E005 OOOC XXXX OOOX XXXX 

KEVCOOf. ENTRY ERROR. 



AN ILLEGAL KEYBOARD CCDE HAS BEEN DETbCTEO. 



0600 E006 OOOC XXXX OOOX XXXX 0200 

OSW ERROR ON PLACING KEYBOARD IN PROCEED STATUS 



0600 E007 OOOC XXXX OOOX XXXX 0000 

OSW ERROR AFTER READ KEYBOARD COMMAND 



0600 E008 OOOC XXXX OOOX XXXX 0100 

DSW ERROR ON READING INTO A STORAGE PROTECTEO AREA. 

1ST 2ND 
0600 E009 OOOC XXXX OOOX XXXX XXXX 

MULTIPLE KEYBOARD READ ERROR. 

THE CHARACTERS READ DO NOT COMPARE. 

5. COMMENTS 

THIS FUNCTION TEST IS OESIGNED TO CHECK THE PROPER OPERATION OF THE 1053- 
1816 STATUS INDICATORS. THE VARIOUS ROUTINES AID IN DETERMINING THE PROPER 
ADJUSTMENT OF THE PRINTER. 

5.1 THE PRINTER TEST. 

THE PRINTER TEST IS A SERIES OF STANOAKO TESTS PERFORMED IN ORDER OF 

COMPLEXITY. EACH TEST HAS TWO LINES OF OUTPUT I THE FIRST IN BLACK 

ANO THE SECOND IN REDI. THE ONLY EXCEPTION IS THE REGSITRAT10N TEST 
WHICH HAS ONLY ONE LINE. 
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A. THE NORMALLY RUN ROUTINES ARE DONE SEQUENTIALLY AS FOLLOWS 



1. 
2. 
3. 

4. 
5. 



6. 



7. 



PRINT LAST KEVBOARO ENTRY. 
CARRIER RETURN AND TABULATE. 
UPPER CASE CHARACTERS. 

REGISTRATION 8 ***"* 5 * ,SHI " $I ° C ° F ELEME " T »' 

JUiLJ E 5 T /* ,NTS * BL * CK '*' ENCLOSED BY A RED »0«. IT 
CHECKS THE BACKSPACE FUNCTION AND THE ALIGNMENT OF THE PHI*!. 

BACKSPACE, INDEX. 

CHECKS TABULATE, BACKSPACE, AND LINE FEED FUNCTIONS. 

END OF LINE CARRIER RETURN 

oonScS. 1° SEE ™* T THE EN0 0F LINE CARRIER RETURN WORKS 
PROPERLY* 



•. ROCK 



TESTS THE TILT MECHANISM BY TYPING CHARACTERS LOCATEO ONE 
AFTER ANOTHER IN VERTICAL COLUMNS ON THE PRINT HEAO. 

9. ROLL 

IfilLI"? R0T * TE "ECHANISM BY SELECTING CHARACTERS ONE AFTER 
ANOTHER IN HORIZONTAL BANDS AROUND THE PRINT HEAO. 

10. TWIST 

I E 5! S THE COMBINED ROTATE AND TILT MECHANISM BY CAUSING A 
MAXIMUM ROTATION AND TILT BETWEEN CHARACTERS. "*■"»■ "■ * 

B. ROUTINES AVAILABE FOR EXECUTION ON AN OPTIONAL BASIS FOLLOW, 

ROUTINE 11 — PRINT SW 3 DATA (TABLE 31 

TWO CHARACTERS MAY BE ENTERED VIA THE BIT SWITCHES ON 
FUNCTION LEVEL 11 (TABLE 31. THE DATA IS PRINTEO ALTERNATELY 
TO ENTER THIS MODE, ROUTINE 11 MUST PE SPECIFIED ( TABLE II. 

5.2 THE KEYBOARD TEST 

THE KEYBOARD TEST IS ENTERED BY DEPRESSING THE KEYBOARD REQUEST 
KEY ANY TIME WHILE THE PRINTER TSST IS RUNNING THAT PRINTER. 

* NOTE 



* 



ONLY If PRINTER IS AN 1816 AND ITS KEYBOARD IS TO BE TESTEO. THEN 



••••♦••♦•••♦••♦••••••♦••••♦•••••♦•♦•♦♦•t,,,*,,,.,*,,,,,,,.,^,^,^.^^^^^^^ 
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5.3 



DATE 
EC NO. 



01FEB66 
415120* 



AT THIS TIME THE OPERATOR MAY ENTER ANY NUMBER OF CHARACTERS. EACH 
CHARACTER ENTERED IS PRINTED AS IT IS KfcVED IN. WHEN THE EOF J* I* 
DEPRESSED, THE FIRST 48 CHARACTERS ENTERED W Li BE REPMNtIS WhIJ 
THE PROGRAM RESTARTS THE PRINTER TEST. THOSE CHARACTERS lIst ««*» t 
ARE NOW INCLUDED AS ROUTINE 1 OF THE STANDARD PRIMER "sTs! "" ' 

ALL KEYBOARD KEYS RETAIN THEIR NORMAL USE EXCEPT, 



KEY 
EOF 

ERASE FIELD 

0-2-* 

ROUTINE 12 OPTION 



FUNCTION 
FND TRANSMISSION OF OAT A, cNO KEYBOARD 
ROUTINE 

THE NEXT CHARACTER (IF ALPHA) 
WILL BE IN LOWER CASE. 
LINE FEED 



THIS OPTION RESERVES EXCLUSIVE USE OF PRINTER TO THIS PROGRAM 
III ?0 T BE N TESTE0! E SPEC,FU ° " *"° °" L *' '' ™ E * E ™*« ™ ™"T« 

rasiriSi! " ™* T "* INTE * " HICH HAS ' EEN E0,TE0 * s ™ E "■« E0 " 

ilLL H CAutE. IT ° R 1$ 0SING PRINTER ° T0 0UTP0T HESSA6ES, THIS OPTION 
l * M E THIs"pR ! OgJa'n , . OF * LL "** P " INT " ° P * INT0UT S «« ORIGINATED 



2. 
3. 



ca"aga?n ?r?ht°Sn"Ir SP 2?e S I 1°. C ° NS0LE INTFR " U " WT,L THE "°"" * 
of%he E ^ey R SSIrS E r^e^ T,N ° AT,ON ° f 0VCRL "' 0NTU «*'"«« 



THE KEVBOARO ROUTINE IS ENDED BY DEPRESSING THE EOF KEY uhiif ih 
PROCEED STATUS. THIS ACTION ALSO RESETS tSe rSutTnE ll OPTIOn! 
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1053/1816 



6.1 



SFJXSST™ frocedure n for car. .h~t. the eoit r « S « roj .fare, tare «* ^^™ ^ s ^^V-; o ^7J?r^Sri;rci.or ^MmS 
m „ stahos • «« «« - f ieu. it i«cu»es : j g ^^^^ny;. «-<- --tioh. -ft . ••, , « car. a-. 

THE IAST EOIT CARD IS THE "ENO EDIT CARO". THE .HFORHRTIOH IH THPS CARD INCLUDES: I. AH^WCOUWM 1.^ ^ wJ 

3. A TERHIHATOR WORD OF "FFF' (COL. WO). ImnmFV I8I6'S) AHO OHE DOEF EHUW TO IOEHTIFY 

tTa™R S* lo53/,8l6 EDIT CARD. (REFER TO EDIT CARD ZERO OF THE DIAGNOSTIC MONITOR.) 

rARn pmd IS THE "END EDIT CARD". PUNCH EXACTLY AS IS SHOWN. _„«- I- 

X!«S5t 12 TWO DDEF'S CAN BE ALIKE AND ANY UNUSED DDEF'S MUST BE PUNCHEO WITH ZEROS. - 

*THF 18,6 IDENTIFICATION FIELD SHOULD BE PUNCHED IN THE FOLLOWING MANNER: 

*THE 1816 ">EJTIFICAT.ON F.EL^ ^ ^ ( ^ ^ p0$)T|0NS C0RRESF0 NDING TO 1816 DDEF'S. o 

2* PLACE ZEROS FOR EACH ONE WHICH IS NOT AN 1816. 

3! CONVERT THE RESULTANT NUMBER TO HEX AND ENTER THAT NUMBER IN COLS. 62 AND 63. 5 
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SI 
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TC 
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MONITOR 

OUTPUT 

DEV 

DDEF 
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S 



x 

I- Ul 

a. x 
=> «-' 

ec 

ec -J 

Ul Ul 
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PTR. 1 
DDEF 



PTR. 2 
DDEF 



x 

(- UJ 

a. x 

=j - — 
ec 
oc -1 

UJ UJ 



21 
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I- UJ 

0- x 

oe 

ec -■ 
Ul UJ 

1- > 

Z UJ 
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DDEF 
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DDEF 



tt 



1 



PTR. 7 
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CARRIER RETURN TABULATE 

CARRIER RETURN TABULATE 

ABCOEFGHIJKLKMOPQRSTUVWXrZ (♦<"");« ,M |- ?:>IX« 

AECOEFGHIJKLMNOPaRSTUVWXYZ (♦<"*);•'" |-I?:>l£I 

ABCDEFGHIJKLKMOPQRSTUVWXYZ 123»567«90# /-,«$•. 
ABCDEFGHIJKlWiOPQRSTUVWXVZ 1 2 3U 567890#> -^SfS! 



BACK SPACE 

ft 

E 

BACK SPACE 
N 



CARRIER RETURN 

CARRIER RETURN 






FIGURE 1 
SAMPLE OUTPUT OF 1053 PROGRAM. 
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012C 
012D 
012E 
012F 
0130 
0131 
0132 
0133 



0000 





0001 





0002 





000 3 





0004 





0005 





0006 





0007 





0008 





OOOA 





OOOC 





OOOE 





0010 






07FF 



07FF 





0600 


0800 





0001 


0801 


1 


09E3 


0802 





0000 


0803 





0000 


0804 





0000 


0805 





0000 


0806 


1 


08FE 


0807 


1 


091F 


0808 


1 


OCBC 


0809 





0000 


080A 





FFFF 


080B 


1 


OFFD 


080C 





0000 


08 OD 





0000 


080E 





0000 


080F 





0000 


0810 





0002 


0811 





0000 


0812 





0000 


0813 





0000 


0814 





0000 



* 

* 
* 

* 
* 

BEGIN 

START 

END 

LOG 

ERROR 

REQDV 

RELDV 

HALT 

* 

* 

# 

* 

* 

* 

* 

ADR 

RTN 

STS 

OUT 

ITR 

SLT 

NOS 

PAD 

WRT 

PTR 

KEY 

SEE 

ERR 

* 

* 

****** 

* 

* 

* 

* 

****** 

PID 
RID 
RAD 
SWO 
SW1 
SW2 
SW3 



EPA 

MLSCF 

TERM 



ONLIN 

* 

DDEFO 

DDEF1 

DDEF2 

DDEF3 



1800 DIAGNOSTIC MONITOR 
TRANSFER VECTOR 



EQU 
EOU 
EQU 
EOU 
EQU 
EQU 
EQU 
EQU 



EQU 
EOU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



ORG 

***** 



***** 

OC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 



300 

BEGINU 

START61 

ENDE.1 

L0G61 

ERROR&l 

REQDVS1 

RELDV61 



TABLE OF INDEXES FOR REFERENCE 
TO PRINTER- STATUS TABLES 

INDEX REG 3 ALWAYS HAS THE ADDR 
OF THE PRINTER TABLE 


1 
2 

3 

4 

5 

6 

7 

8 

10 

12 

14 

16 



*£2047 

********* 
D 

1 
P 

********* 

/0600 

1 

PRCON 

/OOOO 

/OOOO 

/OOOO 

/OOOO 

GO 

AGAIN 

TEND 



/FFFF 

PEND 







/OOOO 

/0002 

D 
/OOOO 
/OOOO 
/OOOO 
/OOOO 



************************* 
IAGNOSTIC MONITOR * 
CONTROLLED * 

800 STEREO 1816-1053 * 
TR FUNCTION TEST * 
************************* 

PROGRAM ID NO 
ONE TEST NUMBER 
TEST STARTING ADDR 
FCN 00 CONTROL' 
FCN 01 RTN SELECT 
PTR SELECT FUNCTION 
DATA FOR PRINTERS 
INITIALIZE ADDR 
LOOP PROGRAM ADDR 
END PROGRAM ADDR 
PROGRAM CONTROL FLD 
TERMINATOR 
LAST PROGRAM ADDR 



ZERO EQUAL OFF-LINE 
COMPATIBILITY SWITCH 
EVICE DEFINITION EDIT 

MONITOR LOGGING DEV 
PRINTER NO 1 
PRINTER NO 2 
PRINTER NO 3 



80600020 
80600030 
80600040 
80600050 
80600060 
80600070 
80600080 
80600090 
80600100 
80600110 
80600120 
80600130 
80600140 
80600150 
80600160 
80600170 
80600180 
80600190 
80600200 
80600210 
80600220 
80600230 
80600240 
80600250 
80600260 
80600270 
80600280 
80600290 
80600300 
80600310 
80600320 
80600330 
80600340 
80600350 
80600360 
80600370 
80600380 
80600390 
80600400 
80600410 
80600420 
80600430 
80600440 
80600450 
80600460 
80600470 
80600480 
80600490 
80600500 
80600510 
80600520 
80600530 
80600540 
80600550 
80600560 
80600570 
80600580 
80600590 
80600600 
80600610 
80600620 
80600630 
80600640 
80600650 
80600660 
80600670 
80600680 
80600690 



0815 OOOO 

0816 OOOO 

0817 OOOO 

0818 OOOO 

0819 OOOO 

081A C400 
0816 OOOO 



081C OOOO 
081D OOOO 

081E OOOO 
081F 1010 

0820 DOFB 

0821 C0F8 

0822 18D0 

0823 1 6700 0EA8 

0825 404A 

0826 1 4C80 081E 



0828 OOOO 



DDEF4 


DC 


/OOOO 


DDEF5 


DC 


/OOOO 


DDEF6 


DC 


/OOOO 


DDEF7 


DC 


/OOOO 


DDEF8 

* 


DC 


/OOOO 


P16EF 


DC 


/C400 


DDEFX 


DC 


*— * 


******************* 
* 


* 
* 

INTSW 


OC 


/OOOO 


DVAO 


DC 


/OOOO 


PTROI 


DC 


/OOOO 




SLA 


16 




STO 


INTSW 




LD 


P16EF 




RTE 


16 




LDX 


L3 PTRO 




BSI 


COM IN 




BSC 


I PTRCI 



PRINTER NO 4 

PRINTER NO 5 

PRINTER NO 6 

PRINTER NO 7 

PRINTER NO 8 

1816 IDENT WORD 
DDEFO SAVE AREA 



PRINTER INTERRUPT ROUTINE 

INTERRUPT EXSPECTED 
PTR AREA CODE 

PTR INTERRUPT RTN 
CLEAR ACC 

CLEAR INTERRUPT SW 
SET PRINTER ID 



DVA1 DC 



/OOOO 



0829 





OOOO 




PTR 11 


DC 




/OOOO 


082A 





COEF 






LD 




P16EF 


082B 





18CF 






RTE 




15 


082C 


1 


6700 


OEBA 




LDX 


L3 


PTR1 


082E 





4041 






BSI 




COM IN 


082F 


1 


4C80 


0829 


;;; 


BSC 


I 


PTR1I 


0831 





OOOO 




* 

DVA2 

* 

PTR2I 


DC 




/OOOO 


0832 





OOOO 




DC 




/OOOO 


08 33 





C0E6 






LD 




P16EF 


0834 





18CE 






RTE 




14 


0835 


1 


6700 


OECC 




LDX 


L3 


PTR2 


0837 





4038 






BSI 




COM IN 


0838 


1 


4C80 


0832 


* 


BSC 


I 


PTR2I 


083A 





OOOO 




DVA3 


DC 




/OOOO 


083B 





OOOO 




PTR3I 


OC 




/OOOO 


08 3C 





CODD 






LD 




P16EF 


083D 





18CD 






RTE 




13 


083E 


1 


6700 


OEDE 




LDX 


L3 


PTR3 


0840 





402F 






BSI 




COMIN 


0841 


1 


4C80 


083B 


:; : 


BSC 


I 


PTR3I 


0843 





OOOO 




* 
DVA4 


DC 




/OOOO 


0844 





OOOO 




PTR4I 


DC 




/OOOO 


0845 





C0D4 






LD 




P16EF 


0846 





18CC 






RTE 




12 


0847 


1 


6700 


OEFO 




LDX 


L3 


PTR4 


0849 





4026 






BSI 




COMIN 


084A 


1 


4C80 


0844 


* 


BSC 


I 


PTR4I 


084C 





OOOO 




DVA5 


DC 




/OOOO 


084D 





OOOO 




PTR5I 


DC 




/OOOO 



IE 



PTR 1 AREA CODE 

PTR 1 INTERRUPT RTK 
SET PRINTER ID 



PTR 2 AREA CODE 

PTR 2 INTERRUPT RTN 
SET PRINTER ID 



IX 



IF 



IX 



IE 



IX 



PTP, 3 AREA CODE 

PTR 3 INTERRUPT RTN IE 

SET PRINTER ID 



PTR 4 AREA CODE 



IX 



PTR 4 INTERRUPT RTN 
SET PRINTER ID 



IE 



IX 



PTR 5 AREA CODE 

PTR 5 INTERRUPT RTN IE 



80600700 
80600710 
80600720 
80600730 
80600740 
80600750 
80600760 
80600770 
80600780 
80600790 
80600800 
80600810 
80600820 
80600830 
80600840 
80600850 
80600860 
80600870 
80600880 
80600890 
80600900 
80600910 
80600920 
80600930 
80600940 
80600950 
80600960 
80600970 
80600980 
80600990 
80601000 
80601010 
80601020 
80601030 
80601040 
80601050 
80601060 
80601070 
80601080 
80601090 
80601100 
80601110 
80601120 
80601130 
80601140 
&0601150 
80601160 
80601170 
80601180 
80601190 
80601200 
80601210 
80601220 
8U601230 
80601240 
80601250 
80601260 
80601270 
80601280 
80601290 
80601300 
80601310 
80601320 
80601330 
80601340 
80601350 
80601360 
80601370 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



27JUN66 
415178A 



010CT67 

411875 



17JUN68 
411939 



14N0V69 
431319 



20MAR70 
431320 



PROG ID 
PAGE 



0806-1 
1 



DATE 


28FEB66 


01MAY66 


27JUN66 


010CT67 


17JUN68 


14N0V69 


20MAR70 


PROG ID 


0806-1 


EC NO. 


415120 


415120A 


415178A 


411875 


411939 


431319 


431320 


PAGE 


1A 



IBM MAINTENANCE: DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1053/1816 FUNCTION TEST 



PART NO. 2196366 
PAGE 2 



084E 





COCB 






LO 




P16EF 


SET PRINTER ID 




80601380 


084F 





18CB 






RTF 




11 






80601390 


0850 


1 


6700 


0F02 




LDX 


L3 


PTR5 






80601400 


0852 





401D 






BSI 




COMIN 






80601410 


0853 


1 


4C80 


084D 


# 


BSC 


I 


PTR5I 




IX 


80601420 
80601430 
80601440 


0855 





0000 




DVA6 
* 


OC 




/OOOO 


PTR 6 AREA CODE 




80601450 
80601460 


0856 





0000 




PTR6I 


DC 




/OOOO 


PTR 6 INTERRUPT RTN 


IE 


80601470 


0857 





C0C2 






LD 




P16EF 


SET PRINTER ID 




80601480 


0858 





18CA 






RTE 




10 






80601490 


0859 


1 


6700 


0F14 




LDX 


L3 


PTR6 






80601500 


085B 





4014 






BSI 




COMIN 






80601510 


085C 


1 


4C80 


0856 


* 
* 


BSC 


I 


PTR6I 




IX 


80601520 
80601530 
80601540 


085E 





0000 




0VA7 

# 


OC 




/OOOO 


PTR 7 AREA CODE 




80601550 
80601560 


085F 





0000 




PTR7I 


OC 




/OOOO 


PTR 7 INTERRUPT RTN 


IE 


80601570 


0860 





C0B9 






LD 




P16EF 


SET PRINTER ID 




80601580 


0861 





18C9 






RTE 




9 






80601590 


0862 


1 


6700 


0F26 




LDX 


L3 


PTR7 






80601600 


0864 





400B 






BSI 




COMIN 






80601610 


0865 


1 


4C80 


085F 


# 


BSC 


I 


PTR7I 




IX 


80601620 
80601630 
80601640 


0867 





0000 




DVA8 

* 


DC 




/OOOO 


PTR 8 AREA CODE 




80601650 
80601660 


0868 





0000 




PTR8I 


DC 




/OOOO 


PTR 8 INTERRUPT RTN 


IE 


8 06016 70 


0869 





COBO 






LO 




P16EF 


SET PRINTER ID 




80601680 


086A 





18C8 






RTE 




8 






80601690 


086B 


1 


6700 


0F38 




LDX 


L3 


PTR8 






80601700 


0860 





4002 






BSI 




COMIN 






80601710 


086E 


1 


4C80 


0868 


* 


BSC 


I 


PTR8I 




IX 


80601720 
80601730 


0870 





0000 




COM IN 


DC 




/OOOO 






80601740 


0871 





C302 






LD 


3 


STS 






80601750 


0872 


1 


B400 


0960 




CMP 


L 


K8000 


BR IF PTR SELECTED 




80601760 


0874 





OBOA 






XIO 


3 


PTR 


SENSE - RESET DSW 




80601770 


0875 





7003 






MDX 




TIPE 






80601780 


0876 





OBOA 






XIO 


3 


PTR 


SENSE - RESET OSW 




80601790 


0877 


1 


4C80 


0870 


COMIX 


BSC 


I 


COM I N 






80601800 










#******#*##***J!1***** **«#***##*«*«>;:***#**#**** 




80601810 


0879 





1800 




TIPE 


RTE 




16 






80601820 


087A 


1 


4C28 


0884 




BSC 


L 


COMU.tZ 


BR IF 1816 




80601830 


087C 





C079 






LO 




II 


CHECK PTR INT 




80601840 


0870 





0302 




COMIL 


STO 


3 


STS 






80601850 


087E 


1 


C400 


0960 




LD 


L 


K8000 






80601860 


0880 





1800 






RTF 




16 






80601B70 


0881 


1 


B400 


0960 




CMP 


L 


K8000 


BR IF DSW ERROR 




80601880 


0883 





1000 






NOP 










80601890 


0884 





7001 






MDX 




KEYER 






80601900 


0885 





70F1 




* 


MDX 




COMIX 






80601910 
80601920 


0886 





4005 




KEYER 


BSI 




DETE 


CK IF 1053 FOR 1816 




80601930 


0887 





70EF 






MDX 




COMIX 


DSW OK 




80601940 


0888 





DB10 






STD 


3 


ERR 


SAVE OSW ERROR 




80601950 


0889 


1 


6F00 


09E2 




STX 


L3 


ERINO 


SET ERROR INDICATOR 




80601960 


088f) 





70ER 




* 
* 


MDX 




COMIX 

CK IF 1053 


FOR 1816 




80601970 
80601980 
H0601990 
80602000 


088C 





0000 




DETE 


OC 




*-* 


ENTRY 




80602010 


0880 





6B10 






STX 


3 


0FTX£1 


SAVE XR 3 




80602020 


088E 





00 1C 






STO 




(JETS 


SAVF ACC 




80602030 


088F 





1001 






SLA 




1 






80602040 


0890 





F01B 






EOR 




K0400 


KEYBD NOT READY 




80602050 



DATE 


28FEB66 


01MAY66 


27JUN66 


010CT67 


17JUN68 


14N0V69 


20MAR70 


PROG 10 


0806-1 


EC NO. 


415120 


415120A 


415178A 


411875 


411939 
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431320 
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0891 


1 


4C20 


089B 




BSC 


L 


DETR.Z 


BCH IF KYBD READY 


80602060 










* 










80602070 


0893 





6306 






LDX 


3 


6 




80602080 


0894 





C009 




OETG 


LD 




DETXtl 


XR 3 VALUE 


80602090 


0895 


1 


F700 


08A7 




EOR 


L3 


DETBL-1 


COMPARE PTR ADRS 


80602100 


0897 


1 


4C18 


08A2 




BSC 


L 


DETC1,£- 


BCH IF PTR FOUND 


80602110 


0899 





73FF 






MDX 


3 


-1 




80602120 


089A 





70F9 




* 


MDX 




DETG 




80602130 
80602140 


089B 


1 


7401 


088C 


DETR 


MDX 


L 


DETE.l 


ADJ RETURN ADRS, ERR 


80602150 


0890 





6700 


OOOO 


DETX 


LDX 


L3 


«-* 


RESTORE XR 3 


80602160 


089F 





COOB 






LD 




DETS 


RESTORE ACC 


80602170 


08A0 


1 


4C80 


088C 


$ 


BSC 


I 


DETE 


RETURN VIA ENTRY 


80602180 
80602190 


08A2 


1 


C400 


081A 


DETC1 


LO 


L 


P16EF 




80602200 


08A4 





1300 






SLA 


3 







80602210 


08A5 





4802 






BSC 




C 


IS 1053 FOR 1816 


80602220 


08A6 





70F4 






MDX 




OETR 


* NO 


80602230 


08A7 





70F5 




* 


MDX 




DETX 


* YES 


80602240 
80602250 


08A8 


1 


0EA8 




DETBL 


OC 




PTRO 


MON LOG PTR 


80602260 


08A9 


1 


OEBA 






DC 




PTR1 


PTR1 ADRS 


80602270 


08AA 





OOOO 






OC 




#_# 


NOT USED 


80602280 


08AB 





OOOO 




DETS 


DC 




*-« 


ACC STORAGE , 


80602290 


08AC 





0400 




K0400 


OC 




/0400 


CONSTANT 


80602300 


08AD 


1 


0F02 




* 


DC 




PTR5 


PTR5 ADRS 


80602310 
80602320 


08 A E 





004A 




KBDOL 


STO 




TEMPX 


SAVE ACC 


80602330 


OUAF 





1010 






SLA 




16 


CLEAR ACC 


80602340 


08B0 


1 


D400 


0803 




STO 


L 


SW1 


REMOVE RTN 12 SELECTION 


80602350 


08B2 





C046 






LD 




TEMPX 


RESTORE ACC 


80602360 


08B3 





7003 




* 


MDX 




COM I 2 




80602370 
80602380 


08B4 





18CE 




COM 11 


RTE 




14 




80602390 


08B5 


1 


4C28 


08BF 




BSC 


L 


KBORO.CZ 


BR IF KBO REQUEST 


80602400 


08B7 





1802 




COM I 2 


RTE 




18 




80602410 


08B8 





C302 






LD 


3 


STS 




80602420 


08B9 


1 


B400 


0C89 




CMP 


L 


KEOOO 




80602430 


08 BB 





702C 






MDX 




C0MI4 


CHECK PRTR INTRPT 


80602440 


08BC 





70BA 




* 


MDX 




COM I X 




80602450 
80602460 


08BD 





C037 






LD 




KAOOO 


SELECT KEYBOARD NEXT 


80602470 


08 BE 





70BE 






MDX 




COMIL 




80602480 
80602490 


08 BF 


1 


7400 


080F 


KBDRO 


MDX 


L 


ONLIN,0 


IS IT ON-L IMF 


80602500 


08C1 





70EC 






MDX 




KBOOL 


* YES 


80602510 


08C? 


1 


C400 


0803 




LD 


L 


SW1 


* NO, GET RTN NUMBER 


80602520 


08C4 


1 


E400 


0B06 




AND 


L 


BASIC 


REMOVE BAD BITS 


80602530 


08C6 


1 


F400 


0A2F 




FOR 


L 


TWLVE 




80602540 


08C8 


1 


4C16 


08 CD 




BSC 


L 


KBDRR, £- 


BR IF ROUTINE 12 


80602550 


08CA 





C30A 






LD 


3 


PTR 


FETCH PTR NUMBER 


80602560 


08CB 


1 


4C18 


0877 




BSC 


L 


C0MIX.6- 


BR IF PRINTER ZERO 


80602570 


08CD 





CO 2 7 




KBDRR 


LD 




KAOOO 


SELECT KEYBOARD NEXT 


80602580 


08CE 





D302 






STO 


3 


STS 




80602590 


08CF 





OBOE 




* 


XI II 


3 


SEE 


DESELECT KEYROARD 


80602600 
80602610 


08D0 


1 


C400 


0A2F 




LD 


L 


TWLVE 




80602620 


08D? 





0301 




* 


STO 


3 


RTN 


SET RTN NUMBER 


80602630 
80602640 


080 3 





6 3E7 






LDX 


3 


-25 


INITIALIZE KEYBOARD 


80602650 


0804 


1 


6F00 


0BA3 




STX 


L3 


WRDCTS1 


* ROUTINE 


80602660 


0806 





6300 






LDX 


3 







80602670 


0807 


1 


6F00 


0BC6 




STX 


L3 


SLTWD 




80602680 


080 9 





6 301 






LOX 


3 


1 




80602690 


080A 


1 


6F00 


0C98 




STX 


L3 


ANYC2 




80602700 


08DC 


1 


6F00 


0AA4 


$ 


STX 


L3 


RSADR61 




80602710 
80602 720 


08DE 


1 


C400 


0803 




LD 


L 


SW1 




80602730 
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08E0 


1 


E400 


0B06 




AND 


L 


BASIC 


REMOVE BAD BITS 


08E2 





1801 






SRA 




1 




08E3 


1 


4C20 


0877 




8SC 


L 


COMIX, Z 


BR IF SW1 NOT 1 OR 


0865 


1 


D400 


0803 


* 

* 


STO 


L 


SW1 




08E7 





708F 




MDX 




COMIX 


EXIT 


08E8 


1 


F400 


OBCB 


C0MI4 


EOR 


L 


KFOOO 




08EA 





4820 






BSC 




z 


SKIP IF READ KEYBOAR 


08EB 





7090 






MDX 




COMIL-1 


GO CHECK PTR INT 


08EC 





C074 






LD 




KCOOO 




08ED 





0302 






STO 


3 


STS 




08EE 





C005 






LD 




K4000 




08EF 





18D0 






RTE 




16 




08F0 





B003 






CMP 




R4000 


BR IF KBD ERROR 


08F1 





1000 






NOP 








08F2 





7093 






MDX 




KEYER 




08F3 





7083 




* 
* 
* 
* 
K4000 


MDX 




COMIX 




08F4 





4000 




DC 




/4000 


CONSTANTS 


08F5 





AOOO 




KAOOO 


DC 




/AOOO 




08F6 





0002 




II 


DC 




2 




08F7 





0000 




FSTSW 


DC 




*-* 


ZERO AFTER FIRST PAS: 


08F8 





0000 




SWSTG 


DC 




*-* 


SW2 STORAGE 



08F9 0000 

08FA 68FC 
08FB 4480 012C 
08FD 1 07FF 



******************** 

TEMPX DC *-* 
********************** 

TYCUS STX FSTSW 
BSI I BEGIN 
DC PID 

********************** 
* 



*********************** 

TEMPORARY STORAGE 
*********************** 

SET FIRST SWITCH 
CALL ON MONITOR 

*********************** 



08FE 
08FF 
0900 
0902 
0904 
09 06 
0908 
090A 
090B 
090C 
090E 
090F 
0910 
0911 
0913 
0914 
0915 
0916 
0918 
0919 
091B 
091D 



0000 

C0F7 

1 4C18 
1 C400 

D400 
C400 
D400 
101O 
DOEB 
6700 
6209 
C050 
D302 
2F40 
73EE 
72FF 
70FA 
6E00 
4006 
6500 
6000 
4C80 



090C 
0811 
081B 
0804 
08F8 



0F38 



OOOC 



09B9 

0962 
0809 
08FE 



* 

* 

GO DC 
LD 
BSC 
LD 
STO 
LD 
STO 
SLA 
STO 

GDI LDX 
LDX 
LD 

RESET STO 
STS 
MDX 
MDX 
MDX 
STX 
BSI 
LDX 
STX 
BSC 



INITIALIZATION ROUTINE 



/OOOO 
FSTSW 
GO 1,6- 
DDEFO 
ODfcFX 
SW2 
SWSTG 
16 

FSTSW 
L3 PTR8 

2 9 
K8000 

3 STS 

L3 KEY./40 



3 -18 
2 -1 
RESET 
L2 PRSEL 
AGAIN 
LI ROST 
LI MLSCF 
I GO 



SE 
GET FIRST SWITCH 
BCH IF NOT FIRST PASS 
GET MON LOG DEF 

* AND SAVE IT 
SAVE SW2 

CLEAR ACC 

* AND CLEAR SWITCH 
GET LAST PTR ADRS 



RESET STATUS 
CLEAR STORAGE PROT 



SET MAIN LINE 
* SEO CONTROL FIELD 



********************** 

* 



SX 



09IF 0000 
0920 1 C400 0804 
0922 1 7400 080F 
0924 7001 



* 

* 

AGAIN DC 
LD 
MDX 
MDX 



LOO 

/OOOO 
SW2 

ONLIN.O 
AGAN1 



*********************** 
P PROGRAM ROUTINE 



GET FUNC 2 
TEST ON LINE 
* YES 



80602740 
80602750 
80602760 
80602770 
80602780 
80602790 
80602800 
80602810 
80602820 
80602830 
80602840 
80602850 
80602860 
80602870 
80602880 
80602890 
80602900 
80602910 
80602920 
80602930 
80602940 
80602950 
80602960 
80602970 
80602980 
80602990 
80603000 
80603010 
80603020 
80603030 
80603040 
80603050 
80603060 
8060 3070 
80603080 
8060 3090 
80603100 
80603110 
80603120 
80603130 
80603140 
80603150 
80603160 
80603170 
80603180 
80603190 
80603200 
80603210 
80603220 
80603230 
80603240 
80603250 
80603260 
80603270 
80603280 
80603290 
80603300 
80603310 
80603320 
80603330 
80603340 
80603350 
80603360 
80603370 
80603380 
80603390 
80603400 
80603410 
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0925 7018 MDX AGAN8 * NO 



PART NO. 2196366 
PAGE 3A 



0926 6100 

0927 1 6D00 0B49 
0929 1 4C20 0932 
092B 61F7 
092C 1 C500 081A 



09 2 E 

0930 
0931 



4C20 093A 
7101 

70FA 



0932 6100 

0933 4828 

0934 7003 

0935 1001 

0936 7101 

0937 70FB 

0938 1 C500 0811 
093A 1 D400 0811 
093C C023 
093L) 7006 

093E 1 C400 0804 

0940 1 4C20 0944 

0942 1 C400 09B6 

0944 1 D400 0804 

0946 1 D400 09B7 

0948 1 6500 09BA 
094A 1 6D00 0809 
094C 1 4C80 091F 



094E 


1 


0811 


094 F 


1 


0812 


0950 


1 


0813 


0951 


1 


0814 


0952 


1 


0815 


0953 


1 


0816 


0954 


1 


0817 


0955 


1 


0818 


0956 


1 


0819 


0957 


1 


081D 


0958 


1 


0828 


0959 


1 


0831 


095A 


1 


083A 


095B 


1 


0843 


095C 


1 


084C 


095D 


I 


0855 


095E 


1 


085 E 


095F 


1 


0867 


0960 





8000 


0961 





COOO 



0962 1 6700 OCDD 

0964 1 6600 0984 

0966 61F7 

0967 1 C500 081A 
0969 1 4C20 0976 
096B 7101 



AGAN1 LDX 
STX 
BSC 
LDX 

AGAN2 LD 
BSC 
MDX 
MDX 

AGAN5 LDX 
BSC 
MDX 
SLA 
MDX 
MDX 

AGAN6 LD 

AGAN4 STO 
LD 
MDX 

* 

AGAN8 LD 
BSC 
LD 
STO 
STO 

LDX 
STX 
BSC 



XX 



DDEFS DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



DVAS 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



1 

LI DSWCS+1 

L AGAN5,Z 

1 -9 

LI DDEF069 

L AGAN4,Z 

1 1 

AGAN2 

1 

£Z 

AGAN6 

1 
1 1 

AGAN5&1 

LI DDEFO 
L DOEFO 

K8000 

XX 



SW2 
XX, Z 
KFF80 
SW2 
SWCMP 



LI SELT 
LI MLSCF 
I AGAIN 

DDEFO 
D0EF1 
DDEF2 
D0EF3 
DDEF4 
DDLF5 
D0EF6 
DDEF7 
DDEF8 

DVAO 
DVA1 
DVA2 
DVA3 
DVA4 
DVA5 
DVA6 
DVA7 
DVA8 



CHANGE VALUE 

BCH IF PRINTER SELECTED 

GET DDEF ENTRY 
IS IT ZERO 
* YES 



IS PRINTER FOUND 

* YES 

* NO 



STORE PTR TO TEST 



BCH IF PTR SELECTED 
* NO, SELECT ALL PTR 
SET PTR SELECTED 



SET MAIN LINE 
* SEQUENTIAL CONTROL 

*** ******** ************ 



ADDR OF AREA CODE 



PTR SVC INT DSW S/B 



K8000 DC /8000 

KCOOO DC /COOO 

********************************************* 
* 

* REQUEST DEVICE ROUTINE 

# 

# 

RQST LDX L3 TEND3 

LDX L2 R0ST8 

LDX 1 -9 

RQST1 LD LI DDEF069 

BSC L RQST2.Z 

RQST3 MDX 1 1 



BR IF DEVICE EDITED 



80603420 

80603430 

80603440 

80603450 

80603460 

80603470 

80603480 

80603490 

80603500 

80603510 

80603520 

80603530 

80603540 

80603550 

80603560 

80603570 

80603580 

80603590 

80603600 

80603610 

80603620 

80603630 

80603640 

80603650 

80603660 

80603670 

80603680 

80603690 

80603700 

80603710 

80603720 

80603730 

80603740 

80603750 

80603760 

80603770 

80603780 

80603790 

80603800 

80603810 

80603820 

80603830 

80603840 

80603850 

80603860 

80603870 

80603880 

80603890 

80603900 

80603910 

80603920 

80603930 

80603940 

80603950 

80603960 

80603970 

80603980 

80603990 

80604000 

80604010 

80604020 

80604030 

8 0604040 

80604050 

80604060 

80604070 

80604080 

80604090 



DATE 


28FEB66 
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010CT67 
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PROG ID 
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EC NO. 


415120 
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415178A 
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3 



DATE 


28FEB66 


01 MAY 66 


27JUN66 


010CT67 


17JUN68 


14N0V69 


2OMAR70 
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096C 70FA 
0960 C028 
096E D300 
096F 0200 



MDX RQST1 

LO RQSTT 

STO 3 

STO 2 



TERMINATE FIELDS 



0970 1 


C400 


081A 




LD 


L 


P16EF 


ASSURE PROPER EDIT 




0972 


E043 






AND 




KFF80 


REMOVE BAO BITS 




0973 1 


D400 


081A 




STO 


L 


P16EF 






0975 


700B 




* 


MDX 




RQSTC 






0976 1 


C5 00 


0957 


* 
RQST2 


LD 


LI 


DDEFS69 


PLACE DEVICE 




0978 


D200 






STO 


2 





* CONSTANTS IN 




0979 


7201 






MDX 


2 


1 


* REQUEST 6 RELEASE 




097A 


D300 






STO 


3 





* AREAS 




097B 


7301 






MDX 


3 


1 






097C 1 


C500 


0960 




LD 


LI 


DVAS69 






097E 


0200 






STO 


2 









097F 


7201 






MDX 


2 


1 






0980 


70EA 




* 

* 


MDX 




RQST3 












&*##*#**##*#*###*#**#>!<##*<:}£##$>;<>:!$#£)*##### 


0981 


4480 


0131 


# 

RQSTC 


BSI 


I 


REQDV 


REQUEST DEVICE 


* 


0983 1 


09AD 






OC 




RQST5 


BUSY RETURN 


* 


0984 


7012 




RQST8 


MOX 




RQST6 




* 


0985 


7011 






MDX 




RQST6 




* 


0986 


7010 






MDX 




RQST6 




* 


0987 


700F 






MDX 




RQS76 




* 


0988 


700E 






MDX 




RQST6 




* 


0989 


700D 






MDX 




RQST6 




* 


098A 


700C 






MDX 




RQST6 




* 


0988 


700B 






MDX 




RQST6 




* 


098C 


700A 






MDX 




RQST6 




* 


098D 


7009 






MDX 




RQST6 




* 


098E 


7008 






MDX 




RQST6 




# 


098F 


7007 






MDX 




RQST6 




* 


0990 


7006 






MOX 




RQST6 




# 


0991 


7005 






MDX 




RQST6 




* 


0992 


7004 






MDX 




RQST6 




* 


0993 


7003 






MDX 




RQST6 




* 


0994 


7002 






MDX 




RQST6 




* 


0995 


7001 






MOX 




RQST6 




* 


0996 1 


080A 




RQSTT 


DC 




TERM 




* 








*#***********#*#***#****#****#**##«###*****: 


i=* 


0997 1 


6700 


0F38 


RQST6 


LDX 


L3 


PTR8 


BUILD XIO COMMANDS 




0999 


6109 






LDX 


1 


9 






099A 1 


C580 


0956 


BUILD 


LD 


11 


DVAS-1 






099C 


E816 






OR 




K0100 






099D 


D309 






STO 


3 


WRT61 






099E 


E815 






OR 




K0701 






099F 


D30B 






STO 


3 


PTRfil 






09A0 1 


C580 


0956 




LD 


11 


DVAS-1 






09A2 1 


ECOO 


08AC 




OR 


L 


K0400 






09A4 


D30D 






STO 


3 


KEYS1 






09 A 5 1 


C580 


0956 




LD 


11 


DVAS-1 






09A7 


E80D 






OR 




K0200 






09A8 


D30F 






STO 


3 


SEEC1 






09A9 


73EE 






MOX 


3 


-18 






09AA 


71FF 






MDX 


1 


-1 






09AB 


70EE 




£ 


MDX 




BUILD 






09AC 


700D 




* 


MDX 




SELT 






09AD 1 


6500 


0981 


* 

RQST5 


LDX 


LI 


RQSTC 


TRY LATER 




09AF 1 


6D00 


0809 


RQST9 


STX 


LI 


MLSCF 







80604100 
80604110 
80604120 
80604130 
80604140 
80604150 
80604160 
80604170 
80604180 
80604190 
80604200 
80604210 
80604220 
80604230 
80604240 
80604250 
80604260 
80604270 
80604280 
80604290 
80604300 
80604310 
80604320 
80604330 
80604340 
80604350 
80604360 
80604370 
80604380 
80604390 
80604400 
80604410 
80604420 
80604430 
80604440 
80604450 
80604460 
80604470 
80604480 
80604490 
80604500 
80604510 
80604520 
80604530 
80604540 
80604550 
80604560 
80604570 
80604580 
80604590 
80604600 
80604610 
80604620 
80604630 
80604640 
80604650 
80604660 
80604670 
80604680 
80604690 
80604700 
80604710 
80604720 
80604730 
80604740 
80604750 
80604760 
80604770 
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09B1 





4C80 


012D 


* 


BSC 


I 


START 


09B3 





0100 




* 

KG 100 


DC 




/0100 


09 B4 





0701 




K0701 


DC 




/0701 


09B5 





0200 




K0200 


DC 




/0200 


09B6 





FF80 




KFF80 


DC 




/FF80 


09B7 





0000 




SWCMP 


DC 




/OOOO 


09B8 





0000 




TEMP 


DC 




/OOOO 


09B9 





0000 




PRSEL 

* 

SELT 


DC 




/OOOO 


09BA 


1 


C400 


0804 


LD 


L 


SW2 


09BC 





1807 






SRA 




7 


09BD 


1 


4C08 


0CB3 




BSC 


L 


TYEND,£ 


09BF 


1 


4400 


08FE 




RSI 


L 


GO 


09C1 





6109 






LDX 


1 


9 


09C? 


1 


6700 


0F38 




LDX 


L3 


PTR8 


09C4 


1 


C400 


0804 




LD 


L 


SW2 


09C6 





1806 






SRA 




6 


09C7 





4009 




SELT7 


BSI 




WHCH 


09C8 





C302 






LD 


3 


STS 


09C9 





F096 






EOR 




K8000 


09CA 


1 


4C20 


09D8 




BSC 


L 


WHCH1,Z 


09CC 


1 


7401 


09B9 




MDX 


L 


PRSEL, 1 


09CE 





C0F8 






LD 




SELT7 


09CF 





D302 






STO 


3 


STS 


09D0 





7007 




* 


MDX 




WHCH1 


09D1 





0000 




* 

WHCH 
* 


DC 




/OOOO 


09D2 





D0E5 






STO 




TEMP 


09D3 





C0E4 




WHCH2 


LD 




TEMP 


091)4 





1801 






SRA 




1 


09D5 





D0E2 






STO 




TEMP 


09D6 





4804 






BSC 




E 


09D7 





7004 






MDX 




WHCH4 


09D8 





73EE 




WHCH1 


MOX 


3 


-18 


09D9 





71FF 






MDX 


1 


-1 


09DA 





70F8 






MOX 




WHCH2 


09DB 





7007 






MDX 




PRCON 


09DC 


1 


C580 


0956 


WHCH4 


LD 


11 


DVAS-1 


09DE 


1 


4C18 


09D8 




BSC 


L 


WHCH1,£- 


09EO 


I 


4C80 


09D1 


., 


BSC 


I 


WHCH 


09E2 





0000 




ERIND 


DC 




/OOOO 



CONSTANT 
SW2 COMPARE WORD 

NO OF PTRS SELTD 



END IF NO SELECT 
DESELECT ALL PTRS 



SELECT PRINTER 

BR IF PTR SELTD 
SELECT ONE PRINTER 



09E3 1 C400 OEAA 
09E5 1004 

09E6 1 4C28 09F4 

09E8 1 C400 0803 

09EA 1 E400 0B06 
09EC F042 

09ED 1 4C20 09F3 

09EF 1 C400 081A 

09F1 1 4C28 09F4 

09F3 4022 

09F4 COED 

09F5 1 4C20 0B09 



PRCON 


LD 

SLA 

BSC 


L 
L 


PTR06STS 
4 
CKERR, £Z 


LD 
AND 
EOR 
BSC 


L 
L 

L 


SWl 
BASIC 
TWLVE 
CKHAV, Z 


* 


LD 
BSC 


L 

L 


P16EF 
CKERR, £Z 


CKHAV 


BSI 




CKREL 


CKERR 


LD 
BSC 


L 


ERIND 
INERR.Z 



CAN PTR BE LEGALLY 

* SELECTED OR 

* DESELECTED 



FOUND ONE WNTD 



BR IF NO PTR THERE 
RET TO SEL OR DESEL 

ERROR INDICATOR 

PRINTER TEST 

FETCH STS OF PTRO 

BR IF NO RELES PTRO 

FETCH ROUTINE NO 
REMOVE BAD BITS 

BR IF NOT KBD RTN 

BR IF 1816 
CHECK RELEASE 

BR IF ERROR INDICATD 



80604780 
80604790 
80604800 
80604810 
80604820 
80604830 
80604840 
80604850 
80604860 
80604870 
80604880 
80604890 
80604900 
80604910 
80604920 
80604930 
80604940 
80604950 
80604960 
80604970 
80604980 
80604990 

60605000 
80605010 
80605020 
80605030 
80605040 
80605050 
80605060 
80605070 
80605080 
80605090 
80605100 
80605110 
80605120 
80605130 
80605140 
80605150 
80605160 
80605170 
80605180 
80605190 
80605200 
80605210 
80605220 
80605230 

80605240 
80605250 
80605260 
80605270 
80605280 
80605290 
80605300 
80605310 
80605320 
80605330 
80605340 
80605350 
80605360 
80605370 
80605380 
80605390 
80605400 
80605410 
80605420 
80605430 
80605440 
80605450 
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09F7 1 C400 0804 

09F9 FOBD 

09FA 1807 

09FB 1 4C20 09BA 



09F0 COBB 
09FE 1 4C08 0CB3 



OAOO 6600 0009 
0A02 1 6700 OF 38 

0A04 C302 
0A05 D060 
0A06 1 4C10 0A42 



0A08 





B024 




0A09 





7027 




OAOA 





1001 




OAOB 


1 


4C18 


0A39 


OAOD 





180E 




OAOE 


1 


B400 


08F6 


0A1O 





7028 




0A11 





7002 




0A12 





6102 




0A13 





7031 




0A14 





6101 




0A15 





702F 







LD 


L 


SW2 




EOR 




SWCMP 




SRA 




7 




BSC 


L 


SELT.Z 


* 










LD 




PRSEL 




BSC 


L 


TYEND,£ 


***** 


**************** 


* 








* 








EXEC 


LDX 


L2 


9 


EXEC1 


LDX 


L3 


PTR8 


* 








EXEC2 


LD 


3 


STS 




STO 




RESTO 




BSC 


L 


EXEC3,- 




CMP 




KF800 




MDX 




SVCAD 




SLA 




1 




BSC 


L 


EXECO, £• 




SRA 




14 




CMP 


L 


II 




MDX 




EXECO 




MDX 




EXEC5 




LDX 


1 


2 


* 


MDX 




EXEC6&1 


EXECS 


LDX 


1 


1 




MDX 




EXEC6G1 



0A16 0000 
0A17 1 C400 0811 
0A19 1 4C90 0A16 

0A1B 4480 0132 
0A1D 1 0811 
0A1E 1 080A 



CKREL DC *-* 

LD L DDEFO 

BSC I CKREL.- 

BSI I RELDV 
DC DDEFO 

DC TERM 



BR IF SWS CNGEO 



BR IF LAST PTR DONE 



RESTORE RTN STATUS 



BR IF PTR SVC RQSTD 



TAKE NEXT PTR BRANCH 

IS KBD SVC REQSTD 
NO - BRANCH 
SELECT KEYBOARD NEXT 
READ KBD SET UP 



SELECT KEYBOARD SET 



RETURN ADRS 

GET MON DDEF 

BCH IF MON LOG RELEASED 

************ *#********=j!* 

REL MON LOG DEVICE 











*****; 


i"f -P if f 


**************: 


********************** 


0A1F 





6908 






STX 


1 


CKRXT+1 


SAVE XR1 


0A20 





6A09 






STX 


2 


CKRXT+3 


SAVE XR2 


0A21 


1 


6700 


0A27 




LDX 


L3 


CKRXT 


GET ENTRY 


0A23 


1 


6F0O 


0809 




STX 


L3 


MLSCF 


* AND SET TABLE 


0A25 





4C80 


0120 




BSC 


I 


START 


GO Tf) MONITOR 


0A27 





6500 


0000 


CKRXT 


LDX 


LI 


*-* 


RESTORE XR1 


0A29 





6600 


0000 




LDX 


L2 


*-* 


RESTORE XR2 


0A2B 


1 


4C80 


0A16 


* 


BSC 


I 


CKREL 




0A2D 





F800 




KF800 


DC 




/F800 




0A2E 





FCOO 




KFCOO 


DC 




/FCOO 




0A2F 





OOOC 




TWLVE 


DC 




12 


CONSTANT 


0A3O 





OOOB 




ELVEN 


DC 




11 


CONSTANT 


0A31 





6B03 




SVCAD 


STX 


3 


SVC£1 


COUNT DOWN FOR INT 


0A32 


1 


7402 


0A35 




MDX 


L 


SVC£1,2 




0A34 


1 


7401 


OEAA 


SVC 


MDX 


L 


PTR0£STS,1 




0A36 





7002 






MDX 




EXECO 




0A37 





6103 






LDX 


1 


3 


PRINT NO INT ERROR 


0A38 





700C 




* 


MDX 




EXEC6£l 




0A39 





73EE 




* 
EXECO 


MDX 


3 


-18 


TAKE NEXT PTR 


0A3A 





72FF 






MDX 


2 


-1 




0A3B 





70C8 




* 


MDX 




EXEC2 




0A3C 





6109 






LDX 


1 


9 


RESTORE RTN STATUS 


0A3D 





69C3 






STX 


1 


EXEC61 
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80605460 
80605470 
80605480 
80605490 
80605500 
80605510 
80605520 
80605530 
80605540 
80605550 
80605560 
80605570 
80605580 
80605590 
80605600 
80605610 
80605620 
80605630 
80605640 
80605650 
80605660 
80605670 
80605680 
80605690 
80605700 
80605710 
80605720 
80605730 
80605740 
80605750 
80605760 
80605770 
80605780 
80605790 
80605800 
80605810 
80605820 
80605830 
80605840 
80605850 
80605860 
80605870 
80605880 
80605890 
80605900 
80605910 
80605920 
80605930 
80605940 
80605950 
80605960 
80605970 
80605980 
80605990 
80606000 
80606010 
80606020 
80606030 
80606040 
80606050 
80606060 
80606070 
80606080 
80606090 
80606100 
80606110 
80606120 
80606130 



2196366 

5 



IBM MAINTENANCE DIAGNOSTIC 

1053/1816 FUNCTION TEST 

0A3E 1 6500 0F38 
0A40 69C2 
0A41 7028 

0A42 COEB 
0A43 6100 

0A4-4 D302 
0A45 73EE 
0A46 6BBC 

0A47 72FF 
0A48 7012 

0A49 6209 

0A4A 6AB6 

0A4B 1 6600 OF 38 

0A4D 6AB5 

0A4E 40C7 

0A4F 1 7401 081C 
0A51 1000 
0A52 4480 0131 
0A54 1 0A67 
0A55 1 0811 
0A56 1 081D 
0A57 1 080A 

0A58 1 6700 0E96 
0A5A 7001 



0A5B 6AA5 

0A5C 7313 
0A5D 6B6 1 
0A5E 73FF 
0A5F 6B5D 
0A60 1 4D80 0A62 



PROGRAM FOR THE 1800 SYSTEM 



LDX LI PTR8 



PART NO. 2196366 
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0A62 1 OAFS 
0A63 1 0B53 
0A64 1 0B74 
0A65 1 0B4A 

0A66 0000 



0A67 COFE 
0A68 1 0400 OEAA 
0A6A 1 6400 OAEF 



0A6C 0001 
0A6D 0000 

0A6E 1 C400 0803 
0A70 1 E400 0B06 
0A72 BOBD 
0A73 1000 
0A74 7047 

0A75 1 C400 0805 
0A77 1808 
0A78 F0F3 
0A79 4820 



STX 


1 


EXEC1S1 


MDX 
* 




EXEC9 


EXEC3 LD 




KFCOO 


LDX 


1 





EXEC6 STO 


3 


STS 


MDX 


3 


-18 


STX 


3 


EXEC1S1 


MDX 


2 


-1 


MDX 

* 




EXECA 


LDX 


2 


9 


STX 


2 


EXEC£1 


LDX 


L2 


PTR8 


STX 


2 


EXEC161 


BSI 




CKREL 


****** *# 


***: 


*********** 


MDX 


L 


INTSW.l 


NOP 






BSI 


I 


REODV 


DC 




EXEC7 


DC 




DDEFO 


DC 




DVAO 


DC 




TERM 


************#£*#*£###£ J*!*; 


EXEC8 LDX 


L3 


PTRO-18 


MDX 

* 




ADRS 


* 

EXECA STX 


2 


EXECE1 


ADRS MDX 


3 


19 


STX 


3 


MARKLE1 


MDX 


3 


-1 


STX 


3 


MARKGE1 


BSC 


11 


NEXT 



SERVICE PRINTER 



UPDATE PRINTER STS 



SKIP IF PTR 



RESTORE RTN STATUS 



CHECK RELEASE 
SET INT* SW 

REQUEST USE OF MON 
' LOGGING DEVICE 



S(. 



<******************$ 

RESTORE RTN STATUS 
SETUP CHAR RTNN 



* 




* 




* 




NEXT 


DC 




DC 




DC 




DC 


RESTO 


DC 



READY 
SELC2 
KEYBD 
NO IN 

/OOOO 



PRINTER READY £ TYPF 
KBD PROCEED STS 
READ KEY CHARACTER 
NO INTERRUPT EXIT 



EXEC7 LD RESTO 

STO L PTROESTS 
EXEC9 LDX L MARKX 

******* ********************,;!#«$##£ ^^^^.j, £,. 
* 



OUTPUT TEMP STG 



I 


DC 




1 


OUTWD 


DC 




*-* 


* 








MARK 


LO 


L 


SW1 




AND 


L 


BASIC 




CMP 




ELVEN 




NOP 






* 


MDX 




MARKG 




LD 


L 


SW3 




SRA 




8 




EOR 




I 




BSC 




Z 



REMOVE BAD BITS 

IS TYPE SWS ROUTINE 

NO 



SKIP IF ILLEGAL CODE 



80606140 

80606150 

80606160 

80606170 

80606180 

80606190 

80606200 

80606210 

80606220 

80606230 

80606240 

80606250 

80606260 

80606270 

80606280 

80606290 

80606300 

80606310 

80606320 

80606330 

80606340 

80606350 

80606360 

80606370 

80606380 

80606390 

8 0606400 

80606410 

80606420 

80606430 

80606440 

80606450 

80606460 

80606470 

80606480 

80606490 

80606500 

80606510 

80606520 

80606530 

80606540 

80606550 

80606560 

80606570 

80606580 

80606590 

80606600 

80606610 

80606620 

80606630 

80606640 

80606650 

80606660 

80606670 

80606680 

80606690 

80606700 

80606710 

80606720 

80606730 

80606740 

80606750 

80606760 

80606770 

80606780 

80606790 

80606800 

80606810 



DATE 
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20MAR70 


PROG 10 
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EC NO. 


415120 
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411939 


431319 


431320 
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010CT67 
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PROG ID 
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415120 
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431319 


431320 


PAGE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1053/1816 FUNCTION TEST 



0A7A 
0A7B 
0A7C 
0A7D 
0A7E 
0A7F 
0A80 

0A81 
0A83 
0A84 
0A85 
0A86 
0A87 
0A88 



F0F1 
D0F1 
C303 
18C8 
BOEE 
1000 
700A 



1 C400 0805 
1008 

1808 
F0E6 
4820 
F0E4 
1088 



0A89 D303 
0A8A 7064 

0A8B C0E1 
0A8C 70FB 



0A8D 
0A8E 
0A90 
0A92 
0A94 
0A96 
0A97 
0A99 
0A9A 
0A9B 
0A9D 
0A9F 
OAAO 
0AA2 



6B05 
C400 
D400 

6700 

1 6500 

C302 
74FF 
7001 
7002 
4C28 
C400 
D302 

1 74FF 
1000 



0B47 
0C8A 
0000 
0A92 

0C8A 



0C7E 
0960 

09B9 



0AA3 6600 0001 
0AA5 7201 
0AA6 D301 
0AA7 1 6E80 OABF 

0AA9 1 C680 0C8A 
OAAB 0304 

OAAC 1810 
OAAD 0307 

OAAE 1 C600 0C8A 
OABO 1 F400 0C95 
0AB2 1 4C18 0A8D 
0AB4 1 C600 0C8A 

0AB6 8307 
0AB7 D300 

0AB8 1810 
0AB9 0306 

OABA CObl 
OABB 0305 

OABC 6580 0000 
OABE 6680 0000 

OACO C305 
0AC1 80AA 
0AC2 0305 



EOR 

STO 

LD 

RTE 

CMP 

NOP 

MDX 

* 

LD 

SLA 

SRA 

EOR 

BSC 

EOR 

MARKA SLT 
STO 
MDX 

MARKB LD 
MDX 

* 

* 



MARK2 



MARKR 



MARKQ 

MARKP 



* 

RSADR 

MARK3 



# 
MARK4 



* 
MARK5 



MARKG 
MARKL 
* 



STX 

LD 

STO 

LDX 

LDX 

LD 

MDX 

MDX 

MDX 

BSC 

LD 

STO 

MDX 

NOP 

LDX 
MDX 
STO 
STX 

LD 
STO 

SRA 
STO 

LD 
EOR 
BSC 
LD 

A 
STO 

SRA 
STO 

LD 
STO 

LDX 
LDX 

LD 

A 

STO 



I 

OUT WD 
OUT 
8 
OUTWD 

MARKB 

SW3 

8 

8 

I 

Z 

I 

8 

OUT 

MARKX 

OUTWD 
MARKA 



3 MARKR61 
L F02 00 
L TIMEX 
L3 /OOOO 
LI MARKR 

3 STS 

L TIMEX, -1 

MARKO 

MARKP 

L PDSWX.SZ 

L K8O0O 

3 STS 
L PRSEL.-l 



L2 1 

2 1 

3 RTN 

12 MARKLU 

12 FUNR-1 
3 ITR 

16 
3 PAD 

L2 FUNR-1 

L FUND 

L MARK2.+- 

L2 FUNR-1 

3 PAD 
3 ADR 

16 

3 NOS 



I 
3 SLT 

11 /OOOO 

12 /OOOO 



SAVE RHS OF OLD WORD 

CK IF SHOULD BE 
* SHIFTED 



TAKE RIGHT HALF WORD 



SKIP IF ILLEGAL CODE 



SET UP TIME COUNTER 
RESTORE INDEX REGS 

DECR TIMER 



BR IF NO INT YET 
DESELECT PRINTER 



RESTORE START ADDR 



3 SLT 

I 
3 SLT 



RESTORE WORDS PT 



RESTORE TEST PT 
CK FOR TERMINATOR 
BR IF TERMINATOR 



RESTORE WORDS PRTD 



RESTORE SHIFT WORD 



RESTORE INDEX REGS 



BUMP SFF WD BY ONE 
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80606820 
80606830 
80606840 
80606850 
80606860 
80606870 
80606880 
80606890 
80606900 
80606910 
80606920 
80606930 
80606940 
80606950 
80606960 
80606970 
80606980 
80606990 
80607000 
80607010 
80607020 
80607030 
80607040 
80607050 
80607060 
80607070 
80607080 
80607090 
80607100 
80607110 
80607120 
80607130 
80607140 
80607150 
80607160 
80607170 
80607180 
80607190 
80607200 
80607210 
80607220 
80607230 
80607240 
80607250 
80607260 
80607270 
80607280 
80607290 
80607300 
80607310 
80607320 
80607330 
80607340 
80607350 
80607360 
80607370 
80607380 
80607390 
80607400 
80607410 
80607420 
80607430 
80607440 
80607450 
80607460 
80607470 
80607480 
80607490 
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.t 
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PROGRAM 
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EM 


PART NO. 
PAGE 


2196366 
6A 


FUNCTION TEST 
























* 










80607500 




0AC3 


1 


4C04 


0AC7 




BSC 


L 


MARKS, E 


SHIFT IF ODD 


80607510 




0AC5 





C101 






LD 


1 


1 


FETCH OUTPUT WORD 


80607520 




0AC6 





7008 




* 


MDX 




MARKN 




80607530 
80607540 




0AC7 





C306 




MARKS 


LD 


3 


NOS 


BUMP WORDS BY ONE 


80607550 




0AC8 





80A3 






A 




I 




80607560 




0AC9 





D306 




* 


STO 


3 


NOS 




80607570 
80607580 




OACA 





7101 






MDX 


1 


1 




80607590 




OACB 


1 


6D80 


OABD 




STX 


11 


MARKG61 




80607600 




OACD 





C100 






LD 


1 





FETCH OUTPUT CHAR 


80607610 




OACE 





1008 




* 


SLA 




8 


SHIFT IT 


80607620 
80607630 




OACF 





D303 




MARKN 


STO 


3 


OUT 


SAVE NEXT OUTPUT WD 


80607640 
80607650 




OADO 





F032 






EOR 




KFFOO 




80607660 




0AD1 


1 


4C20 


OAEF 


* 


BSC 


L 


MARKX, Z 


6R IF NOT END OF FCN 


80607670 
80607680 




0AD3 





C304 






LD 


3 


ITR 


DECREMENT ITCNT 


80607690 




0AD4 





9097 






S 




I 




80607700 




0AD5 





D304 






STO 


3 


ITR 




80607710 




0AD6 


1 


4C20 


OAAE 


* 


BSC 


L 


MARK5.Z 


BR IF NO DO AGAIN 


80607720 
80607730 




0AD8 





C306 






LD 


3 


NOS 


UPDATE MODIFIER WORD 


80607740 




0A09 





8092 






A 




I 




80607750 




OAUA 





D306 






STO 


3 


NOS 




80607760 




OADB 





8307 






A 


3 


PAD 




80607770 




OADC 





D307 




* 


STO 


3 


PAD 




80607780 
80607790 
80607800 
80607810 




OADD 





C101 






LD 


1 


1 


FFTCH NEXT REPEAT CT 


80607920 




OADE 





D304 






STO 


3 


ITR 




80607830 




OADF 





F024 






EOR 




KFFFF 




80607340 




OAEO 


1 


4C20 


OAAE 




BSC 


L 


MARK5.Z 


BR IF NOT END OF RTN 


80607850 




0AE2 


1 


C400 


0803 


MARKK 


LD 


L 


SW1 




80607960 




0AE4 





E021 






AND 




BASIC 


ASSURE PROPER ENTRY 


80607870 




0AE5 


1 


4C18 


0AA5 


* 


BSC 


L 


MARK 3, 6- 


BR IF NO RTN SELECT 


80607880 
80607890 




0AE7 


c 


B01F 






CMP 




ALL 




8060 7900 




0AE8 





70BC 






MDX 




MARK3 


BR IF RTN TOO LARGE 


80607910 




0AE9 





1000 






NOP 








80607920 




OAEA 





8019 






A 




KFFFF 


INITIALIZE RTN GIVEN 


80607930 




OAEB 





D001 






STO 




*C1 




8060 7940 




OAEC 





6600 


0001 




LDX 


L2 


1 




80607950 




OAEE 





70 B6 




* 

* 


MDX 




MARK 3 




80607960 
80607970 
80607980 
80607990 




OAEF 


1 


6500 


09E3 


MARKX 


LDX 


LI 


PRCON 


SET RETURN ADDRESS 


80608000 




0AF1 


1 


6D00 


0809 




STX 


LI 


MLSCF 




80608010 




0AF3 





4C80 


01 2D 




BSC 


I 


START 




8060 8020 












*****: 


* * * & * 


*fi sj: i'fi i'fi :;; :£ sj: i,i ;^ sjt ^: ;|; ;|; 


'■* - i* *** *^ : » : 'r '■' ■'•' ^: ; V V" 'V V 'V '*- 'i : 'i : -i* *i* -^ -i* ^ 


80608030 












* 










80608040 




0AF5 





10A0 




READY 


SLT 




3? 




80608050 




0AF6 





OBOA 






XIO 


3 


PTR 


SENSE - RESET DSW 


80608060 




OAF 7 


1 


4420 


088C 




BSI 


L 


DETE.Z 


CHECK 1053 FOR 1816 


80608070 




0AF9 





7026 




$ 


MDX 




TYPIT 


DSW OK 


80608080 
80608090 




OAFA 





6101 




RYDER 


LDX 


1 


1 


ERROR - NOT BUSY 


80608100 




OAFB 


1 


4400 


0C30 




BSI 


L 


PRDSW 


MC 


80608110 




OAFD 


1 


6780 


OC88 




LDX 


13 


PTRAD 




80608120 




OAFF 





C005 






LD 




KOCOO 




80608130 




OBOO 





D302 






STO 


3 


STS 




80608140 




0B01 


1 


4CO0 


OAOO 




BSC 


L 


EXEC 




80608150 












*****: 


:=**** 


* * * : 


Jiijcsts S^X*'!^ v v r 


********************** 


80608160 












* 










80608170 





DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



27JUN66 
415178A 



010CT67 
411875 



17JUN68 
411939 



14N0V69 20MAR70 

43 1319 431320 



PROG ID 0806-1 
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DATE 
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01 OCT 6 7 
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20MAR70 


PROG 


ID 


0806-1 


EC NO. 


415120 


415120A 


415178A 
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411939 


431319 


431320 
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0B03 





FFOO 


0B04 





FFFF 


0B05 





ocoo 


0B06 





000F 


0807 





OOOA 


0B08 





0012 



KFFOO DC 
KFFFF DC 
KOCOO DC 
BASIC DC 
ALL DC 
TIMEB DC 



/FFOO 

/FFFF 

/OCOO 

/OOOF 

FUND-FUNR 

/0012 



CONSTANTS 



BASIC ROUTINES 

ALL TYPEWRITER RTNS 

TIME TO LATCH CLUTCH 



i* ***** * 



************************************:» 
* 

* PRINT INTERRUPT DSW ERROR 



RESET ERROR IND 
WHICH PTR MADE ERROR 



0B09 





10A0 




INERR 


SLT 




32 


OBOA 


1 


D400 


09E2 




STO 


L 


ERIND 


OBOC 


1 


6700 


0F38 


INERO 


LDX 


L3 


PTR8 


OBOE 





6209 






LDX 


2 


9 


OBOF 





BB10 




INER1 


DCM 


3 


ERR 


0B10 





1000 






NOP 






0B11 





7005 






MDX 




INER2 


0B12 





73EE 






MDX 


3 


-18 


0B13 





72FF 






MDX 


2 


-1 


0B14 





70FA 






MDX 




INER1 


0B15 


1 


4C00 


09E3 


* 
INER2 


BSC 


L 


PRCON 


0B17 





CB10 




LDD 


3 


ERR 


0B18 





6103 






LDX 


1 


3 


0B19 


1 


4400 


0C30 




BSI 


L 


PRDSW 


0B1B 


1 


6780 


0C88 




LDX 


13 


PTRAD 


081D 





10A0 






SLT 




32 


0B1E 





DB10 






STD 


3 


ERR 


0B1F 





70EC 






MDX 




INERO 










***** 

* 

* 

* 

TYPIT 


******#*; 


********* 


0B20 


1 


C400 


0802 


LD 


L 


swo 


0B22 


1 


4C10 


0B33 




BSC 


L 


TDLY6,- 


0B24 





C0E3 






LD 




TIMEB 


0B25 


1 


D400 


0C8A 




STO 


L 


TIMEX 


0B27 


1 


65 00 


0B2E 


TDLY2 


LDX 


LI 


TDLY4 


0B29 


1 


6D00 


0809 




STX 


LI 


MLSCF 


0B2B 





6B03 






STX 


3 


TDLY461 


0B2C 





4C80 


012D 




BSC 


I 


START 


0B2E 





6700 


0000 


TDLY4 


LDX 


L3 


*-* 


0B30 


1 


74FF 


0C8A 




MDX 


L 


TIMEX, -1 


0B32 





70F4 




$ 


MDX 




TDLY2 


0B33 





0B08 




TDLY6 


XIO 


3 


WRT 


OB 34 





OBOA 






XIO 


3 


PTR 


0B35 





DOOC 




* 


STO 




DSWBY 


0B36 





FOCE 




* 


EOR 




CH 
KOCOO 


0B37 


1 


4420 


088C 




BSI 


L 


DETE,Z 


0B39 





7006 




* 
BSYER 


MDX 




BSYOK 


0B3A 





C807 




LDD 




DSWBY 


0B3B 





6102 






LDX 


1 


2 


0B3C 


1 


4400 


0C30 




BSI 


L 


PRDSW 


0B3E 


1 


6780 


OC88 




LDX 


13 


PTRAD 


0B40 


1 


4C00 


0A6E 


BSYOK 


BSC 


L 


MARK 



GOT IT 



PRINT ERROR 



CHECK ALL PRINTERS 
RETURN - NO MORE ERR 

PRINT INTRPT DSW 
* ERROR 



RESET ERROR IND 
RETURN TO CHECK 



AGN 



PRINT ONE CHARACTER 

GET FUNCTIONS 
BCH IF NO DELAY 
GET DELAY COUNT 
STORE IN COUNTER 

GET RETURN 

* AND STORE IN TABLE 

SAVE XR 3 

GO TO MONITOR 

RESTORE XR 3 
REDUCE DELAY COUNT 



PRINT CHARACTER 
SENSE - RESET DSW 



CHECK BUSY DSW 

CHECK 1053 FOR 1816 
DSW OK 

PRINT BUSY DSW ERROR 



MC 



****************************** ******** * ****** 

* 

* 



LAST BUSY DSW 
BUSY DSW S/B 



0B42 0000 


BSS 


E 





0B42 0000 


DSWBY DC 




/oooo 


0B43 OCOO 


FOCOO DC 




/ocoo 



80608180 
80608190 
80608200 
80608210 
80608220 
80603230 
80608240 
80608250 
80608260 
80608270 
80608280 
80608290 
80608300 
80608310 
80608320 
80608330 
80608340 
80608350 
80608360 
80608370 
80608380 
80608390 
80608400 
8060 8410 
80608420 
80608430 
80608440 
80608450 
80608460 
8060 8470 
80608480 
80608490 
80608500 
80608510 
80608520 
80608530 
80608540 
80608550 
80608560 
80608570 
80608580 
80608590 
80608600 
80608610 
80608620 
8060 8630 
80608640 
80608650 
80608660 
80608670 
80608680 
80608690 
80608700 
80608710 
80608720 
80608730 
80608740 
80608750 
80608760 
80608770 
80608780 
80608790 
80608800 
80608810 
80608820 
80608830 
80608840 
80608850 



0B44 





0000 


DSWAS 


DC" 


/OOOO 


0B45 





0000 




DC 


/OOOO 


0B46 





0000 


DSWBS 


DC 


/oooo 


0B47 





0200 


F0200 


DC 


/0200 


0B48 





0000 


DSWCS 


DC 


/OOOO 


0B49 





0100 




DC 


/0100 






LAST READY DSW 



STO PROT ERROR DSW 
DSW S/B 



0B4A 1 C400 0960 
0B4C 18D0 
0B4D OBOA 
0B4E 6104 
0B4F 1 4400 0C30 
0B51 1 4C00 09E3 



0B53 OBOA 
0B54 DOEF 
OB55 18CB 

1 

1 

1 



0B56 
0B58 
0B5A 



4C04 09E3 
6500 0B5E 
6D00 0809 



0B5C 4C80 012D 



0B5E 1 6780 OABD 
OB60 C06A 
0B61 D302 
0B62 C8E1 
0B63 1 4C18 0B67 

0B65 6101 
0B66 7009 
0B67 OBOC 

0B68 OBOA 

0B69 DODC 

0B6A FODC 

0B6B 1 4C18 09E3 

0B6D C8D8 
0B6E 6106 
0B6F 7000 

0B7O 1 4400 0C30 
0B72 1 6400 0A67 



0B74 OBOE 
0B75 10A0 
0B76 OBOA 
0B77 1 4C18 0B7E 
0B79 6107 
0B7A 1 4400 0C30 
0B7C 1 6780 0C88 

0B7E C30C 



NOIN 



LD 

RTE 

XIO 

LDX 

BSI 

BSC 

*********3 

* 

* 

* 

* 

* 

SELC2 XIO 
STO 
RTE 
BSC 
LDX 
STX 
BSC 



SELC3 LDX 
LD 
STO 

LDD 
BSC 

LDX 

MDX 

SELC XIO 

XIO 
STO 
EOR 
BSC 
* 

LDD 
LDX 
MDX 

SELC1 BSI 

LDX 

********** 

* 

* 

* 

KEYBD XIO 
SLT 
XIO 
RSC 
LDX 
BSI 
LDX 

KEYPT LD 



PRINT NO INTERRUPT ERROR 



SENSE - RESET DSW 



L K8000 

16 

3 PTR 

1 4 

L PRDSW 

L PRCON 

;«**** ******************* *********** 

KEYBOARD TEST 



MC 



3 PTR 
DSWAS 
11 
L PRCON, E 
LI SELC3 
LI MLSCF 
I START 



13 MARKGS1 

KFOOO 
3 STS 

DSWAS 
L SELCC- 

1 1 

SELC1 
3 KEY 

3 PTR 
DSWBS 
F0200 
L PRCON, £.- 

DSWBS 
1 6 

SELC1 

L PRDSW 
L EXEC7 



SELECT KEYBOARD ROUTINE 
SENSE AND SAVE DSW 



5R IF PTR BUSY 



RESET PTR STATUS 

BR IF DSW OK 
PRINT DSW ERROR 
SELECT KEYBOARD 
SENSE - RESET DSW 

BR IF USW OK 
PRINT DSW ERROR 



TRY AGAIN - LATER 



MC 



:********************************* 

DECODE CHARACTER KEYED IN 



3 SEE 
32 

3 PTR 
L KEYPT, 6- 

1 7 
L PRDSW 
13 PTRAD 

3 KEY 



READ AND SAVE CHAR 
SENSE - RESET DSW 
PRINT DSW FRROR 

SAVE KEY CHARACTER 



80608860 

80608870 

80608880 

80608890 

80608900 

80608910 

80608920 

80608930 

80608940 

80608950 

80608960 

80608970 

806089 80 

80608990 

80609000 

80609010 

80609020 

80609030 

80609040 

80609050 

80609060 

80609070 

80609080 

80609090 

80609100 

80609110 

80609120 

80609130 

80609140 

80609150 

80609160 

80609170 

80609180 

80609190 

80609200 

80609210 

80609220 

80609230 

80609240 

80609250 

80609260 

80609270 

80609280 

80609290 

80609300 

80609310 

80609320 

80609330 

80609340 

80609350 

80609360 

80609370 

80609380 

80609390 

80609400 

80609410 

80609420 

80609430 

80609440 

80609450 

80609460 

80609470 

80609480 

80609490 

80609500 

80609510 

80609520 

80609530 



DATE 


28FEB66 


01MAY66 


27JUN66 


010CT67 


17JUN68 


14N0V69 


20MAR70 


PROG ID 


0806-1 


EC NO. 


415120 


415120A 


415178A 


411875 


411939 


431319 


431320 


PAGE 


7 



DATE 


28FEB66 


01MAY66 


27JUN66 


010CT67 


17JUN68 


14N0V69 


20MAR70 


PROG ID 


0806-1 


EC NO. 


415120 


415120A 


415178A 


411875 


411939 


431319 


431320 


PAGE 


7A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1053/1816 FUNCTION TEST 



0B7F 





D04C 






STO 


KEYCR 


0B80 


1 


7400 


080F 




MDX 


L ONLIN.O 


0B82 





7002 






MDX 


*£2 


0B83 





2F41 


OOOC 




STS 


L3 KEYt/41 


0B85 





OBOE 






XIO 


3 SEE 


0B86 





2F40 


OOOC 




STS 


L3 KEY,/40 


0B88 





OBOA 






XIO 


3 PTR 


0B89 





DO BE 






STO 


DSWCS 


0B8A 





FOBE 






EOR 


DSWCS61 


0B8B 


1 


4C18 


0B93 




BSC 


L KEYIN, t- 


0B8D 





C8BA 




# 


LOD 


DSWCS 


0B8E 





6108 






LDX 


1 8 


0B8F 


1 


4400 


0C30 




BSI 


L PRDSW 


0B91 


1 


6780 


0C88 


sfc 


LDX 


13 PTRAD 


0B93 





OBOE 




KEYIN 


XIO 


3 SEE 


0B94 





C037 






ID 


KEYCR 


0B95 





F30C 






EOR 


3 KEY 


0B96 





18D0 






RTE 


16 


0B97 





C034 






LD 


KEYCR 


0B98 





D30C 






STO 


3 KEY 


0B99 





18D0 






RTE 


16 


0B9A 


1 


4C18 


0BA2 




BSC 


L WRDCT, £- 


0B9C 





F02F 






EOR 


KEYCR 


0B9D 





6109 






LDX 


1 9 


0B9E 


1 


4400 


0C30 




BSI 


L PRDSW 


OBAO 


1 


6780 


0C88 


* 


LDX 


13 PTRAD 


0BA2 





6600 


0000 


WRDCT 


LDX 


L2 /OOOO 


0BA4 





61C0 






LOX 


1 -64 


0BA5 


1 


C5 00 


0D33 


CNVRT 


LD 


LI KEC0D664 


0BA7 





F30C 






EOR 


3 KEY 


0BA8 


1 


4C18 


OBCD 




BSC 


L CMPRE.6- 


OBAA 





7101 






MDX 


1 1 


OBAB 





70F9 




$ 


MDX 


CNVRT 


OBAC 





C30C 






LD 


3 KEY 


OBAD 





F016 






EOR 


NCAP 


OBAE 


1 


4C18 


0BC1 


# 


BSC 


L N0CP,£- 


OBBO 





C019 






LD 


K0008 


0BB1 





F30C 






EOR 


3 KEY 


0BB2 


1 


4C18 


0C10 


* 


BSC 


L ENDM,6- 


0BB4 





C010 




LD 


ERSLC 


0BB5 





F30C 






EOR 


3 KEY 


0BB6 


1 


4C18 


0BF7 


* 


BSC 


L ERSE,£- 


0BB8 





C30C 






LD 


3 KEY 


0BB9 





6105 






LDX 


1 5 


OBBA 


1 


74FF 


0C82 




MDX 


L EMESG.-l 


OBBC 


1 


4400 


0C30 




BSI 


L PRDSW 


OBBE 


1 


7401 


0C82 




MDX 


L EMESG',1 


OBCO 





7092 




$ 


MDX 


SELC2 


0BC1 





6801 




NOCP 


STX 


LOWER 


0BC2 





7090 






MDX 


SELC2 



IS TEST ON-LINE 

* YES, NO STG PROT ERR 

READ INTO STO PROT 

CLEAR STORAGE PROT 
SENSE - RESET DSW 



BR IF DSW OK 
PRINT ERROR IN DSW 

READ AGAIN IF CHECK 



BR IF CHARS AGREE 



PRINT ERROR IN READ 



BR IF CHAR MATCHES 



BR IF NO CAP NEXT 



BR IF END MESG 



BR IF ERASE LAST CHR 



# 



0BC3 





0000 


0BC4 





0002 


0BC5 





0004 


0BC6 





0000 


0BC7 





FFE7 


0BC8 





0000 


0BC9 





1111 



LOWER DC 
NCAP DC 
ERSLC DC 
SLTWD DC 
KFFE7 DC 
ERSEA DC 
BSPSE DC 



/OOOO 

/0002 

/0004 

/OOOO 

-25 

/OOOO 

/llll 



# IF NEXT UPR CASE 
ERASE FIRLD KEY CODE 
BACKSPACE KEY CODE 
KEYBOARD SHIFT WORD 



BACK SPACE 



PART NO. 
PAGE 



80609540 

80609550 

80609560 

80609570 

80609580 

80609590 

80609600 

80609610 

80609620 

80609630 

80609640 

80609650 

80609660 

80609670 

80609680 

80609690 

80609700 

80609710 

80609720 

80609730 

80609740 

80609750 

80609760 

80609770 

80609780 

80609790 

80609800 

80609810 

80609820 

80609830 

80609840 

80609850 

80609860 

80609870 

80609880 

80609890 

80609900 

80609910 

80609920 

80609930 

80609940 

80609950 

80609960 

80609970 

80609980 

80609990 

80610000 

80610010 

80610020 

80610030 

80610040 

80610050 

80610060 

80610070 

80610080 

80610090 

80610100 

80610110 

80610120 

80610130 

80610140 

80610150 

80610160 

80610170 

80610180 

80610190 

80610200 

80610210 



2196366 
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8 



1 tNAN 


Lt 


U1AW 


vlU S 1 I L 


PROGRAM 


FOR 


THE 


1800 SYSTE 


M 


PART NO. 2196366 
PAGE 3 A 


b FUNCTION TEST 














OBCA 





0008 




K0008 


DC 




/0008 




80610220 


OBCB 





FOOO 




KFOOO 


DC 




/FOOO 




80610230 


OBCC 





OOOO 




KEYCR 


DC 




/OOOO 




80610240 










##*#$ 


# # ijs & # %. # # 


* # # # # * # * & # % 


*********#*** *******# 


80610250 










* 










80610260 










* 






PLACE 


CHAR KEYED IN 


80610270 










* 








OUTPUT TABLE 


80610280 










* 










80610290 


OBCD 


1 


C500 


0D73 


CMPRE 


LD 


LI 


TYCUD664 


FETCH PRINTER CHAR 


80610300 


OBCF 


1 


7400 


0BC3 




MDX 


L 


LOWER, 


SKIP IF UPPER CASE 


80610310 


0BD1 





1808 






SRA 




8 




80610320 


0BD2 





1008 






SLA 




8 




80610330 


0BD3 





D303 




* 


STO 


3 


OUT 


SAVE OUTPUT CHAR 


80610340 
80610350 


0BD4 





6100 






LDX 


1 





RESET LOWER CASE SW 


80610360 


0BD5 





69ED 




* 


STX 


1 


LOWER 




80610370 
80610380 


0BD6 


1 


7400 


0BC6 




MDX 


L 


SLTWD, 


BR IF CHAR IS FIRST 


80610390 


0BD8 





7004 




* 


MDX 




SFT 


* TO BE PLACED IN WD 


80610400 
80610410 


0BU9 





6121 




NOSFT 


LDX 


1 


/0021 




80610420 


OBDA 





7201 






MDX 


2 


1 


SKIP IF TABLE COMPLT 


80610430 


OBDB 





7006 






MDX 




TBLIS 




80610440 


OBDC 





7009 




* 


MDX 




EXIT 




80610450 
80610460 


OBDD 





6100 




SFT 


LDX 


1 







80610470 


OBOE 





1808 






SRA 




8 




80610480 


OBDF 





7000 




* 


MDX 




TBLIZ 




80610490 
80610500 


OBEO 


1 


EEOO 


0CB1 


TBLIZ 


OR 


L2 


ANYS27 


PLACE CHAR IN OUTPUT 


80610510 


0BE2 


1 


D600 


0CB1 


TBLIS 

* 


STO 


L2 


ANYU27 


* TABLE 


80610520 
80610530 


0BE4 





69E1 




TBLI 


STX 


1 


SLTWD 


SAVE TEST STATUS 


80610540 


0BE5 





6ABD 






STX 


2 


WRDCT&l 




80610550 


0BE6 


1 


C400 


0C89 


EXIT 


LD 


L 


KEOOO 




80610560 


0BE8 





D302 






STO 


3 


STS 


UPDATE PRTR STATUS 


80610570 


0BE9 





10AO 






SLT 




32 




80610580 


OBEA 





OBOA 






XIO 


3 


PTR 


SENSE - RESET DSW 


80610590 


OBEB 


1 


4C20 


OAFA 


* 


BSC 


L 


RYDER, Z 


BR IF NOT READY 


80610600 
80610610 


OBED 





0B08 






XIO 


3 


WRT 


PRINT ONE CHAR 


80610620 


OBEE 





OBOA 






XIO 


3 


PTR 


SENSE - RESET DSW 


80610630 


OBEF 


1 


D400 


0B42 




STO 


L 


DSWBY 




80610640 


0BF1 


1 


F400 


0B05 




EOR 


L 


KOCOO 




80610650 


0BF3 


1 


4C20 


0B3A 




BSC 


L 


BSYER,Z 


BR IF NOT BUSY 


80610660 


0BF5 


1 


4C00 


OAEF 




BSC 


L 


MARKX 


CONTINUE TILL INTRPT 


80610670 










#**##= 


:!##*#*#*##£*##******#*$:;:;::$###£$#;;-#:,)(£$:<£## 


80610680 










* 










80610690 










* 






ERASE 


LAST CHARACTER 


80610700 










* 








KEYED IN 


80610710 










* 










80610720 


0BF7 





6AD0 




ERSE 


STX 


2 


ERSEA 




80610730 


0BF8 





COCF 






LD 




ERSEA 




80610740 


0BF9 





FOCD 






EOR 




KFFE7 




80610750 


OBFA 


1 


4C18 


OB53 


* 


BSC 


L 


SELC2.&- 


BR IF TABLE EMPTY 


80610760 
80610770 


OBFC 





C0C9 






LD 




SLTWD 




80610780 


OBFD 


1 


4C20 


0C07 




BSC 


L 


ERSE1.Z 


BR IF NOT SHIFTED 


80610790 


OBFF 





6121 






LDX 


1 


/0021 


ERASE SHIFTED CHAR 


80610800 


OCOO 


1 


C600 


0CB1 




LD 


L2 


ANYE27 




80610810 


0C02 





1808 






SRA 




8 




80610820 


0C03 





1008 






SLA 




8 




80610830 


0C04 


1 


0600 


0CB1 




STO 


L2 


ANYG27 




80610840 


0C06 





7006 




* 


MDX 




ERSE2 




80610850 
80610860 


0C07 





1010 




ERSE1 


SLA 




16 




80610870 


0C08 





6100 






LDX 


1 







80610880 


0C09 





72FF 






MDX 


2 


-1 




80610890 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1053/1816 FUNCTION TEST 



OCOA 1000 
OCOB 1 0600 0CB2 
OCOD COBB 
OCOE D303 
OCOF 70D4 



SET BACKSPACE CODE 
* IN OUTPUT WORD 



NOP 

STO L2 ANYS28 
ERSE2 LD BSPSE 

STO 3 OUT 

MDX TBLI 
********************************************* 
* 

TERMINATE MESSAGE ROUTINE 



BR IF TABLE EMPTY 
BR IF LAST SHIFTEO 



0C10 


1 


C400 


0C99 


* 
* 
ENDM 


LD 


L 


TEI 
ANYS3 


0C12 


1 


6680 


0BA3 




LDX 


12 


WRDCTS1 


0C14 


1 


4C18 


0C25 




BSC 


L 


ENDM2.6 


0C16 





COAF 






LO 




SLTWD 


0C17 


1 


4C18 


0C1D 




BSC 


L 


ENDMl, 6 


0C19 


1 


EEOO 


0CB1 




OR 


L2 


ANY627 


0C1B 


1 


D600 


0CB1 


* 
ENDMl 


STO 


L2 


ANYS27 


0C1D 


1 


C400 


0D83 


LD 


L 


RED1 


0C1F 


1 


D600 


0CB2 




STO 


L2 


ANYC28 


0C21 





C073 






LD 




FUND 


0C22 


1 


D600 


0CB3 




STO 


L2 


ANY629 


0C24 





7002 




* 
ENDM2 


MDX 




ENDM3 


0C25 





C06F 




LD 




FUND 


0C26 





D071 




* 
ENDM3 


STO 




ANY62 


0C27 





C0A2 




LD 




K0008 


0C28 





0302 




* 


STO 


3 


STS 


0C29 





6200 




* 


LDX 


2 





0C2A 


1 


6E00 


0AA4 




STX 


L2 


RSADRS1 


0C2C 


1 


6E00 


0803 




STX 


L2 


SW1 



SET TABLE TERMINATOR 

SET TABLE TERMINATOR 
RESTORE PTR RTN 



* 



0C2E 1 4C00 0AE2 



BSC 



MARKK 



RESTART PRINTER 



********************************************* 
* 

PRINT ERROR ROUTINE 











* 

* 






PRII 


0C30 





0000 




PRDSW 


DC 




/OOOO 


0C31 





D854 






STD 




EMESGS4 


0C32 





6951 






STX 


1 


EMESG6.2 


0C33 





C050 






LD 




EMESGfi.2 


0C34 





E854 






OR 




KEOOO 


0C35 





D04E 




* 


STO 




EMESG&2 


0C36 





6B51 




STX 


3 


PTRAD 


0C37 





C30A 






LD 


3 


PTR 


0C38 





1008 






SLA 




8 


0C39 





1808 






SRA 




8 


0C3A 





D04A 




-J- 


STO 




EMESG63 


0C3B 





C301 






LD 


3 


RTN 


0C3C 


1 


D400 


0800 


* 


STO 


L 


RID 


0C3E 


1 


C400 


0803 


LD 


L 


SW1 


0C40 


1 


E400 


0B06 




AND 


L 


BASIC 


0C42 


1 


B400 


0A30 




CMP 


L 


ELVEN 


0C44 





1000 






NOP 






0C45 





7002 




* 

-J* 


MDX 




ERDLY 


0C46 


1 


D400 


0800 


STO 


L 


RID 


0C48 


1 


C400 


0B47 


ERDLY 


LD 


L 


F0200 


0C4A 





D03F 






STO 




TIMEX 


0C4B 


1 


C400 


OEAA 


RELCK 


LD 


L 


PTR06STS 


0C4D 





F03B 






EOR 




KEOOO 



ME 



SAVE DATA WAS & S/B 
SAVE MESSAGE NUMBER 



SET UP MESG ID NO 



FETCH RTN NO 



REMOVE BAD BITS 

BR IF ROUTINE ELEVEN 



SET ROUTINE NO 

SET UP DELAY COUNTER 



PART NO. 
PAGE 



80610900 
80610910 
80610920 
80610930 
80610940 
80610950 
80610960 
80610970 
80610980 
80610990 
80611000 
80611010 
80611020 
80611030 
80611040 
80611050 
80611060 
80611070 
80611080 
80611090 
80611100 
80611110 
80611120 
80611130 
80611140 
80611150 
80611160 
80611170 
80611180 
80611190 
80611200 
80611210 
80611220 
80611230 
80611240 
80611250 
80611260 
80611270 
80611280 
80611290 
80611300 
80611310 
80611320 
80611330 
80611340 
80611350 
80611360 
80611370 
80611380 
80611390 
80611400 
80611410 
80611420 
80611430 
80611440 
80611450 
80611460 
80611470 
80611480 
80611490 
80611500 
80611510 
80611520 
80611530 
80611540 
80611550 
80611560 
80611570 



2196366 
9 
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3 ART 
-AGE 



•HI. z 196366 
9A 



0C4E 





4818 






BSC 




R- 


0C4F 





C02E 






LD 




PDSWX 


0C5O 





1004 






SLA 




4 


0C51 


1 


4C10 


0C56 




BSC 


L 


CXREL, - 


0C53 


1 


74FF 


0C8A 




MDX 


L 


TIMEX, -1 


0C55 





7023 






MDX 




TIMEl 


0C56 


1 


C400 


0811 


CXREL 


LD 


L 


DDEFO 


0C58 


1 


4C10 


0C5E 




BSC 


L 


ERDSW, - 










*****: 


(-.***>! 


:*** 


********* 


0C5A 





4480 


0132 




BSI 


I 


RELDV 


0C5C 


1 


0811 






DC 




DDEFO 


0C5D 


1 


080A 






DC 




TERM 










*****: 




: * * * 


********* 


0C5E 





448 


0130 


ERDSW 


BSI 


I 


ERROR 


0C60 


1 


0C82 






DC 




EMESG 


0C61 


1 


0C7C 






DC 




CKDSX 


0C62 


1 


0C63 






DC 




FRLOP 










«****: 




:***: 


********* 


0C63 


1 


65 00 


0C66 


FRLOP 


LDX 


LI 


ERDOO 


0C65 





7018 






MDX 




PDSWX 


0C66 


1 


65 80 


0C30 


ERDOO 


LDX 


11 


PRDSW 


0C68 


1 


C400 


0811 




LD 


L 


DDEFO 


0C6A 


1 


4C18 


0C7E 




BSC 


L 


PDSWX, 6- 










*****: 


* * * * * 


:***: 




0C6C 


1 


7401 


081C 




M)X 


L 


INTSW.l 


0C6E 





1000 






NOP 






0C6F 





4480 


0131 


ERGET 


BSI 


I 


REODV 


0C71 


1 


0C76 






DC 




ERBUY 


0C72 


1 


0811 






DC 




DDEFO 


0C73 


1 


081D 






DC 




DVAO 


0C74 


1 


080A 






DC 




TERM 










*****: 


***** 


:***: 


********* 


0C75 





7008 






MDX 




PDSWX 


0C76 


1 


65 00 


0C66 


ERBUY 


LDX 


LI 


ERDOO 


0C78 





7005 




* 
TIMEl 


MDX 




PDSWX 


0C79 


1 


6500 


0C4B 


LDX 


LI 


RELCK 


0C73 





7002 






MDX 




PDSWX 


0C7C 


1 


65 00 


0C5E 


CKDSX 


LDX 


LI 


ERDSW 


0C7E 


1 


6D00 


0809 


PDSWX 


STX 


LI 


MLSCF 


0C8O 





4C80 


012D 




BSC 


I 


START 


0C82 




0000 




■V- 


BSS 


E 





OC82 





0003 




EMESG 


DC 




3 


0C83 





0000 






DC 




/OOOO 


0C84 





0000 






DC 




/OOOO 


0C85 





0000 






DC 




/OOOO 


0C86 





0000 






DC 




/OOOO 


0C87 





0000 




J; 


DC 




/OOOO 


0C88 





0000 




PTRAD 


DC 




/OOOO 


0C89 





EOOO 




KEOOO 


DC 




/EOOO 


0C8A 





0000 




TIMEX 


DC 




/OOOO 










********** 
* 


:***: 


*********: 



BR IF WAIT FOR INT 



BR IF INTRPT RFCD 
FALL THRU IF TIME UP 



BR IF PTR RELEASED 



MESSAGE ADDR * 
BUSY RETURN ADDR * 
LOOP ON ERROR ADDR * 

EXIT TO MONITOR 
RETURN TO TPR PROG 

BR IF NO PTR ZERO 

SET INTR SW 

REO MON LOG DEV * 
dUSY RETURN * 



SC 



0C8B 


1 


0C96 


0C8C 


1 


0D73 


0C8D 


1 


0D85 


0C8E 


1 


0DA2 


0C8F 


1 


ODBF 


0C90 


1 


0DD5 


0C91 


1 


0DF4 



FUNR 



DC 


ANY 


DC 


TACAR 


DC 


UCASE 


DC 


LCASE 


DC 


COLOR 


DC 


SPNDX 


DC 


AUCAR 



TRY AGAIN - LATER 



BUSY RETURN TO CALL 



WORD COUNT 
HEX OUTPUT 
MESSAGE ID NO 
PRINTER NUMBER 
DSWAS 
DSW S/B 



PRINTER ADRS 

ERROR ID 

DELAY TIME STORAGE 

***********#**#>;!;>****** 

PRINTER TEST SEQUENCE 
CONTROL TABLE 

KEYBOARD OPTION 
TAB £ CARRIER RETURN 
UPPER CASE CHARS 
LOWER CASE CHARS 
COLOR SHIFT ROUTINE 
BACKSPACE AND INDEX 
AUTO CARRIER RETURN 



MX 



80611580 
80611590 
80611600 
80611610 
80611620 
80611630 
80611640 
80611650 
80611660 
80611670 
80611680 
80611690 
80611700 
80611710 
80611720 
80611730 
80611 740 
80611750 
80611760 
80611770 
80611780 
30611790 
80611800 
80611810 
80611820 
80611830 
80611840 
80611850 
80611860 
80611870 
80611880 
80611890 
80611900 
80611910 
80611920 
80611930 
80611940 
80611950 
80611960 
8C611970 
80611980 
80611990 
80612000 
80612010 
80612020 
80612030 
80612040 
80612050 
80612060 
80612070 
80612080 
80612090 
80612100 
80612110 
80612120 
80612130 
80612140 
80612150 
80612160 
80612170 
80612180 
80612190 
80612200 
80612210 
80612220 
80612230 
80612240 
80612250 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



27JUN66 
415178A 



010CT67 
411875 



17JUN6£ 
411939 



14N0V69 
431319 



20MAR70 
431320 



PROG II) 
PAGE 
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DATE 
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17JUN68 
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PROG ID 


0806-1 


EC NO. 


415120 


415120A 


415178A 


411875 


411939 


431319 


431320 
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9A 
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PAGE 



2196366 
10 



0C92 1 OEOD 
0C93 1 0E40 
0C94 1 0E73 
0C95 FFFF 



0C96 





0001 


0C97 





05FF 


0C98 





FFFF 


0C99 





0000 


0C9A 





0000 


0C9B 





0000 


0C9C 





0000 


0C9D 





0000 


0C9E 





0000 


0C9F 





0000 


OCAO 





0000 


0CA1 





0000 


OCA 2 





0000 


0CA3 





0000 


0CA4 





0000 


0CA5 





0000 


0CA6 





0000 


0CA7 





0000 


0CA8 





0000 


0CA9 





0000 


OCAA 





0000 


OCAB 





0000 


OCAC 





0000 


OCAO 





0000 


OCAE 





0000 


OCAF 





0000 


OCBO 





0000 


0CB1 





0000 


0CB2 





FFFF 



0CB3 C044 
0CB4 00D5 

0CB5 1 6500 0CB5 
0CB7 1 74FF 0C8A 
0CB9 70C4 



OCBA 4C80 012E 



DC 


ROCK 1 


OC 


ROLL 1 


OC 


TWIST 


FUND DC 


/FFFF 


********«****************, 


* 




* 


KEYBOAI 


* 




ANY DC 


1 


DC 


/05FF 1 


DC 


/FFFF 


DC 


/OOOO 


DC 


/OOOO 


DC 


/OOOO 


DC 


/OOOO 


DC 


/OOOO 


DC 


/OOOO 


DC 


/OOOO 


DC 


/OOOO 


DC 


/OOOO 


DC 


/OOOO 


DC 


/OOOO 


DC 


/OOOO 


DC 


/OOOO 


DC 


/OOOO 


DC 


/OOOO 


DC 


/OOOO 


DC 


/OOOO 


DC 


/OOOO 


DC 


/OOOO 


DC 


/OOOO 


DC 


/OOOO 


DC 


/OOOO 


DC 


/OOOO 


DC 


/OOOO 


DC 


/OOOO 


DC 


/FFFF 


********** 


*************** 


* 




* 




* 


END PRl 


* 




TYEND ID 


KEC0DE.5 


STO 


TIMEX 


AWAIT LDX 


LI AWAIT 


MDX 


L TIMEX, -1 


MDX 


PDSWX 



TEST TILT 

TEST ROTATE 

TEST TILT AND ROTATE 



ITCNT 
BLACK 
ITCNT 



;; * * * * * * * * * * * ;|c * * * * * * 



SET UP OELAY COUNTER 

SET RETURN ADDRESS 
DECREMENT COUNTER 



********************************************* 

BSC I END * 

****** *************************************** 

* 



RESET KEYIN OPTION 



RESTORE PTRS RESTART 



SC 



OCBC 





OOOO 




TEND 


DC 




/OOOO 


OCBO 





1010 






SLA 




16 


OCBE 


1 


D400 


0803 




STO 


L 


SW1 


OCCO 





6500 


FFFF 




LDX 


LI 


-1 


0CC2 





69D5 




* 


STX 


1 


ANYK2 


0CC3 





6101 




LDX 


1 


1 


0CC4 


1 


6000 


0AA4 




STX 


LI 


RSADRG1 


0CC6 


1 


6 700 


OF 38 




LDX 


L3 


PTR8 


0CC8 





6109 






LDX 


1 


9 


0CC9 


1 


C400 


08F6 


TEND1 


LD 


L 


II 


OCCB 





D301 






STO 


3 


RTN 


OCCC 


1 


C400 


0C8C 




LD 


L 


FUNR61 


OCCE 





D300 






STO 


3 


ADR 



80612260 

80612270 

80612280 

80612290 

80612300 

80612310 

80612320 

80612330 

80612340 

80612350 

80612360 

80612370 

80612380 

80612390 

80612400 

80612410 

80612420 

80612430 

80612440 

80612450 

80612460 

80612470 

80612480 

80612490 

80612500 

80612510 

80612520 

80612530 

80612540 

80612550 

80612560 

80612570 

80612580 

80612590 

80612600 

80612610 

80612620 

80612630 

80612640 

80612650 

80612660 

80612670 

80612680 

80612690 

80612700 

80612710 

80612720 

80612730 

80612740 

80612750 

80612760 

80612770 

80612780 

80612790 

80612800 

80612810 

80612820 

80612830 

80612840 

80612850 

80612860 

80612870 

80612880 

80612890 

80612900 

80612910 

80612920 

80612930 



DATE 


28FEB66 


01MAY66 


27JUN66 


01OCT67 


17JUN68 


14N0V69 


20MAR70 


PROG ID 


0806-1 


EC NO. 


415120 


415120A 


415178A 


411875 


411939 


431319 


431320 


PAGE 
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PART NO. 
PAGE 



2196366 
10A 



OCCF 


1 


C400 


0D74 




LD 


L 


TACARS1 




0CD1 





D303 






STO 


3 


OUT 




0CD2 





C0C3 






LD 




ANY 




0CD3 





D304 






STO 


3 


ITR 




0CD4 





D305 






STO 


3 


SLT 




0CD5 





1801 






SRA 




1 




0CD6 





D306 






STO 


3 


NOS 




0CD7 





D307 






STO 


3 


PAD 




0CD8 





73EE 






MDX 


3 


-18 




0CD9 





71FF 






MDX 


1 


-1 




OCDA 





70EE 






MDX 




TEND1 












***** 


$ ^ $ # $ 


***: 


;t ************** *************** 


** 


OCDB 





4480 


0132 




BSI 


I 


RELDV RELEASE ALL PTRS 


* 


OCDD 





700B 




TEND3 


MDX 




TEND2 


* 


OCDE 





700A 






MDX 




TEND2 


* 


OCDF 





7009 






MOX 




TEND2 


* 


OCEO 





7008 






MDX 




TEND2 


* 


0CE1 





7007 






MDX 




TEND2 


* 


0CE2 





7006 






MDX 




TEND2 


* 


0CE3 





7005 






MDX 




TEND2 


* 


0CE4 





7004 






MDX 




TEND2 


* 


0CE5 





7003 






MDX 




TEND2 


* 


0CE6 





7002 






MDX 




TEND2 


* 


0CE7 





7001 






MDX 




TEND2 


* 


0CE8 


1 


080A 






DC 




TERM 


* 










* * * * * 

* 

TEND2 


***** 


***: 


* * * * * * * * ********************** 


** 


0CE9 


1 


C400 


08 IB 


LD 


L 


DDEFX GET SAVED DDEF 




0CE8 


1 


D400 


0811 




STO 


L 


DDEFO * AND RESTORE SW2 




OCED 


1 


C400 


08F8 




LD 


L 


SWSTG 




OCEF 


I 


D400 


0804 




STO 


L 


SW2 




0CF1 


1 


4C80 


OCBC 




BSC 


I 


TEND 












;£ s£ J|e i|! fy & jj: # jjt %z 


***: 


£ ******************* * * * * * * * * * * 


** 



KFYBOARD CODE TABLE 



0CF3 





4220 


KECOD DC 


/4220 


* 


0CF4 





3000 


DC 


/3000 


/ 


0CF5 





2000 


DC 


/2000 





0CF6 





1000 


DC 


/1000 


1 


0CF7 





0800 


DC 


/0800 


2 


0CF8 





0400 


DC 


/0400 


3 


0CF9 





0200 


OC 


/0200 


4 


OCFA 





0100 


DC 


/0100 


5 


OCFB 





0080 


DC 


/0080 


6 


OCFC 





0040 


DC 


/0040 


7 


OCFD 





0020 


DC 


/0020 


8 


OCFfc 





0010 


DC 


/0010 


9 


OCFF 





4420 


DC 


/4420 


$ 


ODOO 





8420 


DC 


/8420 


. 


0D01 





2420 


DC 


/2420 


» 


0D02 





OOAO 


DC 


/OOAO 


# 


0D03 





0120 


DC 


/0120 


a 


0004 





8120 


DC 


/8120 


% 


0D05 





4120 


DC 


/4120 


n 


0D06 





80A0 


DC 


/80A0 


£ 


0D07 





4000 


DC 


/4000 


- 


0D08 





8820 


DC 


/8820 


CENT SIGN 


0D09 





8220 


DC 


/8220 


LESS THAN 


ODOA 





8060 


DC 


/8060 


LOGICAL OR 


ODOB 





a 000 


DC 


/8000 


AND 


ODOC 





4820 


DC 


/4820 


EXCLAIMAT ION 


ODOD 





40A0 


OC 


/40AO 


SEMI COLON 


ODOE 





4060 


DC 


/4060 


LOGICAL NOT 


ODOF 





2220 


DC 


/2220 


PER CENT 


0D10 





2120 


DC 


/2120 


UNDERSCORE 


0D11 





20AO 


DC 


/20A0 


GREATER THAN 


0012 





2060 


DC 


/2060 


QUESTION MARK 



80612940 
80612950 
80612960 
80612970 
80612980 
80612990 
80613000 
80613010 
80613020 
80613030 
80613040 
80613050 
80613060 
80613070 
80613080 
80613090 
80613100 
80613110 
80613120 
80613130 
80613140 
80613150 
80613160 
80613170 
80613180 
80613190 
80613200 
80613210 
80613220 
80613230 
80613240 
806L3250 
80613260 
80613270 
80613280 
80613290 
80613300 
80613310 
80613320 
80613330 
80613340 
80613350 
80613360 
80613370 
806133R0 
80613390 
80613400 
80613410 
80613420 
80613430 
80613440 
80613^50 
80613460 
80613470 
80613480 
80613490 
80613500 
80613510 
80613520 
80613530 
80613540 
80613550 
80613560 
80613570 
80613580 
80613590 
80613600 
80613610 



DATE 


28FEB66 


01MAY66 


2 7JUN66 


010CT67 


17JUN68 


14N0V69 


20MAR70 


PROG ID 


0806-1 


EC NO. 


415120 


415120A 


415173A 


411875 


411939 


431319 


431320 


PAGE 


10A 



I I I 
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0D13 





0820 


DC 


/0820 


COLON 


0D14 





0420 


DC 


/0420 


NUMBERS 


0D15 





0220 


DC 


/0220 


AT 


0D16 





0060 


DC 


/0060 


QUOTE 


0D17 





9000 


DC 


/9000 


A 


0D18 





8800 


DC 


/8800 


B 


0019 





8400 


DC 


/8400 


C 


0D1A 





8200 


DC 


/8200 


D 


0D1B 





8100 


DC 


/8100 


E 


001C 





8080 


DC 


/8080 


F 


0D10 





8040 


DC 


/8040 


G 


0D1E 





8020 


DC 


/8020 


H 


001F 





8010 


DC 


/8010 


I 


0D20 





5000 


DC 


/5000 


J 


0D21 





4800 


DC 


/4800 


K 


0D22 





4400 


DC 


/4400 


L 


0D2 3 





4200 


DC 


/4200 


M 


00 2 A 





4100 


DC 


/4100 


N 


0D25 





4080 


DC 


/4080 





0D26 





4040 


DC 


/4040 


P 


0027 





4020 


DC 


/4020 


Q 


0028 





4010 


DC 


/4010 


R 


0029 





2800 


DC 


/2800 


S 


0D2A 





2400 


DC 


/2400 


T 


0D2B 





2200 


DC 


/2200 


U 


002C 





2100 


DC 


/2100 


V 


0020 





2080 


DC 


/2080 


w 


0D2E 





2040 


DC 


/2040 


X 


0D2F 





2020 


DC 


/2020 


Y 


0030 





2010 


DC 


/2010 


Z 


0031 





0000 


DC 


/oooo 


SPACE 


0D32 





2820 


oc 


/2820 


0-8-2 








* 


PRINTER CODE TABLE 


0D33 





D6D6 


TYCOD DC 


/D6D6 


# 


0D34 





BCBC 


DC 


/BCBC 


/ 


0035 





C4C4 


DC 


/C4C4 





0036 





FCFC 


DC 


/FCFC 


1 


0D37 





D8D8 


DC 


/08D8 


2 


0D38 





DCDC 


DC 


/DCDC 


3 


0D39 





FOFO 


DC 


/FOFO 


4 


0D3A 





F4F4 


DC 


/F4F4 


5 


00 3B 





DODO 


DC 


/DODO 


6 


003C 





D4D4 


DC 


/D4D4 


7 


0D3D 





E4E4 


DC 


/E4E4 


8 


0D3E 





EOEO 


DC 


/EOEO 


9 


0D3F 





4040 


DC 


/4040 


$ 


0040 





0000 


DC 


/OOOO 


. 


0041 





8080 


DC 


/8080 


t 


0042 





C2C2 


DC 


/C2C2 


# 


0043 





E6E6 


OC 


/E6E6 


a 


0044 





FEFE 


DC 


/FEFE 


% 


0D45 





F6F6 


DC 


/F6F6 


a 


0046 





DADA 


DC 


/DADA 


£ 


0047 





8484 


DC 


/84B4 


- 


0D48 





0202 


DC 


/0202 


CFNTS SIGN 


0049 





DEDE 


DC 


/CEDE 


LESS THAN 


0D4A 





C6C6 


DC 


/C6C6 


LOGICAL OR 


004B 





4444 


DC 


/4444 


AND 


0D4C 





4242 


DC 


/4242 


EXCLAIMATION 


0D4D 





D2D2 


DC 


/02D2 


SEMI COLON 


0D4E 





F2F2 


DC 


/F2F2 


LOGICAL NOT 


0D4F 





0606 


DC 


/0606 


PERCENT SIGN 


0050 





BEBE 


DC 


/BEBE 


UNDERSCORE 


0051 





4646 


OC 


/4646 


GREATER THAN 


0D52 





8686 


DC 


/8686 


QUESTION MARK 


0D53 





8282 


OC 


/8282 


COLON 



PART NO. 
PAGE 



80613620 
80613630 
80613640 
80613650 
80613660 
80613670 
80613680 
80613690 
80613700 
80613710 
80613720 
80613730 
80613740 
80613750 
80613760 
80613770 
80613780 
80613790 
80613800 
80613810 
80613820 
80613830 
80613840 
80613850 
80613860 
80613870 
80613880 
80613890 
80613900 
80613910 
80613920 
80613930 
80613940 
80613950 
80613960 
80613970 
80613980 
80613990 
80614000 
80614010 
80614020 
80614030 
80614040 
80614050 
80614060 
80614070 
80614080 
80614090 
80614100 
80614110 
80614120 
80614130 
80614140 
80614150 
80614160 
80614170 
80614180 
80614190 
80614200 
80614210 
80614220 
80614230 
80614240 
80614250 
80614260 
80614270 
80614280 
80614290 
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0D54 





coco 


0D55 





0404 


0D56 





E2E2 


0057 





3C3E 


0D58 





181A 


0D59 





1C1E 


0D5A 





30 32 


0D5B 





3436 


0D5C 





1012 


0D5D 





1416 


0D5E 





2426 


0D5F 





2022 


0D60 





7C7E 


0D61 





585A 


0D62 





5C5E 


0D63 





7072 


0D64 





7476 


0D65 





5052 


0066 





5456 


0D67 





6466 


0068 





6062 


01)69 





989A 


0D6A 





9C9E 


0D6B 





B0B2 


0D6C 





B4B6 


0D6D 





9092 


0D6E 





9496 


0D6F 





A4A6 


0D70 





A0A2 


0D71 





2121 


0D72 





0303 



DC 


/coco 


NUMBERS 


DC 


/0404 


AT 


DC 


/E2E2 


QUOTE 


DC 


/3C3E 


A 


DC 


/181A 


B 


DC 


/1C1E 


C 


DC 


/3032 


D 


DC 


/3436 


E 


DC 


/1012 


F 


DC 


/1416 


G 


DC 


/2426 


H 


DC 


/2022 


I 


DC 


/7C7E 


J 


OC 


/585A 


K 


OC 


/5C5E 


L 


DC 


/7072 


M 


DC 


/7476 


N 


DC 


/5052 





DC 


/5456 


P 


DC 


/6466 


Q 


DC 


/6062 


R 


DC 


/989A 


S 


OC 


/9C9E 


T 


DC 


/B0B2 


U 


DC 


/B4B6 


V 


DC 


/9092 


w 


DC 


/9496 


X 


DC 


/A4A6 


Y 


DC 


/A0A2 


z 


DC 


/2121 


SPACE 


DC 


/0303 


LINE FEED 



TAB AND CARRIER RETURN 



0D73 





0001 


TACAR DC 


1 


ITCNT 


0D74 





2181 


DC 


/2181 


SP 


CR 


0D75 





05FF 


DC 


/05FF 


BLACK 


0D76 





0002 


DC 


2 


ITCNT 


0077 





811E 


DC 


/811E 


CR 


C 


0D78 





3C60 


DC 


/3C60 


A 


R 


0D79 





6020 


DC 


/6020 


R 


I 


0D7A 





3460 


DC 


/3460 


E 


R 


0D7B 





2160 


DC 


/2160 




R 


0D7C 





349C 


DC 


/349C 


b 


T 


0D7D 





B060 


DC 


/B060 


U 


R 


0D7E 





7441 


OC 


/7441 


N 


TAB 


0D7F 





9E3C 


DC 


/9E3C 


T 


A 


0D8O 





18B0 


DC 


/18B0 


B 


U 


0D81 





5C3C 


DC 


/5C3C 


L 


A 


0D82 





9C34 


DC 


/9C34 


T 


E 


0083 





09FI" 


REDl DC 


/09FF 


RED 




0D84 


c 


FFFF 


DC 


/FFFF 







CHARACTER COMPLIMENT 



0D85 


0001 


UCASE DC 


1 


ITCNT 


0D86 


2181 


DC 


/21R1 


SP CR 


0D87 


05FF 


DC 


/05FF 


BLACK 


0D88 


0002 


OC 


2 


ITCNT 


0D8 9 


R13E 


DC 


/813E 


CR A 


0D8A 


1A1E 


DC 


/1A1E 


B C 


0D8B 


3236 


DC 


/3?36 


D E 


0U8C 


1216 


DC 


/1216 


F G 


0D8D 


2622 


DC 


/2622 


H I 



80614300 
80614310 
80614320 
80614330 
80614340 
80614350 
80614360 
80614370 
80614380 
80614390 
80614400 
80614410 
80614420 
80614430 
80614440 
80614450 
80614460 
80614470 
80614480 
80614490 
80614500 
80614510 
80614520 
80614530 
80614540 
80614550 
80614560 
80614570 
80614580 
80614590 
80614600 
80614610 
80614620 
80614630 
80614640 
80614650 
80614660 
80614670 
80614680 
80614690 
80614700 
80614710 
80614720 
B0614730 
80614740 
80614750 
80614760 
80614770 
80614780 
80614790 
80614800 
80614810 
80614820 
80614830 
80614840 
80614850 
80614860 
80614870 
80614880 
80614890 
80614900 
80614910 
80614920 
80614930 
80614940 
80614950 
80614960 
80614970 
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0D8E 





7E5A 


DC 


/7E5A 


J K 


0D8F 





5E72 


DC 


/5E72 


L M 


0090 





7652 


DC 


/7652 


N 


0D91 





5666 


DC 


Z5666 


£ Q 


0D92 





629A 


DC 


/629A 


R S 


0D93 





9EB2 


DC 


/9EB2 


T U 


0D94 





B692 


DC 


/B692 


V w 


0D95 





96A6 


DC 


/96A6 


X Y 


0D96 





A221 


DC 


/A221 


Z SP 


0D97 





FEDA 


DC 


/FEDA 


% S 


0D98 





DEF2 


DC 


/DEF2 


LES INT 


00 99 





F6D2 


DC 


/F6D2 


n SMI 


009A 





D6E6 


DC 


/D6E6 


* a 


0D9B 





E2C6 


DC 


/E2C6 


QTE LOR 


0D9C 





C2BE 


DC 


/C2BE 


3 UDR 


0D9D 





8682 


DC 


/8682 


QSN CLN 


0D9E 





4642 


DC 


/4642 


GTR EXC 


009F 





0602 


DC 


/0602 


PCT CNT 


OOAO 





09FF 


DC 


/09FF 


RED 


0DA1 





FFFF 


DC 


/FFFF 










* 


LOWER 


CASE 


0DA2 





0001 


LCASE DC 


1 


ITCNT 


0DA3 





2181 


DC 


/2181 


SP CR 


0DA4 





05FF 


DC 


/05FF 


BLACK 


0DA5 





0002 


DC 


2 


ITCNT 


0DA6 





813C 


DC 


/813C 


CR A 


00A7 





181C 


DC 


/181C 


B C 


00 A8 





3034 


DC 


/3034 


D E 


0DA9 





1014 


DC 


/1014 


F G 


ODAA 





2420 


DC 


/2420 


H I 


ODAB 





7C58 


DC 


/7C58 


J K 


OOAC 





5C70 


DC 


/5C70 


L M 


OOAD 





7450 


DC 


/7450 


N 


OOAE 





5464 


DC 


/5464 


P 


ODAF 





6098 


DC 


/6098 


R S 


ODBO 





9CB0 


DC 


/9CB0 


T U 


0DB1 





B490 


DC 


/B490 


V W 


00B2 





94A4 


DC 


/94A4 


X Y 


0DB3 





A021 


DC 


/A021 


Z SP 


00 B4 





FCD8 


DC 


/FCD8 


1 2 


0DB5 





DCFO 


DC 


/DCFO 


3 4 


0DB6 





F4D0 


DC 


/F4D0 


5 6 


00B7 





D4E4 


DC 


/D4E4 


7 8 


00 B8 





E0C4 


DC 


/E0C4 


9 


00B9 





COBC 


DC 


/COBC 


NOS / 


ODBA 





8480 


DC 


/8480 


~ t 


ODBB 





4440 


DC 


/4440 


AND $ 


ODBC 





0400 


DC 


/0400 


AT . 


ODBD 





09FF 


DC 


/09FF 


RED 


ODBE 





FFFF 


DC 

* 


/FFFF 










* 
* 
* 
COLOR DC 


COLOR 


SHIFT 


ODBF 





0002 


2 


ITCNT 


ODCO 





81FF 


DC 


/81FF 


RED 


0DC1 





0014 


DC 


20 


ITCNT 


0DC2 





0952 


DC 


/0952 


RED 


0DC3 





1105 


DC 


/1105 


BSP BLK 


00C4 





0A21 


DC 


/DA21 


+ SP 


0DC5 





21FF 


DC 


/21FF 


SP 


0DC6 





003B 


DC 


59 


ITCNT 


0DC7 





11FF 


DC 


/11FF 


BSP 


0DC8 





0014 


DC 


20 


ITCNT 


0DC9 





0952 


DC 


/0952 


RED 


ODCA 





1105 


DC 


/1105 


BSP BLK 



80614980 
80614990 
80615000 
80615010 
80615020 
80615030 
80615040 
80615050 
80615060 
80615070 
80615080 
80615090 
80615100 
80615110 
80615120 
80615130 
80615140 
80615150 
80615160 
80615170 
80615180 
80615190 
8061520.0 
80615210 
80615220 
80615230 
80615240 
80615250 
80615260 
80615270 
80615280 
80615290 
80615300 
80615310 
80615320 
80615330 
80615340 
80615350 
80615360 
80615370 
80615380 
80615390 
80615400 
80615410 
80615420 
80615430 
80615440 
80615450 
80615460 
80615470 
80615480 
80615490 
80615500 
80615510 
80615520 
80615530 
80615540 
80615550 
80615560 
80615570 
80615580 
80615590 
80615600 
80615610 
80615620 
80615630 
80615640 
80615650 



DATE 


28FEB66 


01MAY66 


27JUN66 


010CT67 


17JUN68 


14N0V69 


20MAR70 


PROG ID 


0806-1 


EC NO. 


415120 


415120A 


415178A 


411875 


411939 


431319 


431320 


PAGE 


12 



I I 



! , 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1053/1816 FUNCTION TEST 



PART MO. 2196366 
PAGE 12A 



ODCB 





DA21 


DC 


/DA21 


+ 


SP 


ODCC 





21FF 


DC 


/21FF 


SP 




ODCD 





003B 


DC 


59 


ITCNT 


ODCE 





11FF 


DC 


/11FF 


BSP 




ODCF 





0014 


DC 


20 


ITCNT 


ODDO 





0952 


DC 


/0952 


RED 





0DD1 





1105 


DC 


/1105 


BSP 


BLK 


0002 





DA21 


DC 


/DA21 


+ 


SP 


0DD3 





21FF 


DC 


/21FF 


SP 




0DD4 





FFFF 


DC 
* 


/FFFF 












* 

* 


BACK 


SPACE AN 


0DD5 





0001 


SPNDX DC 


1 


ITCNT 


0DD6 





2181 


DC 


/2181 


SP 


CR 


0DD7 





05FF 


DC 


/05FF 


BLACK 


0DD8 





0002 


DC 


2 


ITCNT 


0DD9 





8141 


DC 


/8141 


CR 


TAB 


ODDA 





3611 


DC 


/3611 


E 


* 


ODDB 





111E 


DC 


/111E 


# 


C 


ODDC 





1111 


DC 


/llll 


$ 




ODDD 





3E11 


DC 


/3E11 


A 


* 


ODDE 





1156 


DC 


/1156 


* 


P 


ODDF 





1111 


DC 


/llll 


* 


* 


ODEO 





9A11 


DC 


/9A11 


S 


* 


0DE1 





1111 


DC 


/mi 


* 


* 


ODE 2 





5A11 


DC 


/5A11 


K 


# 


0DE3 





111E 


DC 


/l HE 


* 


c 


ODE 4 





1111 


DC 


/mi 


* 


■','- 


0DE5 





3E11 


DC 


/3E11 


A 


# 


0DE6 





111A 


DC 


/111A 


* 


B 


0DE7 





8141 


DC 


/8141 


CR 


TAB 


ODES 





2211 


DC 


/2211 


I 


BSP 


0DE9 





0376 


DC 


/0376 


LNF 


N 


ODEA 





1103 


DC 


/1103 


BSP 


LNF 


ODEB 





3203 


DC 


/3203 


D 


LNF 


00 EC 





1136 


DC 


/1136 


BSP 


E 


ODED 





0311 


DC 


/0311 


LNF 


BSP 


ODEE 





9603 


DC 


/9603 


X 


LNF 


ODEF 





1109 


DC 


/1109 


BSP 


RED 


ODFO 





81FF 


DC 


/81FF 


CR 




0DF1 





0001 


DC 


1 


ITCNT 


0DF2 





81FF 


DC 


/81FF 


CR 




0DF3 





FFFF 


DC 


/FFFF 







AUTOMATIC CARRIER RETURN 



0DF4 





0001 


AUCAR DC 


/0001 


ITCNT 


0DF5 





8105 


DC 


/8105 


SP CR 


0DF6 





1E3C 


DC 


/1E3C 


C A 


0DF7 





6060 


DC 


/6060 


R R 


0DF8 





2034 


DC 


/2034 


I E 


0DF9 





6021 


DC 


/6021 


R 


ODFA 





6034 


DC 


/6034 


R E 


ODFB 





9CB0 


DC 


/9CB0 


T U 


ODFC 





6074 


DC- 


/6074 


R N 


ODFD 





21FF 


DC 


/21FF 




ODFE 





0078 


DC 


120 


ITCNT 


ODFF 





21FF 


DC 


/21FF 


SPACE 


OEOO 





0001 


DC 


1 


ITCNT 


0E01 





0921 


DC 


/0921 


RED 


0E02 





1E3C 


DC 


/1E3C 


C A 


OE03 





6060 


DC 


/6060 


R R 


0E04 





2034 


DC 


/2034 


I t 


0E05 





6021 


DC 


/6021 


R 


0E06 





6034 


DC 


/6034 


R E 



80615660 
80615670 
80615680 
80615690 
80615700 
80615710 
80615720 
80615730 
80615740 
80615750 
80615760 
80615770 
80615780 
80615790 
80615800 
80615810 
80615820 
80615830 
80615840 
80615850 
80615860 
80615870 
80615880 
80615890 
80615900 
80615910 
80615920 
80615930 
80615940 
80615950 
80615960 
80615970 
80615980 
80615990 
80616000 
80616010 
80616020 
80616030 
80616040 
80616050 
80616060 
80616070 
80616080 
80616090 
80616100 
80616110 
80616120 
80616130 
80616140 
80616150 
80616160 
80616170 
80616180 
80616190 
80616200 
80616210 
80616220 
80616230 
80616240 
80616250 
80616260 
80616270 
80616280 
80616290 
80616300 
80616310 
80616320 
80616330 
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0E07 





9CB0 


DC 


/9CB0 


T U 


0E08 





6074 


DC 


/6074 


R N 


0E09 





21FF 


DC 


/21FF 




OEOA 





0078 


DC 


120 


ITCNT 


OEOB 





21FF 


DC 


/21FF 


SPACE 


OEOC 





FFFF 


DC 

* 


/FFFF 




OEOD 





0001 


* 

ROCK DC 


1 


ITCNT 


OEOE 





2181 


DC 


/2181 


SP CR 


OEOF 





05FF 


DC 


/05FF 


BLACK 


0E10 





0002 


DC 


2 


ITCNT 


0E11 





81C0 


DC 


/81C0 


CR NOS 


0E12 





8040 


DC 


/8040 


, $ 


0E13 





0020 


DC 


/0020 


1 


0E14 





60A0 


DC 


/60A0 


R Z 


0E15 





EODO 


DC 


/EODO 


9 6 


0E16 





9050 


DC 


/9050 


W 


0E17 





1030 


DC 


/1030 


F D 


0E18 





7060 


DC 


/70BO 


M U 


0E19 





F0D8 


DC 


/F0D8 


4 2 


0E1A 





9858 


DC 


/9858 


S K 


0E1B 





1804 


DC 


/1804 


B AT 


0E1C 





4484 


DC 


/4484 


AND - 


0E1D 





C4E4 


DC 


/C4E4 


8 


0E1E 





A464 


DC 


/A464 


Y 


0E1F 





2414 


DC 


/2414 


H G 


0E20 





5494 


DC 


/5494 


P X 


0E21 





D4F4 


DC 


/D4F4 


7 5 


0E22 





B474 


DC 


/B474 


V N 


0E23 





341C 


DC 


/341C 


E C 


0E24 





5C9C 


DC 


/5C9C 


L T 


0E25 





DCFC 


DC 


/DCFC 


3 1 


0E26 





BC7C 


DC 


/BC7C 


/ J 


0E27 





3C21 


DC 


/3C21 


A 


0E28 





02 42 


DC 


/0242 


CNT ECX 


0E29 





82C2 


DC 


/82C2 


CLN # 


0E2A 





E2A2 


DC 


/E2A2 


QTE Z 


0E2B 





6222 


DC 


/6222 


R LOR 


0E2C 





1252 


DC 


/1252 


F Q 


0E2D 





92D2 


DC 


/92D2 


W SMI 


0E2E 





F2B2 


DC 


/F2B2 


I U 


0E2F 





7232 


DC 


/7232 


M D 


0E30 





1A5A 


DC 


/1A5A 


B K 


0E31 





9ADA 


DC 


/9ADA 


S T 


0E32 





C686 


DC 


/C686 


LNT QSN 


0E33 





4606 


DC 


/4606 


GTR PCT 


0E34 





2666 


DC 


/2666 


H Q 


OE35 





A6E6 


DC 


/A6E6 


y a 


0E36 





1)696 


DC 


/D696 


* X 


0E37 





5616 


DC 


/5616 


P G 


0E38 





3676 


DC 


/3676 


E N 


0E39 





B6F6 


DC 


/B6F6 


V a 


0E3A 





DE9E 


DC 


/DE9E 


LPS T 


0E3B 





5E1E 


DC 


/5E1E 


L C 


0E3C 





3E7E 


DC 


/3E7E 


A J 


0E3D 





BEFE 


DC 


/BEFE 


UDR % 


0E3E 





09FF 


DC 


/09FF 


RED 


0E3F 





FFFF 


DC 


/FFFF 




OE40 





0001 


# 

ROLL DC 


1 


ITCNT 


0E41 





2181 


DC 


/2181 


SP CR 


0E42 





05FF 


DC 


/05FF 


BLACK 


0E43 





0002 


DC 


2 


ITCNT 


0E44 





81C0 


DC 


/81C0 


CR NOS 


0E45 





EODO 


DC 


/EODO 


9 6 


0E46 





F0D8 


DC 


/F0D8 


4 2 



PART NO. 
PAGE 



80616340 
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0E47 





C4E4 


DC 


/C4E4 





8 


0E48 





D4F4 


DC 


/D4F4 


7 


5 


0E49 





DCFC 


DC 


/DCFC 


3 


1 


0E4A 





BC9C 


DC 


/BC9C 


/ 


T 


0E4B 





B494 


DC 


/B494 


V 


X 


0E4C 





A484 


DC 


/A484 


Y 


_ 


0E4D 





98B0 


DC 


/98B0 


S 


u 


0E4E 





90A0 


DC 


/90A0 


W 


z 


0E4F 





8040 


DC 


/8040 


i 


$ 


0E50 





6050 


DC 


/6050 


R 





0E51 





7058 


DC 


/7058 


M 


K 


0E52 





4464 


DC 


/4464 


AND 


Q 


0E53 





5474 


DC 


/5474 


P 


N 


0E54 





5C7C 


DC 


/5C7C 


L 


J 


0E55 





3C1C 


DC 


/3C1C 


A 


C 


0E56 





3414 


DC 


/3414 


E 


G 


0E57 





2404 


DC 


/2404 


H 


AT 


0E58 





1830 


DC 


/1830 


B 


D 


0E59 





1020 


DC 


/1020 


F 


I 


0E5A 





0021 


DC 


/0021 


. 




0E5B 





3F1E 


DC 


/3E1E 


A 


C 


0E5C 





3616 


DC 


/3616 


E 


G 


0E5D 





2606 


DC 


/2606 


H 


PCT 


0E5E 





1A32 


DC 


/1A32 


B 


D 


0E5F 





1222 


DC 


/1222 


F 


I 


0E60 





0242 


DC 


/0242 


CNT 


EXC 


0E61 





6252 


DC 


/6252 


R 





0E62 





725A 


DC 


/725A 


M 


K 


0E63 





4666 


DC 


/4666 


GTR 


Q 


0E64 





5676 


DC 


/5676 


P 


N 


0E65 





5E7E 


DC 


/5E7E 


L 


J 


0E66 





BE9E 


DC 


/BE9E 


UDR 


T 


0E67 





B696 


DC 


/B696 


V 


X 


0E68 





A686 


DC 


/A686 


Y 


QSN 


0E69 





9AB2 


DC 


/9AB2 


S 


U 


0E6A 





92A2 


DC 


/92A2 


w 


z 


0E6B 





82C2 


DC 


/82C2 


CLN 


# 


0E6C 





E2D2 


DC 


/E2D2 


QTE 


SMI 


0E6D 





F2DA 


DC 


/F2DA 


LNT 


L 


0E6E 





C6E6 


DC 


/C6E6 


LOR 


51 


0E6F 





06 F6 


DC 


/D6F6 


* 


D 


0E7O 





DEFE 


DC 


/DEFE 


LES 


% 


0E71 





09FF 


DC 


/09FF 


RED 




0E72 





FFFF 


DC 


/FFFF 






0E73 





0001 


TWIST DC 


1 


ITCNT 


0E74 





2181 


DC 


/2181 


SP I 


CR 


0E75 





05FF 


DC 


/05FF 


BLACK 


0E76 





0002 


DC 


2 


ITCNT 


0E77 





8 ICO 


DC 


/81C0 


CR 


NOS 


0E78 





3E80 


DC 


/3E80 


A 


» 


0E79 





7E40 


DC 


/7E40 


J 


$ 


0E7A 





BEOO 


DC 


/BEOO 


UDR 


. 


0E7B 





FE20 


DC 


/FE20 


% 


I 


0E7C 





DE60 


DC 


/DE60 


LES 


R 


0E7D 





9F.A0 


DC 


/9EA0 


T 


Z 


0E7E 





5EE0 


DC 


/5EE0 


L 


9 


0E7F 





IE DO 


DC 


/1ED0 


C 


6 


0E80 





3690 


DC 


/3690 


E 


W 


0E81 





7650 


DC 


/7650 


N 





0E82 





B610 


DC 


/B610 


V 


F 


0E83 





F630 


DC 


/F630 


n 


D 


0E84 





D670 


DC 
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* 


M 


0E85 





9660 


DC 


/96B0 


X 


U 


0E86 





56F0 


DC 


/56F0 


P 


4 


0E87 





16D8 


DC 


/16D8 


G 


2 


0E88 





2698 


DC 
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H 


S 
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0E89 





6658 




DC 


/6658 


Q 


K 




80617700 


0E8A 





A618 




DC 


/A618 


Y 


8 




80617710 


0E8B 





E604 




DC 


/E604 


3 


AT 




80617720 


0E8C 





C644 




DC 


/C644 


LOR 


AND 




80617730 


0E8D 





8684 




DC 


/8684 


QSN 


- 




80617740 


0E8E 





46C4 




DC 


/46C4 


GTR 







80617750 


OE8F 





06E4 




DC 


/06E4 


PCT 


8 




80617760 


0E90 





1AA4 




DC 


/1AA4 


B 


Y 




80617770 


0E91 





5A64 




DC 


/5A64 


K 


Q 




80617780 


0E92 





9A24 




DC 


/9A24 


S 


H 




80617790 


0E93 





DA14 




DC 


/DA14 


6 


G 




80617800 


0E94 





F254 




DC 


/F2 54 


LNT 


P 




80617810 


OE95 





B294 




DC 


/B294 


U 


X 




80617820 


0E96 





7204 




DC 


/72D4 


M 


7 




80617830 


0E97 





32F4 




DC 


/32F4 


D 


5 




80617840 


0E98 





12B4 




DC 


/12B4 


F 


V 




80617850 


0E99 





5274 




DC 


/5274 





N 




80617860 


0E9A 





9234 




DC 


/9234 


W 


E 




80617870 


0E9B 





D21C 




DC 


/D21C 


SMI 


C 




80617880 


0E9C 





E25C 




DC 


/E25C 


QTE 


L 




80617890 


0E9D 





A29C 




DC 


/A29C 


Z 


T 




80617900 


0E9E 





620C 




DC 


/62DC 


R 


3 




80617910 


0E9F 





22FC 




DC 


/22FC 


I 


1 




80617920 


OEAO 





02BC 




DC 


/02BC 


CNT 


/ 




80617930 


OEA1 





427C 




DC 


/427C 


EXC 


J 




80617940 


OEA2 





823C 




DC 


/823C 


CLN 


A 




80617950 


OEA3 





C221 




DC 


/C221 


# 






80617960 


OEA4 





09FF 




DC 


/09FF 


RED 






80617970 


OEA5 





0001 


CLEND 


DC 


1 


ITCNT 




80617980 


0EA6 





05FF 




DC 


/05FF 


BLACK 




80617990 


OEA7 





FFFF 




DC 


/FFFF 








80618000 








************************ 


****: 


************* 


:***** 


80618010 








************************ 


* * * * : 


************* 


:**** 


80618020 








* 












80618030 








* 




PRINTER OUTPUT STATUS 




80618040 








* 






TABLES 




80618050 








* 




PRINTER 1 


MO 




80618060 


0EA8 




0000 




BSS 


E 








80618070 


OEA8 


1 


0073 


PTRO 


DC 


TACAR 


WORD POINTER 




80618080 


0EA9 





0002 




DC 


2 


TEST POINTER 




80618090 


OEAA 





8000 




DC 


/8000 


PTR 


NOT SELECTEC 


1 


80618100 








* 




/COOO 


PTR 


IN KEYBOARD 


TEST 


80618110 








* 




/OOOO 


PTR 


SVC REQUESTED 


80618120 


OEAB 





81FF 




DC 


/81FF 


NEXT PTR OUTPUT 


WORD 


80618130 


OEAC 





0001 




DC 


1 


ITERATION COUNT 




80618140 


OEAD 





0001 




DC 


1 


SHIFT WORD 




80618150 


OEAE 





0000 




DC 





WORDS PRINTED 




80618160 


OEAF 





0000 




DC 





LAST ITCNT ADDR 


PT 


80618170 


OEBO 


1 


OEAB 




DC 


PTR060UT 








80618180 


OEBl 





0100 




DC 


/0100 


WRITE COMMAND 




80618190 


OEB2 





0000 


PTRON 


DC 





PRINTER 




80618200 


OEB3 





0701 




DC 


/0701 


SENSE DSW COMMAND 


80618210 


0EB4 





0000 




DC 











80618220 


OEB5 





0400 




DC 


/0400 


SELECT KEYBOARD 


CMD 


80618230 


0EB6 


1 


0EB4 




DC 


PTROSKEY 








80618240 


OEB7 





0200 




DC 


/0200 


READ KEYBOARD COMND 


80618250 


0EB8 





0000 




DC 


/OOOO 


ERROR OSW WAS 




80618260 


0EB9 





0000 


* 
* 


DC 


/OOOO 


DSW 


SHOULD HAVE 


BEEN 


80618270 
80618280 
80618290 








* 




PRINTER 1 


MO 1 




80618300 








* 












80618310 


OEBA 


1 


0D73 


PTR1 


DC 


TACAR 


WORD POINTER 




80618320 


OEBB 





0002 




DC 


2 


TEST POINTER 




80618330 


OEBC 





8000 




DC 


/8000 


PTR 


NOT SELECTEC 


) 


80618340 








* 




/COOO 


PTR 


IN KEYBOARD 


TEST 


80618350 








* 




/OOOO 


PTR 


SVC REQUESTED 


80618360 


OEBD 





81FF 




DC 


/81FF 


NEXT PTR OUTPUT 


WORD 


80618370 
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OEBE 





0001 




DC 


1 




ITERATION COUNT 


80618380 


OEBF 





0001 




DC 


1 




SHIFT WORD 


80618390 


OECO 





OOOO 




DC 







WORDS PRINTED 


80618400 


0EC1 





OOOO 




DC 







LAST ITCNT ADDR PT 


80618410 


0EC2 


1 


OEBD 




DC 


PTR1K0UT 




80618420 


0EC3 





0100 




DC 


/0100 




WRITE COMMAND 


80618430 


0EC4 





0001 




DC 


1 






80618440 


0EC5 





0701 




DC 


/0701 




SENSE DSW COMMAND 


80618450 


0EC6 





OOOO 




DC 









80618460 


0EC7 





0400 




DC 


/0400 




SELECT KEYBOARD CMD 


80618470 


0EC8 


1 


0EC6 




DC 


PTRlfiKEY 




80618480 


0EC9 





0200 




DC 


/0200 




READ KEYBOARD COMND 


80618490 


OECA 





OOOO 




DC 


/OOOO 




ERROR DSW WAS 


80618500 


OECB 





OOOO 


* 


DC 


/OOOO 




DSW SHOULD HAVE BEEN 


80618510 
80618520 
80618530 








* 






PRINTER NO 2 


80618540 








* 










80618550 


OECC 


1 


0D73 


PTR2 


DC 


TACAR 




WORD POINTER 


80618560 


OECD 





0002 




DC 


2 




TEST POINTER 


80618570 


OECE 





8 000 


* 


DC 


/8000 
/COOO 
/OOOO 




PTR NOT SELECTED 
PTR IN KEYBOARD TEST 
PTR SVC REQUESTED 


80618580 
80618590 
80618600 


OECF 





81FF 




DC 


/81FF 




NEXT PTR OUTPUT WORD 


80618610 


OEDO 





0001 




DC 


1 




ITERATION COUNT 


80618620 


0ED1 





0001 




DC 


1 




SHIFT WORD 


80618630 


0ED2 





OOOO 




DC 







WORDS PRINTED 


80618640 


0ED3 





OOOO 




DC 







LAST ITCNT ADDR PT 


80618650 


0ED4 


1 


OECF 




DC 


PTR2S0UT 




80618660 


0ED5 





0100 




DC 


/0100 




WRITE COMMAND 


80618670 


0ED6 





0002 




DC 


2 






80618680 


0ED7 





0701 




DC 


/07 01 




SENSE DSW COMMAND 


80618690 


0ED8 





OOOO 




DC 









80618700 


0ED9 





0400 




DC 


/0400 




SELECT KEYBOARD CMD 


80618710 


OEDA 


1 


0ED8 




DC 


PTR2SKEY 




80618720 


OEDB 





0200 




DC 


/0200 




READ KEYBOARD COMND 


80618730 


OEDC 





OOOO 




DC 


/OOOO 




ERROR DSW WAS 


80618740 


OEDD 





OOOO 


* 
* 


DC 


/OOOO 




DSW SHOULD HAVE BEEN 


80618750 
80618760 
80618770 








* 






PRINTER NO 3 


80618780 








* 










80618790 


OEDE 


1 


0D73 


PTR3 


DC 


TACAR 




WORD POINTER 


80618800 


OEDF 





0002 




DC 


2 




TEST POINTER 


80618810 


OEEO 





8000 


* 
* 


DC 


/8000 
/COOO 
/OOOO 




PTR NOT SELECTED 
PTR IN KEYBOARD TEST 
PTR SVC REQUESTED 


80618820 
80618830 
80618840 


0EE1 





81FF 




DC 


/81FF 




NEXT PTR OUTPUT WORD 


80618850 


0EE2 





0001 




DC 


1 




ITERATION COUNT 


80618860 


0EE3 





0001 




DC 


1 




SHIFT WORD 


80618870 


0EE4 





OOOO 




DC 







WORDS PRINTED 


8061888C 


0EE5 





OOOO 




DC 







LAST ITCNT ADDR PT 


80618890 


0EE6 


1 


0EE1 




DC 


PTR3C0UT 




80618900 


0EE7 





0100 




DC 


/0100 




WRITE COMMAND 


80618910 


0EE8 





0003 




DC 


3 






80618920 


0EE9 





0701 




DC 


/0701 




SENSE DSW COMMAND 


80618930 


OEEA 





OOOO 




DC 









80618940 


OEEB 





0400 




DC 


/0400 




SELECT KEYBOARD CMD 


80618950 


OEEC 


1 


OEEA 




DC 


PTR3GKEY 




80618960 


OEED 





0200 




DC 


/0200 




READ KEYBOARD COMND 


80618970 


OEEE 





OOOO 




DC 


/OOOO 




ERROR DSW WAS 


80618980 


OEEF 





OOOO 


* 

* 


DC 


/OOOO 




DSW SHOULD HAVE BEEN 


80618990 
80619000 
80619010 








* 






PRINTER NO 4 


80619020 








* 










80619030 


OEFO 


1 


0D73 


PTR4 


DC 


TACAR 




WORD POINTER 


80619040 


0EF1 





0002 




DC 


2 




TEST POINTER 


80619050 
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0EF2 





8000 


0EF3 





81FF 


0EF4 





0001 


0EF5 





0001 


0EF6 





0000 


0EF7 





0000 


0EF8 


1 


0EF3 


0EF9 





0100 


OEFA 





0004 


OEFB 





0701 


OEFC 





0000 


OEFD 





0400 


OEFE 


1 


OEFC 


OEFF 





0200 


OFOO 





0000 


0F01 





0000 



0F02 


1 


0073 


0F03 





0002 


0F04 





8000 


0F05 





81FF 


0F06 





0001 


0F07 





0001 


0F08 





0000 


OF 09 





0000 


OFOA 


1 


0F05 


OFOB 





0100 


OFOC 





0005 


OFOD 





0701 


OFOE 





0000 


OFOF 





0400 


0F10 


1 


OFOE 


0F11 





0200 


OF 12 





0000 


0F13 





0000 



0F14 1 0D73 
0F15 0002 
0F16 8000 



0F17 
0F18 
0F19 
0F1A 
0F1B 
0F1C 
0F1D 
OF IE 
0F1F 
0F20 
0F21 
0F22 
OF23 
0F24 
0F25 



81FF 
0001 
0001 
0000 
0000 
0F17 
0100 
0006 
0701 
0000 
0400 
0F20 
0200 
0000 
0000 



* 

# 
PTR5 



* 
* 
* 
* 
PTR6 



DC 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



DC 
DC 
DC 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



DC 
DC 
DC 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



/8000 

/COOO 

/OOOO 

/81FF 

1 

1 





PTR4&3 

/0100 

4 

/0701 



/0400 

PTR46KEY 

/0200 

/OOOO 

/OOOO 



PTR NOT SELECTED 
PTR IN KEYBOARD TEST 
PTR SVC REQUESTED 
NEXT PTR OUTPUT WORD 
ITERATION COUNT 
SHIFT WORD 
WORDS PRINTED 
LAST ITCNT ADDR PT 

WRITE COMMAND 

SENSE DSW COMMAND 

SELECT KEYBOARD CMD 

READ KEYBOARD COMND 

ERROR DSW WAS 

DSW SHOULD HAVE BEEN 



PRINTER NO 5 



TACAR 

2 

/8000 

/COOO 

/OOOO 

/81FF 

1 

1 





PTR5E0UT 

/0100 

5 

/0701 



/0400 

PTR5GKEY 

/0200 

/OOOO 

/OOOO 



WORD POIiMTER 

TEST POINTER 

PTR NOT SELECTED 

PTR IN KEYBOARD TEST 

PTR SVC REQUESTED 

NEXT PTR OUTPUT WORD 

ITERATION COUNT 

SHIFT WORD 

WORDS PRINTED 

LAST ITCNT ADDR PT 

WRITE COMMAND 

SENSE DSW COMMAND 

SELECT KEYBOARD CMD 

REAO KEYBOARD COMND 

ERROR DSW WAS 

DSW SHOULD HAVE BEEN 



PRINTER NO 6 



TACAR 

2 

/8000 

/COOO 

/OOOO 

/81FF 

1 

1 





PTR660UT 

/0100 

6 

/0701 



/0400 

PTR66KEY 

/0200 

/OOOO 

/OOOO 



WORD POINTER 

TEST POINTER 

PTR NOT SELECTED 

PTR IN KEYBOARD TEST 

PTR SVC REQUESTED 

NEXT PTR OUTPUT WORD 

ITERATION COUNT 

SHIFT WORD 

WORDS PRINTED 

LAST ITCNT ADDR PT 

WRITE COMMAND 

SENSE DSW COMMAND 

SELECT KEYBOARD CMD 

READ KEYBOARD COMND 

ERROR DSW WAS 

DSW SHOULD HAVE BEEN 



PART NO. 2196366 
PAGE 15 



80619060 

80619070 

80619080 

80619090 

80619100 

80619110 

80619120 

80619130 

80619140 

80619150 

80619160 

80619170 

80619180 

80619190 

80619200 

80619210 

80619220 

80619230 

80619240 

80619250 

80619260 

80619270 

80619280 

80619290 

80619300 

80619310 

80619320 

80619330 
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TABLE CF CONTENTS 

PARAGRAPH p AGE 

1. PURPOSE 01 

2. PREREQUISITES 01 

3. USE PROCEDURE 01 

3.1 PROGRAM LOADING 

3.2 PROGRAM OPERATION 

3.3 SPECIAL CRC CHECK OPTION 

3.4 PROGRAM HALTS 

3.5 PROGRAM TERMINATION 

4. PRINTOUTS 2A 

4.1 COMMANO MESSAGES 

4.2 DATA MESSAGE 

4.3 ERROR FRINTOUTS 

5. COMMENTS fl(f 

5.1 PROGRAM Of SCRIP HON 

5.2 TEST ROUTINES 

5.3 COMMON SUBROUTINES 

t. APPENDIX 06 

6.1 EDIT PROCEDURE 

1. PURPOSE 

MAGNETIC TAPE FUNCTION TEST (MTFNT) IS DESIGNED TO TEST EACH FUNCTION OF THE 
2400 MAGNETIC TAPE SERIES FOR COMPLIANCE WITH THE PRCOUCT SPECIFICATIONS. 

THE MTFNT PROGRAM IS WRITTEN TO ACCOMMOOAIE SYSTEMS WITH- 

1 - ONE OR TWO TAPE DRIVES. 

2 - DRIVES WITH 9 TRACK OR 7 TRACK READ-WRITE HEADS. IN SYSTEMS WITH TWO 

TAPE DRIVES, THE OR.IVES CAN BE EXERCISEO IN AN ASYNCHRONOUS FASHION. 
BECAUSE MTFNT RUNS UttDER CONTROL OF 0IA6N0STIC MONITOS, INTERACTION 
BETWEEN MAGNETIC TAPE DKIVES AND OTHER DEVICES CAN ALSO BE TESTED. 

2. PREREOUISITES 

THIS PROGRAM MUST RUN UNDER CONTROL OF THE DIAGNOSTIC MONITOR. 
THE DIAGNOSTIC MONITOR PROGRAM USES 2,047 STGRAGE WORDS, AND THIS 
PROGRAM, USES 2,047 STORAGE VDRDS. 

3. USE PROCEDURE 

3.1 PROGRAM LOADING 

STANDAAO LOADING PROCECURE AS DESCRIBED IN THE DIAGNOSTIC MONITOR USE 
PROCEDURE. 

ON 2400 TAFE DRIVE, 

1. LOAD REEL OF TAPE 

?. DEPRESS LOAD-REWIND K"EV 

3. DEPRESS START KEY 

TAFE SHOULD REWIND TO LOAD POINT, ANO HEADY LAMP SHOULD GO ON. 
3.2 PROGRAM OPERATION 



c 
o 

2 
O 
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9 

9 

1 
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STANCARC MONITOR OPERATING PRCCCCURES APPLY. 

THESE FROCEDURES <M»e SUMMARIZED HERE. SEE CM USE PROCEDURE FOR 

DETAILS OF PARTS t-4 BELOW. 

1. CLEAR STORAGE 

2. LOAD DIAGNOSTIC MONITOR 

3. SELECT MODE OF EXECUTION 

4. SELECT MONITOR CONTROL OPTIONS 

5. SELECT PROGRAM OPTIONS FROM, 

IF NO OPTIONS ARE SELECTED. THE PROCRAM WILL AUTOMATICALLY RUN 
ALL ROUTINES IN SEQUENCE. THIS RUN MILL BE ON BOTH ORIVES UNLESS 
THE EDIT CARE INDICATES THERE IS NO DRIVE 1 AVAILABLE. 

NOTE 

IN THIS MODE NC ROUTINE WILL CHECK THE ABILITY TO 
SENSr END OF TAPE MARKER, UNLESS THE E.O.T. MARKER 
IS LESS THAN 500 RECORDS FROM tOAD POINT. 

TABLE O PROGRAM CONTROL FUNCTION 

TAELE 1 ROUTINE SELECT FUNCTION (ONLY IF LOOP ROUTINE 

TAeLE 2 DEVICE SELECT FUNCTION 



IS CESIRED) 



6. INSTRUCT MONITOR TO EXECUTE 

SPECIAL CRC CHECK OPTION 

A SPECIAL OPTION IS AVAILABLE TO SPEED CHECKING OF THE CRC CIRCUITRY. 



A. 

B. 

C. 

D. 
E. 

F. 

G. 



h. 



ENTER BITS 7 (CHECK CRC), AND 10 (PRINT ONLY FIRST OAC OATA 
>WOR0) FROM TABLE 0. 

SELECT ROUTINE 3 FOR THE DRIVE OR DRIVES TO BE RUN. 
(TABLE I) 

ON SYSTEMS WITH TWO ORIVES, IF IT IS ONLY DESIRED TO RUN 
ONE DRIVE, DESELECT THE CRIVE NOT TO BE RUN. (TABLE 21 
INSTRUCT MONITOR TO EXECUTE. 

WAIT UNTIL THE FIRST PASS THRU TAPE IS COMPLETE. THIS IS THE 
WRITE PASS. 

DURING READING, GROUNO THE OUTPUT OF THE HI CLIP 
AMPLIFIER FOR ONE TRACK. 

CHECK FOR THE FOLLOWING PRINTOUTS CN EACH RECORD, READ 
WHILE THE HI CLIP AMPLIFIER OUTPUT IS GROUNDED. 

1. CORRECTABLE READ ERROR (A004) 

2. WRONG DATA (E007I 

3. RECOVERED READ ERROR (A003) 

THE OCCUKANCE OF THE 'RECOVERED REAO ERROR* PRINTOUT SHOWS 

THE CRC CIRCUIT IS WORKING CORRECTLY. 

REPEAT STfPS E THRU H FOR EACH TRACK. 

TERMINATE THE PROGRAM BY INSTRUCTING THE MONITOR TO 

DEEXECUTE. 



TABLE 



CONTROL FUNCTION 



* • •••• »• SET FUNCTION CC IN SENSE/PROGRAM SWITCHES O .AND I. 

• • (AS SHOWN) -- u*_§ 

• SENSE/PROGRAM • 2. SET PIO IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 

• • (AS SHOWN) 

•C1234567. 3. SET OESIRED CONTROL OPTIONS IN DATA ENTRY SWITCHES 0-15. 

• • 4. PRESS CONSOLE INTERRUPT. V 
« C C C C C 1 1 1 • 



• OATA ENTRY SWITCHES . DESCRIPTION 
/ C 1 2 3 4 5 6 7 8 9 10 M 12 13 14 15 • 

* ... . 1.. TERMINATE PROGRAM 



THIS OPTION IS 
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1. 



• ••«•••■•<■< 



OSEC IN eOOTSTMP MOOE . (SEE SEC. 
....BYPASS ALL PRINTOUTS WITH A PREFI 

A OR C. 

PRINT ONLY FIRST »A0 OATA WORC. 

....RTNS 2 THRU 6 RON TO EOT. 
1 CRC CHECK OPTION (SEE SECTION ? 1 

« ..".«."„.;:' 



3.5) 
X OF 



1. 



I. 



) • 



• SENSE/PRCGHAN 
•C1234567 

• C 1 C C C 1 1 I 



TAeLE I ROUTINE SELECTION 

1. SET FUNCTION CI IN SEMSE/PROGRA* SWITCHES ANO 1. 
(AS SHOWN) 

2. SEI PID IN SENSE/PROGRAM SWITCHES 2-7. 
(AS SHOWN) 

3. SET DESIRED RCUTIMES IN DATA ENTRY SKS. 

4. PRESS CONSOLE INTERRUPT. 

5. A STARTING ROUTINE CAN BE SELECTED BY 

A. ENTER STARTING ROUTINE FCR A DRIVE OR DRIVES 

B. START PROGRAM RUNNING. 

C. ENTfR RGUTINE C FOR THE DRIVE OR DRIVES. 



I r . , , , OATA ENTRY SWITCHES . DESCRIPTION 

• C 1 2 3 -i 5 6 7 ft 9 10 11 12 13 1« 15 . 

I "XXX X ROUTINE- TO BE tCOPEC ON DRIVE ZERO. 

. ENTER HEX NUNeER FROM TO 11. 



Y Y Y Y Y. .ROUTINE TO BE LOOPEC CN DRIVE ONE. 
ENTER HEX NUMBER FROM TO 11. 



• NOTE 1-IF THE NUMBER ENTEREO FOR A DRIVE IS ZERD-THAT DRIVF will iunr 

• LOOP BUT WILL RUN ALL ROUTINES IN SEOUENCE. 

• NOTE 2 THESE SWITCHES CAN BE CHANGED AT ANY TINE. 



SENSE/PROGRAN 
C 1 2 3 4 5 6 7 
1 C C C C 1 1 1 



TABLE 2 DEVICE SELECTION 

1. SET FUNCTION 10 IN SENSE/PROGRAM SWITCHES ANO 1. 
(AS SHOWN) 

2. SET PIO IN SENSE/PROGRAM SWITCHES 2-7. 
(AS SHOWN) 

3. SET OESIREO DRIVES IN DATA ENTRY SWS. 

4. PRESS CONSOLE INTERRUPT. 



r , , , . c 4 I\ E ? TRV SW,TC HES . DESCRIPTION 

C 1 2 3 « 5 t 7 8 9 10 11 12 13 1« 15 • 



. 1. 
I... 



.00 NOT RUN BRIVE ONE. (SEE NOTE 1) 
.DO NOT RUN DRIVE ZERO. 



NCTE 1-DftIVE SELECTION ENTRY IS REOUIREC ONLY IF IT IS NOT 
DESIRED TO RUN BOTH DRIVES. 

NOTE 2-ONCE THE MONITOR BEGINS EXECUTION OF MTFNT DRIVE SELECTION 
CAN ONLY BE CHANGED BY RESTARTING MTFNT. >*LbtTICN 

N0TE 3 ~L^l H L SY V tH H * S ° NLV 0NE 0R,VE ' A SPECIAL ENTRY OF 'FFFF' IS 
MACE ON THE EDIT CARD FOR DRIVE 1 AND THIS OPTION IS NOT USED. 



3.4 

CATE 
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n^ir? n? H WU '- NEVER Wt,U UNLESS THt OI*CN'OSTIC MOM I TOR 0PTI3N 
OF MALT ON' ERROR IS SELECTED. SEE DM, USE PROCEDURF FOR THIS HALT. 



3.5 PROGRAM TERMINATION 

PRDC-PAM IS TERM1NATEC IF A SELECTEO ORIVE IS NOT READY. 
BE MANUALLY TERMINATED IN TWO WAYS. 



PROGRAM CAN 



1. BY THE MONITOR DEEXECUTE OPTION. THIS OPTION SHOULD BE USED WHFN 
RUNNING PROGRAMS IN THE OVERLAP MPCE. =>"UULD bt USED WHEN 

2. BY ENTERING BIT 15 OF FUNCTION CO (TABLE 0). THIS OPTION MUST BF 
OSEC WHEN RUNNING PROGRAMS IN THE BOOTSTRAP MODE. 

«. PRINTOUTS 

4.1 CCMKAND MESSAGES 

C7CC CCCC (THE REST OF THE WORDS HAVE NO SIGNIFICANCE) 

DRIVE C IS SELECTEC TC BE RUN BUT IS NOT READY. 

CTCC CCC1 (THt REST OF THE WORDS HOVE NC SIGNIFICANCE) 

DRIVE 1 IS SELECTEO TO BE RUN BUT IS NOT REAOY. 

C7CC CCC2 (THE BEST OF THE WORDS HAVE NO SIGNIFICANCE) 
NO DRIVE IS SELECTED TO BE RUN. 

4.2 DATA MESSAGE 

FIRST LINE 

'BCCEFGhlj 
C7CC CC01 ecu XXXX CCCX XXXX XXXX XXXX XXXX XXXX xxxx 

SECCNC LINE 

K I V. N C 

CCCX XXXX XXXX XXXX XXXX 
PROGRAM HAS CCMPLETED ORE PASS, ON THE DRIVE INCICATEO. 



A. MESSAGE NUMBER 

B. ROUTINE NUMBER 

C. RTN ACRS 

C. UNIT fcUMBER 

e. number cf prog passes 
e. Total nunber of writes 
c. total number of reads 
h. total nuhber of rewinos 



I. TCT4L NUMBER CF ERASES 

J. TOTAL NUMBER OF PASSES THRU TAPE 

K. UNIT NUMBER 

L. NUMBER CF RECOVERED READ ERRORS 

M. NUMBER CF RECOVERED WRITE ERRORS 

N. NUMBER CF UNRECOVERABLE READ ERRORS 

C. NUMBER CF UNRECOVERABLE WRITE ERRORS 



A. 3 ERRCR PRINTOUTS 

ALL PRINTOUTS PREFIXEC -A- CAN BE BYPASSED BY SWITCH 13 OF FNC. CO. 

RTN RTN UNIT REC ERR 
NC. ADDRS NC. NO. CTRL 
C7CC ACC1 XXXX XXXX CCCX XXXX YYRR 
RECOVERED WRITE ERROR. 

* „?r^c C0NTR0L ,S THE NUMBER W RETRYS °* ™«S RECORD PRIOR TO 
PLUS 11.' OF RETRYS IS EOUAL TO YY MULTIPLIED BY TEN? 

DSW 

RECEIVEC 
C7CC AC02 XXXX XXXX CCCX XXXX XXXX 

CSW SHOWS CORRECTABLE WRITE ERROR. 

FRROR 
CONTROL 
C7CC AC03 XXXX XXXX CCCX XXXX YVRR 
RECOVERED READ ERRCR. 
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• ERROR CONTROL IS THE NUMBER OF RETRYS OH THIS RECORD PRIPR TO 
RECOVERY. NUMBER OF RETRYS IS EOUAL TO YY MULtIpLIEO Sy ? E " 

csw 

,, r ~ .»-. RECEIVEC 

C7CC ACC« XXXX XXXX CCCX XXXX xxxx 

OSW SHOWS CORRECTABLE READ ERROR. 

CRRCR 

-.._ CONTROL 

C7CC ACC5 XXXX XXXX CCCX XXXX XYXX 

J"Jf!L 10 B ' CK SP*CE PAST CLEANER, BUT REACHED LCAO PC1NT. ERROR 

ssi's.'i.sr.isat.rw.s.'isjr •«— ™» ; » •«««« 

EXPEC-REC. 
TEO NC. 
REC. REAC 
NC. 
C70O *C«t XXXX XXXX CCCX KXXX XXXX 

RECORD 10 SHOWS WRONG RECORO REAO 

MCTE 
PRINTOUTS PREFfXED BY •£• CAN eE BYPASSEC ONLY THROlirH the 
DIAGNOSTIC MCNITCR -BYPASS ERRCR PRINT- SWUCH OPUCN. 

RTN RTW UNIT 

NC. AODRS NC. 

C7CC ECC1 XXXX XXXX CCCX 

COUBLE INTERRUPT OCCURRED. IREFER TO ERRCR NOTE) 

FNC 
AND 
MCD 
C7CC ECC2 XXXX XXXX CCCX XXXX 

FUNCTION CR MODIFIER MAS ILLEGAL. IREFER TC ERROR NOTE I 

REC. CSW 
NO. 
C7CC EC03 XXXX XXXX CCCX XXXX XXXX 

OSW SHOWS UNCORRECTABLE WRITE ERRCR. (REFER TC ERRCR N0TE1 

REC. CSW 
NO. 
C7C0 ECC4 XXXX XXXX CCCX XXXX XXXX 

DSW SHOWS UNCORRECTABLE REAO ERROR, 100 TRIES CN A CORtFfTAPic gcin 
ERROR OR WRONG RECCRO REAO HAVE FaIieD. .REFER TO ErSoJno", "*° 

C7CC ECC5 XXXX XXXX CCCX 

^looping^^Ir^ er V ror LA n^e, 0R T0 ° L ° NG * PER,0 °' THC PR0GR " 

LAST 
FNC ♦ 
MOO 
C7CC ECC6 XXXX XXXX CCCX XXXX 

LOST INTERRUPT IREFER TO ERRCR NOTE) 

RcC. WO.EXPEC-RECEIVEO 
NO. NC. TEO OATA 
DATA 
C?CC ECC7 XXXX XXXX CCCX XXXX XXXX XXXX XXXX 

OATA READ 010 NCT COMPARE WITH OATA WRITTEN. 

NOTE 

SINCE THE FIRST WORD OF OATA ON ALL RECORCS IS A RECORO 
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^A«^*, THE „I!i RST WT * WCRC CHECKED ftY THE COMPARE ROUTINE IS 
WORD 2. REFERENCE PRINTOUT AC06 FOR RECORO I. 0. PRINTOUT. 

REC. CSW 
NC. 
C7CC ECC8 XXXX XXXX CCCX XXXX XXXX 

NC END OF TABLE INTERRUPT WHEN CHAINTtNG. 

REC. CSW 
NIC. 
C7CC EC09 XXXX XXXX CCCX XXXX XXXX 

CHa!n?ng! ° PERATI0N IWERRUPT AFTER END OF TA*LE INTERRUPT WHEN 

REC. CSW 
NC. 
C7CC ECCA XXXX XXXX CCCX XXXX XXXX 

NO CCMMANO REJECT INTERRUPT WHEN EXPECTEO. 

REC. CSW 
NO. 
C7CC ECCB XXXX XXXX CCCX XXXX XXXX 

WRCNG LENGTH RECCRC CIO NOT OCCUR AS EXPECTEO. 

REC. CSW 
NO. 
C7C0 ECCC XXXX XXXX CCCX XXXX XXXX 

STCRACE PROTECT VIOLATION OIC NOT CCCUR WHEN EXPECTEO. 

REC. KC.EXPEC- WC. 
NO. CT. TEC FOUNO 
taC 
C7C0 ECOO XXXX XXXX CCCX XXXX XXXX XXXX XXXX 

STORAGE PRCTECTEO WC. WAS OESTROYEC eY REAO. 

C7C0 ECCE XXXX XXXX CCCX 

PRCGRAM STOP DIO NOT OCCUR. 

REC. CSW 

C7CC ECCF XXXX XXXX CCCX XXXX XXXX 

WRONG LENGTH RECORC DID NOT OCCUR. 

EXPEC- WD. 
TEC CT. 
WO. RECEIVED 
CT. 
C7C0 EC1C XXXX XXXX CCCX XXXX XXXX 

WCWO COUNT SENSED WAS MOT AS EXPECTEO. 

REC. CSW 
NO. 
C7CC ECU XXXX XXXX CCCX XXXX XXXX 

READING TAPE MARK 010 NOT SET CSW BIT. 

EXPEC-RECEIVEO 
TEC T.M. 
T.M. OATA 
0*TA 
C7CC EC12 XXXX XXXX CCCX XXXX XXXX 

REACING TAPE MARK EROUGHT IN INCORRECT OATA. 

REC. CSW 

C7CC EC13 XXXX XXXX CCCX XXXX XXXX 

COULD NOT CHANGE DENSITY CN 7 TRACK ORIVE. 



REC. CSW 
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Mr ...... — 

f»0C ECU XXXX XXXX cccx xxxx xxxx 

NO LECAt BIT OM AT INTERRUPT. (HFFER TO ERROR NOTE) 

EXFEC- WO. 
TED CT. 
WC. RECEIVEC 
,,,„ CT. 

C7CC EC15 XXXX xxxx cccx xxxx xxxx 

UNABLE TO LOAD WORD COUNTER PROPERLY. 
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ERROR NOTE 



{HE S Iou??NP ^I^ T ?V, T LU ,LL " USt THF PR "RAN TO TERMINATE 
THE ROUTINE THAT CAUSED THE ERROR />N D START THE NEXT 

SECUEMIIAL ROUTINE. (UMLE3S RUNNING IN THE LOOP 80IITINE MODE 



COMMENTS 

ON ANY REAO OPE 
8A» PARITY COMI 
CHANNEL ITSELF. 
THIS ERROR WILL 
ER0UGH1 OUT OF 
INTERNAL ERROR 
THE ERROR WAIT 
TROUBLE WILL BE 
RFAD PRINTOUT. 
OF PRINTOUTS IS 



RATION PERFORMED BY THIS PROGRAM., THE POSSIBILITY FXKLK nt 

MG ,F B ?H,J H rrrV P f' "* T ° *" P '«UP OR DR^POU T ' W TH IN THE 

IF THIS OCCURS, THE WORD WILL ENTER MEMORY WITH BAD PARITY 
«2I„ BE CISC0VER E0 UNTIL SOME TINE LATER, WHEN THE WORO IS 
MEMORY FOR COMPARISON WITH DATA EXPECTED AT THIS TlMF AN 

NTERRUPT WILL OCCUR, BUT AM INDICATOR WLL BE SET TO BYPASS 
'* l» E ,^y GH ° SUC * 0fi "™' ^E ONLY IND CATION OF "is 

THI 'pOSsJ 6 ?rrlv C ?Mnf^ ?"* " ,TH N ° "CEDING WCCV«*BLE 
THIS POSSIBILITY SHOULD BE KEPT IN MIND WHEN EXAMINATION 



REALIZED THEREFORE THAT "rfCOr'o ™l> Vsl£ IDER^V ySb^OGR AM fWnSa 
?^ C « 0U T A Jn C E. TH£ REK " N,MG DATA IS h0 "« 2 "«OUGH D t« V NU«BER G F\ M 0R0S 8 USE n D T 3Y 

NOTE 

iT I^'t^J^ l S F ° UND T ° 6E !N ERR0R ' fHE "PECTEC 
I.C. IS SET EQUAL TO THE RECEIVEC I.D. IN AN EFFORT TO 

5* C t»I PR ? GRAM U T0 THE ACTUAL RECORD NUMUER IT IS aJ CN 

PROGRAM E FV F M H r o'rr L D ^ LOl/ R£C0V£R * A «° CONTINUATION OF THE 

^roSa^e't^ouble^" 05 '" int " m «"" T ^ "> PR " DUE TO 

5.1 PROGRAM DESCRIPTION 

J™,t?!?, GNET,C TAPE FUNCT '0N TEST CONSISTS OF A MAGNETIC TAPE MONITOR 

!Emwu ?"!" ° F C ° MM0N " AGNET,C IAPE su «~»«" C *k£" iSlls OF 

ORIENTEo! F,VE ,MP0RTAWI TA6lES * R0UM0 * H »™ ALL ROUTINES ARE 

DST AND OST 1 - MACNETIC TAPE DEVICE STATUS TABLE. 

ONE FOR FACH TAPE DRIVE. 
COMMON - CONTAINS COMMON CONSTANTS AND COMMON ROUTINE CALLS 
CRCTB AND DRITB - CONTAINS -CONSTANTS' AND .RETURNS' UNIm!" 

10 EACH DRIVE. 



TEST ROUTINES 



CEC HEX 
RTK = RTN » 



OESCR.IPTICN 
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INHTIAL CONDITIONS CHECK 

1. REWIND 

2. CHECK FCR LOAD POINT 

3. CHECK FOR BEADY. 

WRIIE-BACK.S-PACE-REAO SCO RECORDS CR TO END OF TAPE USING 20 WOS 
PER RfeCORO AND ALL ONES PATTERN. * 



7 

e. 

9 

IC 
11 
12 

13 



14 

15 
It 



17 



7 

e 

A 

e 
c 



F 
IC 



11 



Si'Hul"!!!; STARTING AT LOAO POINT WRITE SCO RECORDS <* TO 
ECT, REWINO, READ ALL RECORDS WRITTEN AND CHECK OATA. 

each'Secor 3 d. THROUGH 6 H4VE ™ E,R RECOR0 ,e AS THE F,RST W0RD 0F 

20 WORDS PER RECORD USING FLOATING ZERO PATTERN. 
20 WORDS FER RECCRD USING FLOATING ONES PATTERN 
Cfi WOROS PER RECCRO USING ALL ZEROS PATTERN. 
C8 WORDS PER RECCRO USING ALTERNATE CNES PATTERN. 

SPECIAL TESTS 

WRITE USING CHAINING, READ BACK AND CHECK DATA. 

CAUSE COMMAND REJECT BV ISSUING A CCMMANO TO A BUSY DRIVE 

CAUSE COMMAND REJECT BY ISSUING A COMMAND tS THE UNSELEC^EO 

riull r?^^ REJECT 6V BACKSPACING INTO LOAD POINT. 
CAUSE COMMAND REJCCI BY REWINOING WHEN AT LOAD POINT. 
FCRCE SPV STOP BY READING INTO STORAGE PRCTECTEC LOCATIONS 
ALSO CHECK FOR WRONG LENGTH RECORD. ^' tL, t«' LOCATIONS. 
FORCE PROGRAM STOP BY ISSUING A SENSE WITH BIT 12 TO A 

^D N 'c 6 Out,i^-L0:^NG^ ECK * R ° NG """ H REC °-« ™>™* 

Ksyc^s? s-: b ss c B ^^ A c^ G P ^ £ E Rr?\ c c s ADyo N ANT^TEPPE D 

"{RACrF^^L^E^STl *"*' °«" B ™ °"' AN^^N^^Or 60 * 

c t SntS!1! s , , m ? , K,?e f .n*S i ,d! cw,> is the * fCCRC ,D &ND eCES » or 

1. WRITE ONE RECCRD OF 2C WORDS AT 556 BPI, Z BYTES PES 

rt k'^?t!' R ' IY - BACKSPACE, READ THE RECORD AND 
tntlK ?Ht DATA* 

2. WRITE ONE RECORD OF 20 WOROS AT 556 BPI, 2 BYTES PER 
CHEcYthE E W?a PARITV ' BACKSPACE ' RfA ° '« «ECORO " C 

3. WRITE ONE RECOKD OF 20 WORDS AT 556 BPI, 3 BYTES PFR 
C^c/tHE C dStA P ! R ' TV - BACKSPACE ' REAn T « RECORD AND 

4. WRITE ONE RECORD CF 2C WORDS AT 556 BPI, 3 BYTES PER 

c^c D k A ?h°e E ^a. PAR,TY - " CKSP " E - «" ™ £1™ 11* 

" IJSK^cS/fS D A S T W 2 ^R B T P ipE 3 DA B ri E E S RR P E R R .^°C0^I^ 
. i a PE c °i AGN0STIC ERRCR AN0 WR0 ^ LENGTH RECORD. C0, * PLeTE ' 
6. WHITE ONE RECORC CF 20 WORDS AT 200 BPI, 3 BYTES PFR 

C^CK A THE E D V A?a: AR,TV - BACKSPaCE ' RE " IhE R E C0RD P AN 6 
F-ORCE WWONG LENGTH RFCORO BY READING FEWER WORDS THAN lcdc 
"C0CNT T ER M : CHECK FCR PRCPCR L0AD ' N6 A ^ STFPP^NG 0S OF TH ?HE W WDRD 



5.3 CCMMCN SUBROUTINES 

EACH SUBROUTINE ASSUMES THAT INDEX REGISTER 1 CONTAINS THF BA« Ann« 

oorI? E " TABL£ » !*•>" REGISTER 2 CONTAINS THF BASE AOBREsI OF THE 

PRCPER DST TABLE, AND XR3 THE BASE ADDRESS OF THE COMMON TABLe! 
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NAME 



ESP 



CKAVl 



CKeSV 



CCMCC 



CCMOl 



CALL 

ESI 3 1* 
USE- BACKSPACE ONE TAPE RECCRD 

6SI 3 41 
USE- CHECKS THE DRIVE AVAILA&LE SWITCh FCR BCTH DRIVES. IF EITHER 

SWITCH IS ECUAL TO ONE THE ROUTINE LOOPS THROUGH THE DIAGNOSTIC 
HCNITOR. THE ROUTINE RtlLRNS TO THE CALLING ROUTINE WHEN BOTH 
ORIVE AVAILABLE SWITCHES ARE EOOAL TO ZERO. 

BSI 3 38 

USE- CHECKS THE DRIVE BUSY SWITCH FOR BOTH DRIVES. IF EITHER SWITCH IS 
EOUAL TO ONE THE ROUTINE LOOPS THRC THE MONITOR. THE ROUTINE 
CCUNTS EACH MONITOR REENTRY ANO IF THE COUNT EXCEFBS A MAXIMUM, 
LOST INTERRUPT IS PHINTED. THE ROUTINE RETURNS TC THE CALLING 
ROUTINE WHEN BOTH SWITCHES ARE EOUAL TO 7ER0. 

BSI 3 5C 
USE- A COMMON S6T OP ROUTINE WHICH- 

1. BRANCHES TO CKeSY ROUTINE. 

2. SETS THE ORIVE BUSY SWITCH TO ONE. 

3. BRANCHES TO CKAVL ROUTINE. 

4. SETS THE ORIVE AVAIL. SWITCH TO ONE. 

5. SETS THE HEXADECIMAL CONSTANT CF 4014 AS THE WORD COUNT IN 
THE 1/6 AREA. 

t. SETS THE OECIMAL CONSTANT CF 20 AS THE WORC COUNT IN OST 
TAeLE POSITION 15. 

SETS THE AREA COCE ANO ORIVE SELECTION CONSTANT FOR THE 
INTERRUPT ROUTINES USE. 
RETURNS TO THE CALLING ROUTINE. 



7. 



BSI 3 
USE- 



e. 

53 



t. 
CCHC3 BSI 3 73 



A COMMON SET UP ROUTINE WHICH- 
1. BRANCHES TO CKAVL ROUTINE. 

SETS DRIVE AVAIL. SW. TO ONE 

SETS THE HEXADECIMAL CONSTANT OF 4014 AS THE WORD COUNT IN 

THE I/C AREA. 

SETS THE DECIMAL CONSTANT OF 20 AS THE WORD COUNT IN DST 

TABLE POSITION 15. 

SETS THE AREA COCE ANC ORIVE SELECTION CONSTANT FOR USE BY 

THE INTERRUPT ROUTINE. 

RETURNS TO THE CALLING ROUTINE. 



2. 

3. 

4. 
5. 



DESIRED FUNCTION AND MODIFIER MUST BE IN THE A REG. 
USE- A COMMON SET OP ROUTINE WHICH- 



1. 

2. 

3. 



STORES FUNCTION AND MODIFIER IN THE DST TABLE AT POSITIONS 2 

ANO 3. 

BUILDS THE ICCC CONTROL WORD. 

GETS THE WORD COUNT FRCM DST TABLE POSITION 15, ADDS A NO END 

OF TABLE INTERRUPT BIT AND SETS IT IN THE I/O AREA. 

SETS THE RECCRD COUNT FROM DST TABLE POSITION 10 AS THE FIRST 

DATA WORD IN THE I/O AREA. 

SETS THE DRIVE BUSY SWITCW TO ONE. 

SETS THE AHEA COCE ANC DRIVE SELECTION CONSTANT FCR USE BY 

THE INTERRUPT ROUTINE. 

ISSUES THE COMMAND TO THE TAPE ORIVE. 

EXITS TO THE DIAGNOSTIC MONITOR. 



CSW 



ERA 



EXIT 



BSI 3 32 

USE- SENSES DSW ANO PLACES DSW INTO THE ACCUMULATOR 

BSI 3 29 
USE- TAPE ERASE 

BSI 3 76 

, CLEARS DRIVE AVAILABLE SWITCH AND RETURNS TC KT MCN. 



CATE 28FEB66 U4)N0V66 
FC NC. "U5120 415233 
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MER 



MIC 



MPCC 



MRSC 



MTI 



RCT 



RWC 

STAC 

STPST 

WRTM 
WTM 



CATE 

EC NO. 



BSI J 11 

CC MESSAGE 10 
CC LINE * AND FORM - 
USE- SETS UP TAELE TO BE PRINTED ANC CALLS CN MONITOR ERRCR ROUTINE. 

BSI 3 C8 

CC MESSAGE ID 
CC LINE * AND FORM = 
USE- SETS UP TABLE TO BE PRINTEO ANO CALLS CN MCWI TOR LOC ROUTINE. 

BSI 3 44 
USE- THIS ROUTINE OBTAINS THE PATTERN! WOR0 FROM THE PROPER DST TABLE TO 
6C COMPARED WITH THE DATA READ. THE STARTINC LOCATION IS SPECIFIED 
BY THE I/C ADDRESS OBTAINED FRCM THE DST TABLE. THE ROUTINE 
CONTINUES UNTIL THE NUMBER OF WORCS SPECIFIEO IN THF DST WORC 
COUNT HAVE BEEN COMPARED. IF A NONCOMPARE IS FOUND, THE ERROR 
ROUTINE (MER) IS ENTERED. 

BSI 3 47 

CC PATTERN WORC 

USE " THE CULiSgSeSSJw^* ^ ™ E I/C " EA T ° ™ E PATTERN SPECIFIED BY 

INTERRUPT ROUTINE 
USE- SENSES THE DSW, FINDS I/C ROUTINE THAT IMTIATEO I/C OPERATION AND 
SETS UP TO RETURN TO THE OPERATION COMPLETE SECTION OF THE 

cle"s E dr!ve bSsy'swJtch! SENSES AN ° SAVES ™ E ' ,0R0 C00NTER AND 

BSI 3 20 

CC FORMAT (C-2) 

C * FLOATING ZER.CS 

1 « FLOA.TING ONES 

2 « ALL ONES, ALL ZEROS OR ALTERNATING ONES 

USE- READ MAGNETIC TAPE ROUTINE. NUMBER CF WCRDS TC BE READ ANO 

LOCATION OF INPUT AREA APE TAKEN FRCM THE DST TAeLE. AFTER READ 
IS CCMFLETE, THE RTN ENTRS RTN MRCO TO CHECK OATA READ. 

BSI 3 17 
USE- REWINDS THE UNIT SPECIFIEO BY INDEX REGISTER I. 

BSI 3 SC 
USE- SETS CR SELECTION FOR USE BY THE INTERRUPT ROUTINE. 

BSI 3 35 

CC ENTRY TO SET 

USE " [l S! [! t "r« ltI W L0CAT,0N SPECIFIEO IN THE CALLING SEQUENCE. 

JtcZ ■ 52«e °twc ^."?^ ,S °° NE eV W * V " ™ E "AGNOSTIC MONITOR'S 
MLSCF TABLE. THE ROUTINE USES A PUSH UP ENTRY TECHNIOUE. 

BSI 3 23 
USE- WRITES A TAPE RECORC. THE LOCATION OF THE OUTPUT AREA ANC NUMBER 
OF WORCS TO e E WRITTEN ARE TAKEN FRCM THE PROPER DST TABLE. 

BSI 3 26 

USE- A TAPE MARK IS WRITTEN ON THE UNIT SPECIFIED BY INDEX REGISTER. 1. 



28 C EB66 
<»15120 



04N0V66 
< »15233 
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IPM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2i;G0 FUNCTION TEST 
6 APPENDIX 



6.1 EDIT PROCEDURE 



PART NO. 2196372 
PACE 6 

2'400 FUNCTION 



DDEF 



STANDS FCR DEVICE DEFINITION EDIT FIELD. IT INCLUDES: I. THE INTERRUPT LEVEL ASSOCIATED WITH THIS DEVICE (USE HEX NOTAHON 00-17) 

2. THE ILSW BIT POSITION ASSOCIATED WITH THIS DEVICE (USE HEX NOTATION 0-F) ' 

3. THE CHANNEL ASSIGNED TO THIS DEVICE (0-8). IF THIS IS A DPC DEVICE,' PUNCH AN *F" IN THE CARD COLUMN. 



THE LAST EDIT CARD IS THE * END EDIT CARD". THE INFORMATION IN THIS CARD INCLUDES: 



3 
o 
o 

CC 

a. 



jCOLUMijJIJjA 
E 



CARD 



END 



UilllAlll£ 



O 

UJ 

UJ 

i/> cc 

UJ 
o CO 

<£ =3 

o z 



LU 

CC 
O I- 

■z. 

CC UJ 
UJ 
C3 h- 



ENTRY 1 

DDEF 



ei _| 

UJ UJ 

I- => 



o|7|o|o^f|f|f|f^ III^IIIl^iII^IMISI 



ENTRY 2 



o 

co co 

> o o 

£ 22 

o i- F 
u, 
o i o\r^ 

cc co in 

UJ ^ 

mo o — 
o o 
o o 
o o 



§2 



ENTRY 3 



UJ 



CO CO 

o o 

u. 

o i om»^ 

a: co ii 

uj m 

mo o — 

2: < 00 

Z3 CC OO 

Zh OO 



1. AN E" IN COLUMN 1. 

2. THE PID FOR THIS PROGRAM (COL. 2-3). 

3. A TERMINATOR WORD OF *FFFF" (COL. 7-10). 



36 



T\ 



EDI 



^6 



J^i 



K^r 



mrra 




h£ 



61 



m 



Knm 



71 



?sl 



h» 



"*3 



31 



^ 



T 



nr 



■^ 



£3 



1 



T3* 



B 



Jiv 



£3 



M 






E3 



^r 



i^ 






jt£ 



f 






jS 



^J 



S 



£* 



^ 



CARD MUST CONTAIN THE FULL 3 ENTRIES. IF YOUR SYSTEM HAS ONLY ONE DRIVE, ENTER *FFFF" FOR DRIVE ONE AND THE CORRECT ENTRY FOR DRIVE 
CARD END IS THE" END EDIT CARD". PUNCH EXACTLY AS IS SHOWN. 
N0TF: ONLY TWO DRIVES MAY BE RUN AT A TIME WITH THIS PROGRAM. 



S 

*£ 



H 



DATE 28 FEB 66 
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*f NOV 66 
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07FF 



ORG 



♦&2047 



012C 







012D 







012E 







012F 







0130 







0131 







0132 







0133 







07FF 





0700 


0800 





0000 


0801 





0000 


0802 





0000 


0803 





0000 


0804 





0000 


0805 





0000 


0806 


1 


08AC 


0807 


1 


08AC 


0808 


1 


08CD 


0809 





0000 


080A 





0000 


0806 





0000 


080C 





0000 


0800 





0000 


080E 





FFFF 


080F 


1 


OFFA 


0810 





0000 


0811 





0000 


0812 





0000 


0813 





0000 


0814 





0000 


0815 





0000 


0816 





0000 


0817 





0000 



0818 
0819 
081A 
08 IB 
081C 
081D 
081F 1 

0821 

0822 

0823 

0824 1 
0826 
0827 
0828 
0829 
082 A 
082B 
082 C 
082D 
082F 
0830 
0832 
0834 



0000 
0000 
0000 
693F 
6A40 
6500 
6600 
1010 
D0F5 
C05C 
F400 
D05A 
0858 
C058 
F124 
D056 
0854 
D04C 
C400 
1805 
4C04 
6500 
6600 



* 

* 

* 

* 

BEGIN 

START 

END 

LOG 

ERROR 

REQDV 

RELDV 

CKCR 

PID 

RID 

RAD 

SWO 

SHI 

SU2 

SW3 

IPA 

LPA 

EPA 

MLSCF 



TERM 



EQUATE TABLES 



EDIT 

EDITl 

EDIT2 

* *** 

* 
* 

* *** 
INTSW 
MTIO 
MTI 



0909 
0956 



08CC 



08CC 

0836 
08D6 
0939 



EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

*** 



**« 

DC 

DC 

DC 

STX 

STX 

LDX 

LDX 

SLA 

STO 

LD 

EOR 

STO 

XIO 

LD 

EOR 

STO 

XIO 

STO 

LD 

SRA 

BSC 

LDX 

LDX 



300 

BEGINS1 
STARTE1 
ENDf.l 
L0G£1 
ERR0RE1 
REQDVK1 
RELDVtl 
/0700 







MTRST 
MTRST 
MTEND 






/FFFF 
PEND 








«** *** *** 



PROG ID 

ROUTINE NUMBER 
ROUTINE ADRS 
SW FNC 00 

01 

10 

11 
INIT ADRS 
LOOP ADRS 
END PROG ADRS 
LOST INT VEC 
INTERRUPT ENTRY ONLY 
INTERRUPT ENTRY ONLY 
MAIN LINE ENTRY ONLY 
MAIN LINE ENTRY ONLY 

HIGH LIMIT 



INTR LVL, ILSW, CH 
NUMBER TRACKS DR 
NUMBER TRACKS DR 1 

*** *** *** 4** *** *** 



THIS IS THE INTERRUPT RTN 



*** *** *#* 




1 MTISS1 

2 MTISS3 
LI DR1TB 
L2 DST1 

16 

INTSW 

MTDSW 

L ACMT 

MTDSWE1 
MTDSW 
MTDSW&1 
1 36 

MTDSWS1 

MTDSW 

MTIX1 

L ACMT 
5 

L MTICE 

LI DROTB 

L2 DSTO 



*** *** *** *** *** *** 
NTRPT PENDING SW 
AREA CODE STORAGE 

SAVE INDEX REGS 

SET I XING = DR 1 

* 

CLEAR A REG 

RESET NTRPT SW 

BUILD SENSE OSW 

SAVE 

SENSE-NON RESET ABLE 



SENSE-RESETABLE 

SAVE 

GET DR SELECTION 

BRANCH = DR 
SET IXING TO DR 



IE 



80700020 
B0700030 
80700040 
80700050 
80700060 
80700070 
80700090 
80700090 
30700100 
80700110 
80700120 
90700130 
80700140 
S07C0150 
90700160 
80700170 
90700190 
80700190 
80700200 
80700210 
80700220 
80700230 
807C0240 
90700250 
80700260 
80700270 
807C0280 
80700290 
30700300 
30700310 
90700320 
907C0330 
90700340 
80700350 
90700360 
90700370 
90700390 
80700390 
80700400 
90700410 
80700420 
80700430 
3070044-0 
80700450 
80700460 
80700470 
80700490 
507004O0 
80700500 
80700510 
30700520 
80700530 
80700540 
80700550 
80700560 
80700570 
80700580 
90700590 
90700600 
90700610 
30700620 
80700630 
90700640 
80700650 
80700660 
80700670 
30700630 
80700690 



0836 





C042 




MTIC 


LD 




MTIX1 


GET SENSE WD 


0837 





D208 






STO 


2 


8 


SET IN OST 


0838 





E041 






AND 




MTIX2 


CK FOR LEGAL INT 


0839 


1 


4C18 


0873 


* 
* 
* 
MTIAO 


BSC 


L 


MTIAC.&- 


BRANCH IF ILLEGAL 














SENS 


E WD CTR 


083B 





C045 




LD 




MTDSWE1 




08 3C 





F042 






EOR 




SWC 




083D 





D043 






STO 




MTDSWE1 




083E 





0841 






XIO 




MTDSW 


ISSUE SENSE 


083F 





D205 




£ 


STO 


2 


5 


SAVE WD CT 










* 
* 

MTIT 






DETERMINE MLSCF ENTRY 


0840 





C202 




LD 


2 


2 


GET FUNCTION 


0841 





1005 






SLA 




5 




0842 





180D 






SRA 




13 




0843 





DOOA 






STO 




MTIC1E.1 


SAVE 


0844 





9124 






S 


1 


36 


SUB ONE 


0845 





4818 






BSC 




£- 


WAS FNC # 1 


0846 





7019 






MDX 




SPRT1 


YES 


0847 


1 


9400 


0975 




S 


L 


MTTwOtl 


SUB 3 


0849 





4818 






BSC 




t- 


WAS FNC 4 


084A 





7C1F 






MOX 




MTICL 


YES 


084B 





1010 






SLA 




16 


CLEAR FNC 


084C 





D202 




* 
* 


STO 


2 


2 

SET 


MLSCF ENTRY 


0840 





6700 


0000 


MTIC1 


LDX 


L3 





IX 3 # FNC 


084F 


1 


C700 


0882 




LD 


L3 


FNCTB 


GET ENTRY 


0851 





D003 




MTIR1 


STO 




MTIR 


SAVE 


0852 


1 


6700 


0974 


* 


LDX 


L3 


MTTWO 


IX3#ADRS COMMON TBL 


0854 





4357 




BSI 


3 


87 


GO SET MLSCF ENTRY 


0855 





0000 




MTIR 


DC 









0856 





1010 






SLA 




16 




0857 





D21A 






STO 


2 


26 


SET IN DR BUSY SW 


0858 





D073 






STO 




ACMT 


CLEAR DR SEL 


0859 





DOAF 






STO 




MLSCF 


CLEAR LOST INT VEC 


085A 





6500 


0000 


MTIS 


LDX 


LI 





RESTORE IX REGS 


08 5C 





6600 


0000 




LDX 


L2 







085E 


1 


4C80 


081A 


* 


BSC 


I 


MTI 


EXIT 










* 






FUNCTION WAS ONE 


0860 


1 


C400 


09C4 


SPRT1 


LD 


L 


SPFNCE1 


GET 0200 


0862 





0202 






STO 


2 


2 


SET FNC # 2 


0863 





C015 






LD 




MTIX1 


GET SENSE WORD 


0864 





0219 






STO 


2 


25 


SET IN DST 


0865 





1009 






SLA 




9 


CHECK OP COMPLETE 


0866 


1 


4C28 


0840 




BSC 


L 


MTIT,Z£ 




0868 





DOAF 






STO 




INTSW 




0869 





70F0 




* 
* 


MDX 




MTIS 
















FUNCTION FOUR ENTRY 


086A 





D202 




MTICL 


STO 


2 


2 


CLEAR FNC 


086B 





C203 






LD 


2 


3 


GET MODIFIER 


086C 





EOOE 






AND 




MTIX3 




086D 





D001 






STO 




MTIEIS1 


SAVE 


086E 





6700 


0000 


MTIEl 


LDX 


L3 





IX 3 # MOD 


0870 


1 


C700 


088A 




LD 


L3 


FNCCL 


GET ENTRY 


0872 





7C0E 




* 
* 
* 


MDX 




MTIRl 

HAO 


AN ILLEGAL INTRRUPT 



SRC 



IX 



30700700 

80700710 

30700720 

80700730 

30700740 

80700750 

30700760 

80700770 

80700780 

80700790 

80700800 

80700910 

80700820 

807C0830 

80700840 

80700950 

80700860 

80700870 

80700880 

80700890 

30700900 

30700910 

30700920 

80700930 

80700940 

80700950 

80700960 

80700970 

80700980 

80700990 

80701000 

80701010 

8C701020 

80701030 

80701040 

807010 50 

80701060 

80701070 

807C1080 

80701090 

30701100 

80701110 

90701120 

80701130 

30701140 

30701150 

80701160 

80701170 

80701180 

80701190 

90701200 

80701210 

80701220 

80701230 

80701240 

80701250 

80701260 

80701270 

30701280 

30701290 

80701300 

80701310 

80701320 

80701330 

30701340 

80701350 

80701360 

80701370 



DATE 


28FEB66 


01JUL66 


15MAY67 


14N0V69 


30JAN70 


EC NO. 


415120 


415178 


411731 


431319 


431319A 
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0873 


COOS 


MTIAC 


LD 


MTIX4 


GET ENTRY 




80701380 






0874 


700C 


* 


MOX 


MTIR1 






80701390 
80701400 










* 




RETURN TO PRINT ON ILLEGAL 




80701410 










* 




INTERRUPT 




80701420 










* 










80701430 






0875 


430B 


MTIAE 


BSI 


3 11 


GO TO PRINT VIA MER 


SRC 


80701440 






0876 


E014 




DC 


/E014 


ID 14 




80701450 






0877 


0002 




DC 


/0002 


LINE - FORM 2 




80701460 






0878 


7020 


* 


MDX 


DBIN1 


GO TO RTN EXIT 




80701470 
80701480 










* 




CONSTANTS 




80701490 










* 










80701500 






0879 


0000 


MTIXl 


DC 





SENSE WO STORAGE 




80701510 






087A 


3040 


MTIX2 


DC 


/3040 


LEGAL INT CK 




80701520 






087B 


0007 


MTIX3 


DC 


/0007 


MODIFIER SAVE 




80701530 






087C 1 


0875 


MTIX4 


DC 


MTIAE 






80701540 






087 E 


0000 




BSS 


E 






80701550 






087E 


0000 


SELSH 


DC 









80701560 






087F 


0011 


SWC 


DC 


/0011 


SENSE WD CTR MOD 




80701570 






0880 


0700 


MTOSH 


DC 


/0700 


SENSE IOCC 




80701580 






0881 


0000 


* 


DC 









80701590 
80701600 










* 




FUNCTION TRANSFER VECTORS 




80701610 










* 










80701620 






0882 1 


0892 


FNCTB 


DC 


DBINT 


000 # DBL INTRPT 




80701630 






0883 1 


0860 




DC 


SPRT1 


001 # EXPECT 2 INTRS 




80701640 






0884 1 


089A 




DC 


SPINT 


010 # SPECIAL RETURN 




80701650 






0885 1 


0896 




DC 


MTIER 


Oil # ERROR 




80701660 






0886 1 


0896 




DC 


MTIER 


100 # ERROR 




80701670 






0887 1 


0A73 




DC 


WRTI 


101 # INIT WRT 




80701680 






0888 1 


0A08 




DC 


RDTI2 


110 # INIT RD 




80701690 






0889 1 


0896 


* 


DC 


MTIER 


111 # ERROR 




80701700 
80701710 










* 




MODIFIER TRANSFER VECTORS 




80701720 










* 










80701730 






088A 1 


0896 


FNCCL 


DC 


MTIER 


000 # ERROR 




80701740 






088 B 1 


0AC3 




DC 


WTMAB 


001 # WRT TP MRK 




80701750 






088C 1 


0AB8 




DC 


ERAB 


010 # ERASE 




80701760 






0880 1 


0B71 




DC 


BSPI2 


Oil # BSP 




80701770 






088E 1 


OB 8 A 




DC 


RWDIR 


100 # REWINO 




80701780 






088F 1 


0896 




DC 


MTIER 


101 # ERROR 




80701790 






0890 1 


0896 




DC 


MTIER 


110 # ERROR 




80701800 






0891 1 


0896 


* 


DC 


MTIER 


111 # ERROR 




80701810 
80701820 










* 




HAD A DOUBLE INTERRUPT 




80701830 










* 










80701840 






0892 


430B 


OBI NT 


BSI 


3 11 


GO TO PRINT VIA MER 


SRC 


80701850 






0893 


E001 




DC 


/EOOl 


ID 01 




80701860 






0894 


0009 




DC 


/0009 


LINE FORM 9 




80701870 






089 5 


7003 


* 


MDX 


DBIN1 


GO TO RTN EXIT 




80701880 
80701890 










* 




FUNCTION OR MODIFIER WRONG 




80701900 










* 










80701910 






0896 


430B 


MTIER 


BSI 


3 11 


GO TO PRINT VIA MER 


SRC 


80701920 






0897 


E002 




DC 


/E002 


ID 02 




80701930 






0898 


0009 




DC 


/0009 


LINE FORM 9 




80701940 






0899 


434C 


OBINl 

* 


BSI 


3 76 


GO TO RTN EXIT 




80701950 
80701960 










* 




SPECIAL RTN RUNNING 




80701970 










* 










80701980 






089A 


C21C 


SPINT 


LD 


2 28 


GET RTN NUMBER 




80701990 






089B 


8004 




A 


TAG02 


ADD TABLE ADDRESS LESS 7 


80702000 






089C 


0002 




STO 


SPIAB+1 


PLACE IN BRANCH INSTR. 


80702010 










* 










80702 020 










* 










80702030 










* 










80702040 






0890 


412E 




BSI 


1 46 


SET IX 3 


SRC 


80702050 




DATE 


28FEB66 01JUL66 


15MAY67 


14N0V69 


30JAN70 




PROG ID 


0807-1 


EC NO. 


415120 415178 


411731 


431319 


431319A 




PAGE 


2 



DATE 
EC NO. 



089E 





4C80 


0000 


SPI AB 


BSC 


I 


*-* 


GO TO RETURN 


80702 060 












* 












80702070 












* 








TABLE 


80702080 












* 












80702090 




08A0 


1 


089A 




TAG02 


DC 




*-7 


TABLE ADDRESS LESS 7 


80702100 




08A1 


1 


0E70 




SPITB 


DC 




F07IR 


ROUTINE 7 


80702110 




08A2 


1 


OEBO 








DC 




F08IR 


8 


80702120 




08A3 


1 


OEBO 








DC 




F08IR 


9 


80702130 




08A4 


1 


0896 








DC 




MTIER 


10 


80702140 




08A5 


1 


OEBO 








DC 




F08IR 


11 


80702150 




08A6 


1 


OEFO 








DC 




FOEIR 


12 


80702160 




08A7 


1 


0F3E 








DC 




FOFIR 


13 


80702170 




08A8 


1 


0F73 








DC 




F10IR 


14 


80702180 




08A9 


1 


0896 








DC 




MTIER 


15 


80702190 




08AA 


1 


0FE3 








DC 




F12IR 


16 


80702200 




08AB 


1 


OF 73 








DC 




F10IR 


17 


80702210 












* 


*** 


*** 


*** 


*** *** 


*** *** *** *** *** *** 


80702220 












* 












80702230 












* 








INITIALIZATION ROUTINE 


80702240 












* 












80702250 












* 


*** 


*** 


*** 


*** *** 


*** *** *** *** *** *** 


80702260 




08AC 





0000 




MTRST 


DC 







SE 


80702270 




08AD 





1010 








SLA 




16 


clear dst tasles 


80702280 




08AE 





633A 








LDX 


3 


58 




80702290 




08AF 


1 


D700 


0938 


MONOO 


STO 


L3 


DSTO-1 




80702300 




08B1 





73FF 








MDX 


3 


-1 




80702310 




08B2 





70FC 




* 
* 
* 




MDX 




MONOO 

SET 


NECESSARY DST VALUES 


80702320 
80702330 
80702340 
80702350 




08B3 


1 


6780 


0816 






LDX 


13 


EDIT1 


1X3 # NO TRACKS/DR 


80702360 




08B5 


1 


6F00 


0939 






STX 


L3 


DSTO 


SET NO TRACKS /OR 


80702370 




08B7 


1 


C700 


08CA 






LD 


L3 


MONXC 


EXPECTED TM DATA 


80702380 




08B9 





D039 








STO 




DR0TB629 


SET FOR OR 


80702390 




08BA 


1 


6780 


0817 






LDX 


13 


EDIT2 


1X3 # NO TRACKS/DR 1 


807Q2400 




08BC 


1 


6F00 


0956 






STX 


L3 


DST1 


SET NO TRACKS/ DR 1 


80702410 




08BE 


1 


C700 


08CA 






LD 


L3 


MONXC 


EXPECTED TM DATA 


80702420 




08C0 





0065 








STO 




DR1TB629 


' SET FOR DR 1 


80702430 




08C1 





1010 








SLA 




16 


ZERO ACCUM 


80702440 




08C2 





DOBB 








STO 




SELSW 


CLEAR SEL SW 


80702450 




08C3 





0008 








STO 




ACMT 


CLEAR OR SEL 


80702460 




08C4 


1 


6500 


09EC 






LDX 


LI 


MON03 


SET RETURN 


80702470 




08C6 


1 


6D00 


0809 






STX 


LI 


MLSCF 




807024 80 




08C8 


1 


4C80 


08AC 






BSC 


I 


MTRST 


EXIT SX 


8070 2490 




08CA 





1300 




MONXC 


DC 




/1300 


9 TRACK TM 


80702500 




08CB 





3C00 








DC 




/3C00 


7 TRACK TM 


80702510 




08CC 





0000 




ACMT 


DC 







AREA CODE 


80702520 












* 


*** 


*** 


*** 


*** *** 


*** *** »** *** *** **** 


80702530 












* 












80702540 












* 








ENC 


1 PROGRAM ROUTINE 


80702550 












* 












80702560 












* 


*** 


*** 


*** 


*** *** 


*** *** **t *** **♦ **** 


80702570 




08CD 





0000 




MTEND 


DC 







SE 


80702580 




08CE 


1 


4400 


0C1C 


* 
* 




BSI 


L 


SETX4 


SET IXING SRC 


80702590 
80702600 
80702610 




0800 





4351 








BSI 


3 


81 


GO RELEASE DEVICE SRC 


80702620 




0801 


1 


4C80 


08CD 






BSC 


I 


MTEND 


SX 


80702630 












* 


*** 


*** 


*** 


*** *** 


*«* *»* **# *** *** **** 


80702640 












* 












80702650 












* 








CALL ON MONITOR FOR EDIT 


80702660 












* 












90702670 












* 


*** 


*** 


*** 


*** *** 


*** *** *** *** **« **** 


80702680 












It********************************************* 


80702690 




08D3 





4480 


012C 


MTBEG 


BSI 


I 


BEGIN 


* 


80702700 




08D5 


1 


07FF 








DC 




PID 


* 


80702710 












********************************************** 


80702720 












* 


*** 


*** 


*** 


*** *** 


*** *** *** *** *** **** 
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14N0V69 30JAN70 
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* 












80702740 








* 






DRIVE TABLE OF CONSTANTS 


80702750 








* 






ANC 


1 RETURNS 




80702760 








* 












80702770 








* 


*** 


*** 


*** «** *** 


*** *** ♦** *** *** 


**** 


80702780 






0806 FFOO 


DROTB 


DC 


/FFOO 


DRO LOOP RTN SAVE 





80702790 






08 D7 0000 






DC 





WRT RTN RETURN 


1 


80702800 






0808 0000 






DC 





ERA RTN RETURN 


2 


80702810 






0809 0402 






DC 


/0402 


ERA MOO £ FNC 


3 


80702820 






08DA 0000 






DC 





WR TM RTN RETURN 


4 


80702830 






080B 0401 






DC 


/0401 


HR TM FNC £ MOD 


5 


80702840 






080C 0000 






DC 





READ RTN RETURN 


6 


80702850 






080D 0000 






DC 





READ RETRY SW 


7 


80702860 






080E 0000 






DC 





BSP RTN RETURN 


8 


80702870 






08 DF 040B 






DC 


/040B 


BSP FNC £ MOD 


9 


80702880 






08E0 0000 






DC 





RWD RTN RETURN 


10 


80702890 






08 El 0404 






DC 


/0404 


RWD FNC £ MOD 


11 


80702900 






08E2 0000 






DC 





SENSE RTN RETURN 


12 


80702910 






08E3 0700 






DC 


/0700 


SENSE FNC £ MOD 


13 


80702920 






08E4 0000 






DC 





STAC RTN RETURN 


14 


80702930 






08 E 5 0000 






DC 





SET MLSCF STORAGE 


15 


80702940 






08E6 1 OBCF 






DC 


SETXO 


SET MLSCF ENTRY 


16 


80702950 






08E7 0000 






DC 





SET INT RETURN 


17 


80702960 






OSES 1 0BE2 






DC 


SETIO 


SET INT ENTRY 


18 


80702970 






08E9 0000 






DC 





CKBSY RETURN 


19 


80702980 






08 E A 0000 






DC 





CKAVL RETURN 


20 


80702990 






08EB 0000 






DC 





LOG/ERROR SW 


21 


80703000 






08EC 1 0052 






DC 


MERXO 


OR MSG ADRS 


22 


80703010 






08E0 0000 






DC 





MEP/MLG RETURN 


23 


807030 20 






08 EE 0000 






DC 





RTN 3/4 SW 


24 


80703030 






08EF 0000 






DC 





RTN 5/6 SW 


25 


80703040 






08F0 0000 






DC 





SET UP 1 RETURN 


26 


80703050 






08F1 0720 






DC 


/0720 


RTN 9 MOD £ FNC 


27 


80703060 






08F2 0708 






DC 


/0708 


PROG STOP MODEFNC 


28 


80703070 






08F3 0000 






DC 





EXPECTED TM DATA 


29 


80703080 






08F4 0510 






DC 


/0510 


WRT-556.2.0DD 


30 


80703090 






08F5 0610 






DC 


/0610 


RD -556, 2, ODD 


31 


80703100 






08F6 0600 






DC 


/060D 


RD-200,3, EVEN 


32 


03110 






08F7 050D 






DC 


/050D 


WT-200,3, EVEN 


33 


03120 






08F8 0606 






DC 


/0606 


READ FNC £ MOD 


34 


80703130 






08F9 0506 






DC 


/0506 


WRT FNC £ MOO 


35 


80703140 






08FA 0001 






DC 


1 


CONSTANT ONE 


36 


80703150 






08 FB 0000 






DC 





DRIVE SELECTION 


37 


80703160 






08FC 0000 






DC 





RECORD CT SAVE 


38 


80703170 






08F0 0606 






DC 


/0606 


READ FNC 6 MOO 


39 


80703180 






08FE 0506 






DC 


/0506 


WRT FNC 6 MOD 


40 


80703190 






08FF 0000 






DC 





RTN 14/17 SW 


41 


80703200 






0900 0000 






DC 





SENSE WD STORAGE 


42 


80703210 






0901 0000 






DC 





REQ DEV RETURN 


43 


30703220 






0902 0000 






DC 





REL DEV RETURN 


44 


80703230 






0903 1 0C18 






DC 


LIVO 


LOST INT VEC DR C 


) 45 


80703240 






0904 0000 






DC 







46SE 


80703250 






0905 1 6700 0974 


SETX6 


LOX 


L3 MTTWO 


IX3#A0RS CMN 41 


' 48 


80703260 






0907 4080 002E 






BSC 


11 46 


EXIT 4"3 


> 50 SX 


30703270 








♦ 


*** 


*** 


*** *** *** 


*** *** *** *** *** 


**** 


80703280 








* 












80703290 








* 






DRIVE 1 TABLE OF CONSTANTS 


80703300 








* 






AND RETURNS 




80703310 








* 












80703320 








* 


*** 


*** 


*** *** *** 


*** *** *** *** *** 


**** 


80703330 






0909 OOFF 


DR1TB 


DC 


/OOFF 


DR 1 LOOP RTN SAVE 


80703340 






090A 0000 






DC 





WRITE RTN RETURN 


1 


80703350 






090B 0000 






DC 





ERA RTN RETURN 


2 


80703360 






090C 0422 






DC 


/0422 


ERA MOD £ FNC 


3 


80703370 






0900 0000 






DC 





WR TM RTN RETURN 


4 


80703380 






090E 0421 






DC 


/0421 


WR TM FNC £ MOD 


5 


80703390 






090F 0000 






DC 





RD RTN RETURN 


6 


80703400 






0910 0000 






DC 





RD RETRY SW 


7 


80703410 




DATE 


28FEB66 01JUL66 




15MAY67 


14N0V69 
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PROG ID 
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EC NO. 


415120 415178 


411731 


431319 
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3 



0911 





0000 


0912 





042B 


0913 





0000 


0914 





0424 


0915 





0000 


0916 





0720 


0917 





0000 


0918 





0000 


0919 


1 


0B02 


091A 





0000 


09 IB 


1 


0BE5 


091C 





0000 


0910 





0000 


091E 





0000 


091F 


1 


0D5C 


0920 





0000 


0921 





0000 


0922 





0000 


0923 





0000 


0924 





0700 


0925 





0728 


0926 





0000 


092 7 





0530 


0928 





0630 


0929 





062D 


092A 





052D 


092 B 





0626 


092C 





0526 


0920 





0001 


092E 





0020 


092 F 





0000 


0930 





0626 


0931 





0526 


0932 





0000 


0933 





0000 


0934 





0000 


0935 





0000 


0936 


1 


0C1A 


0937 





0000 


0938 





70CC 



0939 
093 A 
093B 
093C 

093 D 
093E 
093F 
0940 
0941 
0942 
0943 
0944 
0945 
0946 
0947 
0948 
0949 
09 4A 

094 B 
094C 
094D 
094E 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
MDX 

* *** *** 
* 

* 
* 

* *** *** 
OSTO DC 

DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



15MAY67 
411731 





/042B 


/0424 


/0720 



SET XI 


SETI1 




MERX1 





/0700 
/0728 


/0530 
/0630 
/062D 
/052D 
/0626 
/0526 
1 

/0020 


/0626 
/0526 





LIV1 


SETX6 
*** *** *** 



BSP RTN RETURN 
BSP FNC £ MOD 
RWD RTN RETURN 
RWD FNC £ MOD 
SENSE RTN RETURN 
SENSE FNC £ MOD 
STAC RTN RETURN 
SET MLSCF STORAGE 
SET MLSCF ENTRY 
SET INT RETURN 
SET INT ENTRY 
CKBSY RETURN 
CK AVL RETURN 
LOG/ERROR SW 
0R1 MSG ADRS 
MER/MLG RETURN 
RTN 3/4 SW 
RTN 5/6 SW 
SET UP 1 RETURN 
RTN 9 MOD £ FNC 
PROG STOP MOD£FNC 
EXPECTED TM OATA 
WRT-556,2,0DD 
RD-556,2,0DD 
RD-200, 3, EVEN 
WRT-200, 3, EVEN 
READ MOD £ FNC 
WRT MOD £ FNC 
CONSTANT ONE 
ORIVE SELECTION 
RECORD CT SAVE 
RD MOD £ FNC 
WRT MOD £ FNC 
RTN 14/17 SW 
SENSE WD STORAGE 
REO DEV RETURN 
REL DEV RETURN 
LOST INT VEC DR 1 



*** *** *** *** *** 



DEVICE STATUS TABLES 
DRIVE 



*** *** *** *** 

























*** *** *** *** 
NUMBER TRACKS 
AREA CODE 
FUNCTION 
MODIFIER 
REAO TM 

WD CT RECEIVED 
EXPECTED WD CT 
WRITE TM 
LAST OSW 
PASS CT 
RECORD CT 
WD CT FOR CK 
TOTAL WRITES 
TOTAL READS 
TOTAL REWINDS 
WD CT DESIRED 
RECOV RO CT 
RECOV WT CT 
UNRECOV RD CT 
UNRECOV WT CT 
TAPE ERASE CT 
ERROR CONTROL 



14N0V69 
431319 



30JAN70 
431319A 



8 


80703420 




9 


80703430 




10 


80703440 




11 


80703450 




12 


80703460 




13 


80703470 




14 


80703480 




15 


80703490 




16 


80703500 




17 


80703510 




18 


80703520 




19 


80703530 




20 


80703540 




21 


80703550 




22 


80703560 




23 


80703570 




24 


80703580 




25 


80703590 




26 


80703600 




27 


80703610 




28 


80703620 




29 


80703630 




30 


80703640 




31 


80703650 




32 


80703660 




33 


80703670 




34 


80703680 




35 


80703690 




36 


80703700 




37 


80703710 




38 


80703720 




39 


80703730 




40 


80703740 




41 


80703750 




42 


80703760 




43 


80703770 




44 


80703780 




45 


80703790 




46SE 


80703800 




47 


80703810 




**** 


80703820 
80703830 
80703 840 
80703850 
80703860 




**** 


807038 70 







80703880 




1 


80703890 




2 


80703900 




3 


80703910 




4 


80703920 




5 
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6 


80703940 




7 


80703950 




8 


80703960 




9 


80703970 




10 
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11 


80703990 




12 
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13 
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20 
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094F 


0000 






DC 









WORD PATTERN 


22 


80704100 


_ 098E 





0000 




WTM 


DC 













26 


SE 


80704780 






0950 


0000 






DC 









ACTUAL WORD 


23 


80704110 


098F 


1 


4C00 


OABE 




BSC 


L 


WTME 


GO 


TO WT TM RT 


27 


28 




80704790 






0951 


0000 






DC 









PROG CT 


24 


80704120 


0991 





0000 




ERA 


DC 













29 


SE 


80704800 






0952 


0000 






DC 









SPECIAL DSW 


25 


80704130 


_ 0992 


1 


4C00 


0AB3 




BSC 


L 


ERAE 


GO 


TO ERASE RT 


30 


31 




80704810 






0953 


0000 






DC 









DRIVE BUSY SM 


26 


80704140 


0994 





0000 




DSW 


DC 













32 


SE 


80704820 






0954 


0000 






DC 









ORIVE AVAIL SW 


27 


80704150 


0995 


1 


4C00 


0BA7 




BSC 


L 


DSWEN 


GO 


SENSE ORIVE 


33 


34 




80704830 






0955 


0000 




RTN 


DC 









RTN NUMBER 


28 


80704160 


_ 0997 





0000 




STPST 


DC 













35 


SE 


80704840 












* *** 


*** 


*** 


*** *»* 


*** *** *** *»* *** **#* 


80704170 


0998 


1 


4C00 


OBBD 




BSC 


L 


STPSE 


GO 


SET MLSCF 


36 


37 




80704850 












* 














80704180 


099A 





0000 




CKBSY 


DC 













38 


SE 


80704860 












♦ 






DEVICE STATUS TABLE 




80704190 


099 B 


1 


4C00 


0BE7 




BSC 


L 


CKBSE 


GO 


CK BUSY 


39 


40 




807048 70 












* 






DRIVE 


1 




80704200 


099D 





0000 




CKAVL 


DC 













41 


SE 


80704880 












* 














80704210 


099E 


1 


4C00 


0C2C 




BSC 


L 


CKAVE 


GO 


CK AVAIL 


42 


43 




80704890 












* *** 


*** 


*** 


*** *** 


*** *** *** *** *** ! 


**** 


80704220 


09A0 





0000 




MRCD 


DC 













44 


SE 


80704900 






0956 


0000 




DST1 


DC 









NUMBER TRACKS 





80704230 


09A1 


1 


4C00 


0C43 




BSC 


L 


MRCDE 


GO 


CK DATA 


45 


46 




80704910 






0957 


0000 






DC 









AREA CODE 


1 


80704240 


09A3 





0000 




MRSC 


DC 













47 


SE 


80704920 






0958 


0000 






DC 









FUNCTION 


2 


80704250 


09A4 


1 


4C00 


0D6F 




BSC 


L 


MRSCE 


GO 


SET I/O ARA 


48 


49 




80704930 






0959 


0000 






DC 









MODIFIER 


3 


80704260 


09A6 





0000 




COMOO 


DC 













50 


SE 


80704940 






095A 


0000 






DC 









READ TM 


4 


80704270 


09A7 


1 


4C00 


0E8F 




BSC 


L 


COMOE 


GO 


SET UP RTN1 


51 


52 




80704950 






095 B 


0000 






DC 









WD CT RECEIVED 


5 


80704280 


09A9 





0000 




C0M01 


DC 













53 


SE 


80704960 






095C 


0000 






DC 









WD CT EXPECTED 


6 


80704290 


09AA 


1 


4C00 


0E97 




BSC 


L 


C0M1E 


GO 


SET UP RTN2 


54 


55 




80704970 






0950 


0000 






DC 









WRITE TM 


7 


80704300 


09AC 





0000 




STARE 


DC 













56 


SE 


80704980 






095 E 


0000 






DC 









LAST DSW 


8 


807043 10 


09AD 





4C80 


0120 




BSC 


I 


START 


GO 


TO 01 AG MON 


57 


58 




80704990 






095 F 


0000 






DC 









PASS CT 


9 


80704320 


09AF 





4323 




EXITE 


BSI 


3 


35 


GO 


SET MLSCF ENTRY 


SRC 


80705000 






0960 


0000 






DC 









RECORD CT 


10 


80704330 


09B0 


1 


0A5B 






DC 




MRTN 












80705010 






0961 


0000 






DC 









WD CT FOR CK 


11 


80704340 


09B1 


1 


4C00 


006 8 




BSC 


L 


MERL1 


GO 


TO CLEAR 








80705020 






0962 


0000 






DC 









TOTAL WRITES 


12 


80704350 


09B3 





0007 






DC 




7 


CONSTANT 7 




63 




80705030 






0963 


0000 






DC 









TOTAL READS 


13 


80704360 


09B4 





OOOA 






DC 




10 


CONSTANT 10 




64 




80705040 






0964 


0000 






DC 









TOTAL REWINDS 


14 


80704370 


09B5 





0009 






DC 




9 


CONSTANT 9 




65 




80705050 






0965 


0000 






DC 









WD CT DESIRED 


15 


80704380 


09B6 





0008 




RDTY4 


DC 




8 


CONSTANT 8 




66 




80705060 






0966 


0000 






DC 









RECOV RD CT 


16 


80704390 


09B7 


1 


09D1 






DC 




IOA 


AORS OF I/O AREA 


67 




80705070 






0967 


0000 






DC 









RECOV WT CT 


17 


80704400 


09B8 





0014 






DC 




20 


CONSTANT 20 




68 




80705080 






0968 


0000 






DC 









UNRECOV RD CT 


18 


80704410 


09B9 





4014 






DC 




/4014 


WC 


# 20, NO EOT 


69 




80705090 






0969 


0000 






DC 









UNRECOV WT CT 


19 


80704420 


09BA 





0004 






DC 




4 


CONSTANT 4 




70 




80705100 






096A 


0000 






DC 









TAPE ERASE CT 


20 


80704430 


09BB 





4000 






DC 




/4000 


NO 


END TBL INT 




71 




80705110 






096B 


0000 






DC 









ERROR CONTROL 


21 


80704440 


09BC 





0005 




RDTY6 


DC 




5 


CONSTANT 5 




72 




80705120 






096C 


0000 






DC 









WORD PATTERN 


22 


80704450 


09B0 





0000 




COM03 


DC 













73 


SE 


80705130 






0960 


0000 






DC 









ACTUAL WORD 


23 


80704460 


09BE 


1 


4C00 


0B98 




BSC 


L 


C0M3E 


GO 


TO SET UP 3 


74 


75 




80705140 






096 E 


0000 






DC 









PROG CT 


24 


80704470 


09C0 





0000 




EXIT 


DC 













76 


SE 


80705150 






096F 


0000 






DC 









SPECIAL DSW 


25 


80704480 


09C1 


1 


4C00 


09AF 




BSC 


L 


EXITE 






77 


78 




80705160 






0970 


0000 






DC 









DRIVE BUSY SW 


26 


80704490 


09C3 





0100 




SPFNC 


DC 




/0100 


CONSTANT 0100 




79 




80705170 






0971 


0000 






DC 









DRIVE AVAIL SW 


27 


80704500 


09C4 





0200 






DC 




/0200 


CONSTANT 0200 




80 




80705180 






0972 


0000 




RTN1 


DC 









RTN NUMBER 


28 


80704510 


09C5 





0000 




MTRLD 


DC 













81 


SE 


80705190 












* *** 


*** 


*** 


*** *** 


*** *** *** *** *** : 


*** 


80704520 


09C6 


1 


4C00 


00A4 




BSC 


L 


HTRLE 


GO 


RELEASE 


82 


83 




80705200 












* 














80704530 


09C8 





0000 




MTRED 


DC 













84 


SE 


80705210 












# 






TABLE 


OF COMMON VALUES 




80704540 


09C9 


1 


4C00 


0D8D 




BSC 


L 


MTREE 


GO 


REQUEST 


85 


86 




80705220 












* 














80704550 


09CB 





0000 




STIR 


DC 













87 


SE 


80705230 












* *** 


*** 


*** 


*** *** 


*** *** *** *** *** 


*** 


80704560 


09CC 


1 


4C00 


0B04 




BSC 


L 


STIRE 


GO 


TO SET INT 


88 


89 




80705240 






0974 


0000 






BSS 


E 











80704570 


09CE 





0000 




STAC 


DC 













90 


SE 


80705250 






0974 


0002 




MTTHO 


DC 




2 




CONSTANT 2 





80704580 


09CF 


1 


4C00 


007E 




BSC 


L 


STACE 


GO 


SET DR SEL 


91 


92 




80705260 






0975 


0003 






DC 




3 




CONSTANT 3 


1 


80704590 










* *** 


*** 


*** 


*** *** 


*** *** *** *** *** 


*** 




80705270 






0976 1 


09DB 




IOCCl 


DC 




I0A610 




RTN 7 IOCC 


2 


80704600 










* 


















807052 80 






0977 


0000 






DC 











3 


80704610 










* 






I/O AREA- 


•USED BY BOTH DRS 




80705290 






0978 1 


0901 




I0CC2 


DC 




IOA 




COMMON IOCC 


4 


80704620 










* 


















80705300 






0979 


0000 






DC 











5 


80704630 










* *** 


*** 


*** 


*** *** 


*** *** *** *** *** 


*** 




80705310 






097A 


0000 




I0CC3 


DC 









COMMON IOCC 


6 


80704640 


0901 





0000 




IOA 


DC 







I/C 


1 AREA 




93 




80705320 






097 B 


0000 






DC 











7 


80704650 


09D2 





0000 


• 




DC 







I/C 


1 AREA 61 




94 




80705330 






097C 


0000 




MLG 


DC 











8 SE 


80704660 


09D3 





0000 






DC 







I/C 


1 AREA 62 




95 




80705340 






0970 1 


4C00 


OCAB 




BSC 


L 


MLGE 




GO TO MLG RTN 9 


10 


80704670 


0904 





0000 






DC 







I/C 


1 AREA 63 




96 




80705350 






097F 


0000 




MER 


DC 











11 SE 


807046 80 


09D5 





0000 






DC 







I/C 


) AREA 64 




97 




80705360 






0980 1 


4C00 


0CB1 




BSC 


L 


MER1E 




GO TO MER RTN 12 


13 


80704690 


09D6 





0000 






DC 







I/O AREA £5 




98 




80705370 






0982 


0000 




BSP 


DC 











14 SE 


80704700 


0907 





0000 






DC 







I/O AREA £6 




99 




80705380 






0983 1 


4C00 


0B6C 




BSC 


L 


BSPE 




GO TO BSP RTN 15 


16 


80704710 


0908 





0000 






DC 







I/C 


1 AREA 67 




100 




30705390 






0985 


0000 




RWD 


DC 











17 SE 


80704720 


0909 





0000 






DC 







I/O AREA 68 




101 




80705400 






0986 1 


4C00 


0B79 




BSC 


L 


RWDE 




GO TO RWD RTN 18 


19 


80704730 


09DA 





0000 






DC 







I/O AREA 69 




102 




80705410 






0988 


0000 




RDT 


DC 











20 SE 


80704740 


090B 





0000 






DC 







I/O AREA 610 




103 




80705420 






0989 1 


4C00 


0AC8 




BSC 


L 


ROTE 




GO TO READ RTN 21 


22 


80704750 


09DC 





0000 






DC 







I/C 


) AREA 611 




104 




80705430 






098B 


0000 




WRTM 


DC 











23 SE 


80704760 


0900 





0000 






DC 







I/O AREA 612 




10 5 




80705440 






098C 1 


4C00 


0A6B 




BSC 


L 


WRTME 




GO TO WRT RTN 24 


25 


80704770 


09DE 





0000 






DC 







I/O AREA 613 




106 




80705450 




DATE 


28FEB66 01JUL66 


15MAY67 


14N0V69 


30JAN70 




PROG ID 0807-1 


" OATE 28FEB66 01JUL66 


15MAY67 


14N0V69 


30JAN70 








PROG ID 


0807-1 


EC NO. 


415120 415178 


411731 


431319 


431319A 




PAGE 4 


EC NO. 415120 415178 


411731 


431319 


431319A 








PAGE 


4A 



<[<<<<<<<<<(<(< < < < C ( ( ( <<<<(<<<<<<<< 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2400 FUNCTION TEST 



PART NO. 
PAGE 



2196370 
5 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
,2400 FUNCTION TEST 



PART NO. 
PAGE 



2196370 
5A 





09DF 


0000 






DC 









I/O AREA £14 107 




80705460 






09E0 


0000 






DC 









I/O AREA £15 108 




30705470 






09E1 


0000 






DC 









I/O AREA £16 109 




80705480 






09E2 


0000 






DC 









I/O AREA £17 110 




30705490 






09E3 


0000 






DC 









I/O AREA £18 111 




80705500 






09E4 


0000 






DC 









I/O AREA £19 112 




80705510 






09E5 


0000 






DC 









I/O AREA £20 113 




80705520 






09E6 


0000 




INTIG 


DC 









114 


SE 


80705530 






09E7 I 


4C00 


00B1 




BSC 


L 


INTIE 




SET INT IGNREU5 116 




80705540 






09E9 


0000 






DC 









117 


SE 


80705550 






09EA 


4326 






BSI 


3 


38 




CK FOR BSY 118 




80705560 






09EB 


4338 






BSI 


3 


56 




TO DIAG MON 119 




80705570 












* *** 


*** 


*** 


*** *** 


*** *** *** *** *** *** 




80705580 












* *** 


*** 


*** 


*** *** 


*** *** *** *** *** *** 




80705590 












* 














80705600 












* 






CHECK 


FOR SELECTED DRIVES 




80705610 












* 






BEING 


READY 




30705620 












* 














80705630 












* *** 


*** 


*** 


*** *** 


*** *** *** *** *** *** 




80705640 






09EC 1 


4400 


0C1C 


M0N03 


BSI 


L 


SETX4 




SET IXING TO DR 


SRC 


80705650 






09EE 


4354 






BSI 


3 


84 




GO REO OEVICE 


SRC 


80705660 






09EF 1 


C400 


0819 




LD 


L 


MTIO 




GET AREA COOE 




30705670 






09FI 


D201 






STO 


2 


1 




SET IN DST 




80705680 






09F2 1 


C400 


0804 




LD 


L 


SH2 




GET SW FNC 2 




80705690 






09F4 


4828 




* 


BSC 




£Z 




IS DR SELECTED 
TO BE RUN 




80705700 
80705710 






09F5 


7007 






MDX 




M0N04 




NO-CK DR 1 




80705720 






09F6 1 


7401 


087E 




MOX 


L 


SELSU.l 




ADD 1 TO SEL SW 




30705730 






09F8 


4320 






BSI 


3 


32 




GO SENSE OEVICE 


SRC 


80705740 






09F9 


4804 






BSC 




E 




IS DRIVE READY 




80705750 






09FA 


7021 






MOX 




MONOl 




NO-GO PRINT 




80705760 






09FB 


4323 






BSI 


3 


35 




GO SET MLSCF ENTRY 


SRC 


80705770 






09FC 1 


0A25 




* 


DC 




M0N12 








80705780 
80705790 












* 






CHECK 


DRIVE ONE 




80705800 












* 














80705810 






09FD 1 


4400 


X24 


MON04 


BSI 


L 


SETX5 




SET IXING TO DR I 


SRC 


80705820 






09FF 1 


C400 


0819 




LD 


L 


MTIO 




GET AREA CODE 




80705830 






0AO1 


0201 






STO 


2 


1 




SET IN DST 




80705840 






0A02 


4351 






BSI 


3 


81 




GO RELEASE DEVICE 


SRC 


30705850 






0A03 


1010 






SLA 




16 




ZERO ACCUM 




80705860 






0A04 1 


0400 


08CC 




STO 


L 


ACMT 




CLEAR OR SEL 




80705870 






0A06 


C200 






LD 


2 







GET NO TRACKS 




80705880 






0A07 1 


4C28 


0A15 




BSC 


L 


M0N05,£Z 


BRANCH * NO DR 1 




80705890 






0A09 1 


C400 


0804 




LD 


L 


SW2 




GET SW FNC 2 




80705900 






OAOB 


1001 






SLA 




1 








80705910 






OAOC 


4828 




* 


BSC 




£Z 




IS DR 1 SELECTED 
TO BE RUN 




80705920 
80705930 






OAOO 


7007 






MDX 




MONO 5 




NO-EXIT 




80705940 






OAOE 1 


7401 


087E 




MDX 


L 


SELSW.l 




ADD 1 TO SEL SW 




80705950 






0A10 


4320 






BSI 


3 


32 




GO SENSE OEVICE 


SRC 


80705960 






0A11 


4804 






BSC 




E 




IS DRIVE READY 




80705970 






0A12 


700E 






MDX 




MONO 2 




NO-GO PRINT 




80705980 






0A13 


4323 






BSI 


3 


35 




GO SET MLSCF ENTRY 


SRC 


80705990 






0A14 1 


0A25 






DC 




M0N12 








80706000 






0A15 1 


7400 


087E 


M0N05 


MDX 


L 


SELSW.O 




IS A DRIVE SELECTED 




80706010 












******************************* *************** 


80706020 






0A17 


4338 




MONAC 


BSI 


3 


56 




GO TO DIAG MON-START* 


80706030 












********************************************** 


80706040 






0A18 


4308 






BSI 


3 


8 




GO TO PRINT VIA MLG 


SRC 


80706050 






0A19 


C002 






DC 




/C002 




ID 2 




80706060 






0A1A 


0000 






DC 




/OOOO 




LINE - FORM 




807060 70 






0A1B 


7003 




* 
* 
* 


MOX 




MONAA 

DR 





SELECTED BUT NOT RDY 




80706080 
80706090 
80706100 
80706110 






0A1C 


4308 




MONO I 


BSI 


3 


8 




GO TO PRINT VIA MLG 


SRC 


80706120 






0A10 


COOO 






DC 




/COOO 




ID 




80706130 




DATE 


28FEB66 01JUL66 


15MAY67 


14N0V69 


30JAN70 




PROG ID 


0807-1 


EC NO. 


415120 415178 


411731 


431319 


431319A 




PAGE 


5 



0A1E 0000 
0A1F 4C80 012E 



0A21 4308 
0A22 C001 
0A23 0000 
0A24 70FA 



0A25 1 C400 0802 
0A27 1 4C04 0A1F 
0A29 7013 



0A2A 





C21C 


0A2B 





8124 


0A2C 





D21C 


0A2D 





4320 


0A2E 





1802 


0A2F 





4804 


0A30 





4311 


0A31 





4329 


0A32 





6314 


0A33 





2F40 


0A34 


1 


090 1 


0A35 





73FF 


0A36 





70FC 


0A37 





C21C 


0A38 





800E 


0A39 





D002 



DC 
********** 
MONAA BSC 
********** 

* 

* 

* 

MON02 BSI 
DC 
DC 
MOX 

* 

* 

* 

* 

MON 12 LD 
BSC 
MDX 

* 

* 

* 

M0N17 LD 

M0N16 A 



/OOOO LINE - FORM 

************************************ 
I END GO END PROGRAM * 

************************************ 



0A3A 412E 
0A3B 4C80 OOOO 



0A3D 
0A3F 
0A40 
0A42 
0A43 
0A44 
0A46 



0A47 
0A48 
0A49 
0A4A 
0A4B 
0A4C 
0A4D 
0A4E 
0A4F 
0A50 
0A51 
0A52 



C400 0803 

E100 

4C18 0A2A 

021C 

1808 

4C18 0A2D 

70FB 



0A48 
0012 
ODBB 
ODBD 
0DD1 
0DD3 
0E27 
CE29 
0E5D 
0EA3 
OEBF 
OECE 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



STO 

* 

* 

* 

M0N09 BSI 
SRA 
BSC 
BSI 
BSI 
LDX 

M0N20 DC 
DC 
MDX 
MDX 
LD 
A 
STO 



BSI 

M0N18 BSC 

* 

* 

* 

MONIO LD 
AND 
BSC 

M0N19 STO 
SRA 
BSC 
MOX 

* 

* 

TAG01 DC 

MONXB DC 

MONXA DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



15MAY67 
411731 



3 8 

/C001 
/OOOO 
MONAA 



DR 1 SELECTED BUT NOT RDY 

GO To PRINT VIA MLG SRC 

ID 1 

LINE - FORM 



CHECK SWITCH SETTINGS 



L SWO 
L MONAA.E 
MONIO 



GET SW FNC 
BRANCH # TERMINATE 



SET TO NEXT RTN 

2 28 GET RTN NUMBER 

1 36 ADD ONE 

2 28 SAVE 

BRANCH TO SELECTED RTN 



32 

2 

E 

17 

41 

20 

/2F40 

IOA 

-1 

M0N20 

28 

TAG01 

M0N18+1 



GO SENSE DEVICE 

IS DR AT EOT 

YES-GO REWIND 

GO CK DR FOR AVAIL 

CLEAR STORAGE PRTCT 



SRC 



SRC 
SRC 



DECR IX 3 

LOOP 

GET RTN NUMBER 

ADD TABLE ADDRESS 

PLACE IN BRANCH ADDRESS 



1 46 SET IX 3 

I *-* GO TO RTN 

LOOP ROUTINE SW IS ON 



SRC 



L SW1 

1 

L M0N17,£- 

2 28 
8 

L M0N09,£- 
M0N19 



GET SW FNC 01 
SAVE SELECTION 
BRANCH IF ZERO 
SET AS RTN NO 
MOVE DR SELECTION 
RETURN IF ZERO 
LOOP ON NOT 



* 

/0012 

F01AA 

F02AA 

F03AA 

F04AA 

F05AA 

F06AA 

F07AA 

F08AA 

F09AA 

FOAAA 



14N0V69 
431319 



TABLE OF ROUTINE AODRESSES 
TABLE AODRESS 
TOTAL ROUTINES 
ROUTINE NUMBER 1 
2 
3 
4 
5 
6 
7 
8 
9 
10 



30JAN70 
431319A 



80706140 
80706150 
80706160 
80706170 
80706180 
80706190 
807062 00 
80706210 
80706220 
80706230 
80706240 
30706250 
80706260 
80706270 

807062 80 
80706290 
80706300 
80706310 
30706320 
80706330 
80706340 
80706350 
80706360 
80706370 

807063 80 
80706390 
80706400 
80706410 
80706420 
80706430 
80706440 
80706450 
80706460 
80706470 
80706480 
80706490 
80706500 
80706510 
80706520 
80706530 
80706540 
80706550 
80706560 
80706570 
80706580 
80706590 
80706600 
80706610 
80706620 
80706630 
80706640 
80706650 
80706660 
80706670 
80706680 
80706690 
80706700 
80706710 
80706720 
80706730 
80706740 
80706750 
80706760 
80706770 
80706780 
30706790 
80706800 
80706810 
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5A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2400 FUNCTION TEST 



PART NO. 
PA3E 



2196370 

64 



0A53 


1 


0ED8 


0A54 


1 


0EE1 


0A55 


1 


0F24 


0A56 


1 


0F58 


0A57 


1 


0F92 


0A58 


1 


0FA9 


0A59 


1 


OF 56 


0A5A 


1 


0A5B 



0A5B C21C 
0A5C FOEB 
0A5D 1 4C20 0A25 



* *** 

* 

* *** 
MRTN 



0A5F 





C218 


0A60 





8124 


0A61 





D218 


0A62 





4308 


0A63 





D001 


0A64 





0005 


0A65 





4308 


0A66 





D001 


0A67 





8008 


0A68 





1010 


0A69 





D21C 


0A6A 





70BA 



0A6B 
0A6C 
0A6D 
0A6E 
0A6F 
0A70 
0A71 
0A72 



0A73 
0A74 
0A75 
0A76 
0A77 
0A78 
0A79 
0A7A 
0A7B 
0A7C 
0A7D 
0A7E 
0A80 
0A81 

0AS3 
0A84 
0A85 
0A86 
0A87 
0A88 
0A89 



C317 
D101 
4326 
1010 
D215 
4326 
C123 
4349 



C20C 

8124 

020C 

C20A 

8124 

D20A 

4351 

C208 

E034 

4820 

701B 

C400 0802 

1008 

4C10 0A94 

C208 
E346 
4820 
431A 
0207 
C215 
4820 



* *** 

* 
* 
* 

* *** 
WRTME 



WRTB 



* 
* 

WRTI 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
*** 



*** 
LD 
EOR 
BSC 

LD 

A 

STO 

BSI 

DC 

DC 

BSI 

DC 

DC 

SLA 

STO 

MDX 

*** 



FOBAA 
FOCAA 
FODAA 
FOEAA 
FOFAA 
F10AA 
FllAA 
MRTN 



11 
12 
13 
14 
15 
16 
17 



PROG COMPLETE 



*** *** *** *** *** *** *** *** *«* 



ROUTINES RETURN HERE 



*** *** *** *** **♦ *** *** *** *** 



WRTI A 



MRT02 



WRT03 
WRIAI 



28 

MONXB 

M0N12tZ 



2 24 

1 36 

2 24 



8 

/D001 

/0005 

8 

/D001 

/8008 

16 

28 

M0N12 



GET RTN NUMBER 

BRANCH # PROG NOT 

COMPLETE 

GET PROG CT 

ADD ONE 

SAVE 

GO TO PRINT VIA MLG 

ID 01 

LINE - FORM 5 

GO TO PRINT VIA MLG 

ID 01 

LINE 2 FORM 8 

ZERO ACCUM 

SET RTN NUMBER # 

CONTINUE 



SRC 
SRC 



*** *** *** *** *** *** *** *** *** 



THIS IS THE WRITE ROUTINE 



*** 

LD 

STO 

BSI 

SLA 

STO 

BSI 

LD 

BSI 



LD 

A 

STO 

LD 

A 

STO 

BSI 

LD 

AND 

BSC 

MDX 

LD 

SLA 

BSC 

LD 

AND 

BSC 

BSI 

STO 

LD 

BSC 



*** *** *** *** *** *** *** *** *** 



23 

1 

38 

16 

21 

38 

35 

73 



GET RETURN 

SAVE RETURN 

GO CK OR FOR BUSY 

CLEAR ERROR CONTROL 
GO CK OR FOR BUSY 
GET WRT FNC t MOD 
GO SET UPUSSUE CMD 

WRITE COMPLETE ROUTINE 



SE 
SRC 

SRC 
SRC 



2 12 

1 36 

2 12 
2 10 

1 36 

2 10 

3 81 
2 8 

WRIX4 

Z 

WRTIE 

SWO 

8 

WRTOl, 



8 

70 

Z 

26 

7 

21 

Z 



GET TOTAL WRT CT 

ADD ONE 

SAVE 

GET REC CT 

AOO ONE 

SAVE 

GO RELEASE DEVICE 

GET SENSE WD 

CK FOR ERROR 

SKIP # OK 

BAD OSW 

GET SW FNC 

BRANCH # EOT SW OFF 

GET SENSE WD 

CK FOR EOT 

SKIP # NOT EOT 

GO WRT TM 

LD TM SW 

GET ERROR CTL 

ANY PREVIOUS ERROR 



SRC 



SRC 



DATE 

EC NO. 



28FEB66 
415120 



01JUL66 
415178 



15MAY67 
411731 



14N0V69 
431319 



30JAN70 
431319A 



80706820 

80706830 

80706840 

807068 50 

80706860 

80706870 

80706880 

80706890 

80706900 

80706910 

80706920 

80706930 

80706940 

80706950 

80706960 

80706970 

80706980 

80706990 

80707000 

80707010 

80707020 

80707030 

80707040 

80707050 

80707060 

80707070 

30707080 

80707090 

80707100 

80707110 

80707120 

80707130 

80707140 

80707150 

80707160 

80707170 

80707180 

80707190 

80707200 

80707210 

80707220 

80707230 

80707240 

80707250 

80707260 

80707270 

80707280 

80707290 

80707300 

80707310 

80707320 

80707330 

80707340 

80707350 

80707360 

80707370 

80707380 

80707390 

80707400 

80707410 

80707420 

80707430 

80707440 

80707450 

80707460 

80707470 

80707480 

80707490 



PROG ID 
PAGE 



0807-1 
6 



DATE 
EC NO. 



0A8A 





7002 






MDX 




WRTID 




YES 




80707500 




0A8B 





4080 


0001 


WRTIC 

* 
* 
* 


BSC 


11 


1 

HAO 


A 


EXIT 

PREVIOUS ERROR 


SX 


80707510 
80707520 
80707530 
80707540 




0A8D 





C211 




WRTID 


LD 


2 


17 




GET REC WRT CT 




80707550 




0A8E 





8124 






A 


1 


36 




ADD ONE 




80707560 




0A8F 





D211 




* 


STO 


2 


17 




SAVE 




80707570 
80707580 




0A90 





4308 






BSI 


3 


8 




GO TO PRINT VIA MLG 


SRC 


80707590 




0A91 





A001 






DC 




/A001 




ID 01 




80707600 




0A92 





0003 






DC 




/0003 




LINE - FORM 3 




80707610 




0A93 





70F7 




* 


MOX 




WRTIC 








80707620 
80707630 












* 






WRITE 


TO EOT SW IS OFF 




80707640 












* 














80707650 












* 














80707660 












* 














80707670 












* 














80707680 




0A94 





C20A 




WRT01 


LD 


2 


10 




GET RECORD NO 




80707690 




0A95 





901C 






s 




WRIX7 




SUB 501 




80707700 




0A96 


1 


4C18 


0A86 




BSC 


L 


WRT03.E- 




BRANCH # AT REC 500 




80707710 




0A98 





70EA 




* 
* 


MDX 




WRT02 




NOT REC 500 




80707720 
80707730 
80707740 












* 






DSW 


NOT CORRECT 




80707750 












* 














80707760 




0A99 





C208 




WRTIE 


LD 


2 


8 




GET SENSE WD 




80707770 




0A9A 





E016 






AND 




WRIX6 




CK FOR CORR 




80707780 




0A9B 





4820 






BSC 




Z 




SKIP # CORR 




80707790 




0A9C 





700C 




* 


MDX 




WRT 1 1 








80707800 
80707810 




0A9D 





4308 






BSI 


3 


8 




GO TO PRINT VIA MLG 


SRC 


80707820 




0A9E 





A002 






DC 




/A002 




ID 02 




80707830 




0A9F 





0002 




♦ 


DC 




/0002 




LINE - FORM 2 




80707840 
80707850 












* 






CK 


NUMBER RCTRYS 




80707860 












* 














80707870 




OAAO 





C215 




WRTIH 


LD 


2 


21 




GET ERROR CTRL 




80707880 




0AA1 





9300 






S 


3 







SUB 2 




80707890 




0AA2 


1 


4C18 


0AA9 




BSC 


L 


WRTII.t- 




BRANCH * 3 RETRYS 




80707900 




0AA4 





8301 






A 


3 


1 




ADD 3 




80707910 




0AA5 





D215 






STO 


2 


21 




SAVE 




80707920 




0AA6 





430 E 






BSI 


3 


14 




GO BACKSPACE 


SRC 


80707930 




0AA7 





431D 






BSI 


3 


29 




GO ERASE 


SRC 


80707940 




0AA8 





70C7 




* 
* 
* 
* 


MDX 




WRTB 




GO WRT 




80707950 
80707960 
80707970 
80707980 
80707990 












* 






UNREC 


ERROR 




80708000 












* 














80708010 




0AA9 





C213 




WRTI I 


LD 


2 


19 




GET UNREC WT CT 




80708020 




OAAA 





8124 






A 


1 


36 




ADD ONE 




80708030 




OAAB 





D213 




* 


STO 


2 


19 




SAVE 




80708040 
80708050 




OAAC 





4308 






BSI 


3 


11 




GO TO PRINT VIA MER 


SRC 


80708060 




OAAD 





E003 






DC 




/E003 




ID 03 




80708070 




OAAE 





0002 






DC 




/0002 




LINE - FORM 2 




80708080 




OAAF 





70DB 




* 


MDX 




WRTIC 




CONTINUE 




80708090 
80708100 












* 






CONSTANTS 




80708110 












♦ 














80708120 




OABO 





2F83 




WRIX4 


DC 




/2F83 




DSW ERROR CK 




80708130 




0AB1 





2C13 




WRIX6 


DC 




/2C13 




NONCORR ERROR CK 




80708140 




0AB2 





01F5 




WRIX7 


DC 




501 




CONSTANT 501 




80708150 












* *** 


*** 


*** 


*** *** 


*** *** *** *** *** **** 


80708160 












* 














80708170 




28FEB66 01JUL66 


15MAY67 


14N0V69 30JAN70 
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415120 415178 


411731 


431319 431319A 
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240C FUNCTION TEST 



PART N3. 
PAG? 



2196370 
7A 



0AB3 C31D 
0AB4 D102 
0AB5 4326 
0AB6 C103 
0AB7 4349 



0AB8 C214 
0AB9 8124 
OABA 0214 
OABB 4351 
OABC 4080 0002 



OABE C31A 
OABF D104 
OACO 4326 
0AC1 C105 
0AC2 4349 



0AC3 4351 
0AC4 C124 
0AC5 D207 
0AC6 4080 0004 



0AC8 
0AC9 
OACA 
OACB 
OACC 
OACO 
OACE 
OACF 
OAOO 
0A01 
0A02 



C314 
0106 
4326 
1010 
D215 
0107 
4326 
1010 
0006 
C122 
4349 



0AD3 2FB3 
0A04 3FCF 
0AD5 2C03 
0A06 OOFF 
OA07 0000 



0AO8 C20A 
0A09 8124 
OAOA D20A 
OAOB 4351 



OAOC C107 



* 

* *** 
ERAE 



* 
* 
* 
ERAB 



* 

* 

* 

* *** 

WTME 



* 
* 
* 
WTMAB 



* *** 

* 
* 
* 

* *** 
RDTE 



RDT1 



* 
* 

ROTXA 
RDTXB 
RDTXD 
RDTYO 
R0T8A 
* 

* 
R0TI2 



*** 

LD 

STO 

BSI 

LD 

BSI 



LD 

A 

STO 

BSI 

BSC 

*** 



*** 

LD 

STO 

BSI 

LD 

BSI 



BSI 

LD 

STO 

BSC 

*** 



*#* 

LD 

STO 

BSI 

SLA 

STO 

STO 

BSI 

SLA 

STO 

LO 

BSI 



DC 
DC 
DC 

DC 
DC 



LO 

A 

STO 

BSI 



THIS IS THE ERASE ROUTINE 

*** *** *** *** *** *** *** *** **** 
3 29 GET RETURN SE 

1 2 SAVE 

3 38 GO CK DR FOR BUSY SRC 

1 3 GET MOD £ FNC 

3 73 GO SET UP£ISSUE CMO SRC 

ERASE COMPLETE RETURN 

2 20 GET ERASE COUNT 

1 36 ADD 1 

2 20 SAVE 

3 81 GO RELEASE DEVICE SRC 
II 2 EXIT SX 

**# *** *♦* *** *** *** *** *** **** 

THIS THE HRT TAPE MARK RTN 

*** *** *** *** **# *** *** *** **** 



3 26 GET RETURN 

1 4 SAVE RETURN 

3 38 GO CK OR FOR SUSY 

1 5 GET FNC £ MOD 

3 73 GO SET UPUSSUE CMO 

WRT TAPE MARK COMPLETE 

3 81 GO RELEASE DEVICE 

1 36 GET ONE 

2 7 SET WRT TM SW 
II 4 EXIT 

#** *** *** *** *** *** *** *** *** 

THIS IS THE READ ROUTINE 

*♦* *** *** *** #** **# *** *** *** 

3 20 GET RETURN 

1 6 SAVE RETURN 

3 38 GO CK DR FOR BUSY 
16 

2 21 CLEAR ERROR CONTROL 
1 7 CLEAR RETRY SW 

3 38 GO CK OR FOR SUSY 
16 CLEAR ACCUM 
R0T8A CLEAR ERROR SW 

1 34 GET REAO MOO £ FNC 

3 73 GO SET UP£ISSUE CMO 



SE 

SRC 

SRC 

SRC 
SX 

SE 
SRC 

SRC 

SRC 



LD 



CONSTANTS 

/2FB3 DSW OK CK 

/3FCF WLR OR 01 AG CK 

/2C03 NON CORRECTABLE CK 

/OOFF SAVE REREAD CT 

ERROR SW 

READ COMPLETE ROUTINE 

GET REC CT 

ADD ONE 

SAVE 

GO RELEASE DEVICE 

CHECK RETRY SW 

GET RETRY SW 



2 10 

1 36 

2 10 

3 81 



SRC 



DATE 

EC NO. 



28FEB66 
415120 



01JUL66 
415178 



15MAY67 
411731 



1 7 



14N0V69 
431319 



30JAN7C 
431319A 



30709180 
80708190 
30703200 
80703210 
90703220 
90708230 
80708240 
90708250 
907C3260 
80703270 
90708280 
80708290 
80703300 
80708310 
80703320 
80708330 
80708340 
80708350 
90708360 
80708370 
90708380 
80708390 
90709400 
80703410 
90709420 
80703430 
80708440 
80708450 
80703460 
80708470 
80703430 
80708490 
80703500 
80708510 
80708520 
30708530 
30708540 
90709550 
90709560 
8070857O 
30708530 
90708590 
80709600 
30708610 
807C8620 
3070«630 
80708640 
307C8650 
80703660 
90709670 
90708680 
90709690 
90709700 
80708710 
80703720 
80708730 
30709740 
80708750 
30708760 
30709770 
80709780 
90708790 
90709800 
90703810 
"0709820 
90708830 
80708840 
80708850 



PROG ID 

PAGE 



0807-1 

7 



OATE 

tC NO. 



OADD 


1 


4C20 


0B57 


* 


BSC 


L 


RDT7A.Z 


BRANCH # RETRY 




30703860 
307C8870 




OADF 





C20D 






LD 


2 


13 


GET TOTAL RD CT 




80709880 




OAEO 





8124 






A 


1 


36 


ADC ONE 




80703390 




0AE1 





D20D 




* 
* 
* 


STO 


2 


13 

CHECK 


FOP TAPE MARK 




80709900 
80703910 
90708920 
30703930 




0AE2 





C208 






LD 


2 


8 


GET SENSE WD 




80708940 




0AE3 





1802 






SRA 




2 






80703950 




0AE4 





48C4 






BSC 




E 


IS OR AT TM 




90703960 




0AE5 


c 


702F 






MOX 




RDT29 


YES 




8070897C 




0AE6 





1010 




RDT35 


SLA 




16 






30703980 




0AE7 


C 


D204 




RDT36 

* 
* 

* 


STO 


2 


4 

CK IF 


SET IN TM SW 
SENSE WD IS GOOD 




80708990 
80709000 
807C9D1' 1 
80709020 




0AE8 





C208 






LD 


2 


8 


GET SENSE WD 




30709030 




0AE9 





E0E9 






AND 




RDTXA 


CK FOR EXPECTED 




80709040 




OAEA 





4820 






BSC 




Z 


SKIP # OK 




30709050 




OAEB 





7030 




* 
* 
* 


MDX 




RDT03 

CHECK 


DSW BAD 
RECORO CT 




80709060 
80709070 

80709030 
807090^0 




OAEC 





4372 




RDCKR 


BSI 


3 


114 


GO SET INT IGNORE 


SRC 


80709100 




OAED 


1 


C400 


0802 




LD 


L 


SWO 


GET SW FNC 




80709110 




OAEF 





1007 






SLA 




7 






30709120 




OAFO 


1 


4C28 


0B03 




BSC 


L 


CKDTA, £Z 


BRANCH * CRC CK ON 




90709130 




0AF2 





C20A 






LD 


2 


10 


GET REC CT 




30709140 




OAF 3 





9124 






S 


1 


36 


SUB ONE 




90709150 




0AF4 


1 


4C18 


OB 03 




BZ 




CKDTA 


BRANCH IF EQUAL TO 1 




$ 90709160 




0AF6 





F35E 






EOR 


3 


94 


COMPARE WITH REC RD 




80709170 




0AF7 


1 


4C18 


OB 03 




BSC 


L 


CKDTA, £- 


BR = NO PREV ERR 




80709180 




OAF 9 





4372 






BSI 


3 


114 


SET INTRPT IGNORE 


SRC 


80709190 




OAFA 





4308 






BSI 


3 


8 


PRINT VIA MLG 


SRC 


80709200 




OAFB 





A006 






DC 




/A006 


ID 06 




80709210 




OAFC 





0004 






DC 




/0004 


LINE - FORM 4 




30709220 




OAFD 





4372 






BSI 


3 


114 


SET INTRPT IGNORE 


SRC 


80709230 




OAFE 





C35E 






LD 


3 


94 


GET REC NO REAO 




80709240 




OAFF 





8124 






A 


1 


36 


ADD ONE 




80709250 




OBOO 





D20A 






STO 


2 


10 


SET AS EXPECTED 




80709260 




0B01 


1 


7401 


0AD7 




MDX 


L 


RDT8A.1 


INCR ERROR SW 




80709270 




0803 





432C 




CKDTA 


BSI 


3 


44 


GO CK DATA 


SRC 


80709230 




0B04 


1 


7400 


0AD7 




MDX 


L 


RDT8A.0 


IS ERROR SW # 




80709290 




0B06 





7027 






MDX 




RDT37 


NO-RETRY 




90709300 




0B07 





C215 




RDT30 


LD 


2 


21 


GET ERROR CTRL 




80709310 




0B08 


1 


4C18 


0B1O 




BSC 


L 


RDT19.+- 


BRANCH = NO PREV ERR 




80709320 




OBOA 





C210 






LD 


2 


16 


GET RECOVERED RD CT 




80709330 




OBOB 





8124 






A 


1 


36 


AOD ONE 




80709 340 




OBOC 





D210 






STO 


2 


16 


SAVE 




80709350 




OBOD 





4308 






BSI 


3 


8 


PRINT VIA MLG 


SRC 


80709360 




OBOE 





A003 






DC 




/A003 


ID 03 




30709370 




OBOF 





0003 






DC 




/0003 


LINE - FORM 3 




80709380 




0B10 





C106 




R0T19 


LD 


1 


6 


GET RETURN 




307093 90 




0B11 





8124 






A 


1 


36 


AOD ONE 




80709400 




0B12 





0106 






STO 


1 


6 


SAVE 




80709410 




0B13 





4080 


0006 


* 


BSC 


11 


6 


EXIT 


SX 


80709420 
80709430 












* 






9 TRACK TM RHAD 




80709440 












* 












80709450 




0B15 





C209 




RDT29 


LD 


2 


9 


GET TAPE PASS CT 




80709460 




0B16 





8300 






A 


3 





ADD 2 




80709470 




0B17 





D209 






STO 


2 


9 


SAVE 




80709480 




OB 18 





C124 






LD 


1 


36 


GET ONE 




80709490 




0B19 





D204 






STO 


2 


4 


SET TM SW 




80709500 




0B1A 





70F5 






MDX 




RDT19 






8070951° 




0B1B 





70F4 




* 


MOX 




RDT19 






80709520 
80709530 




28FEB66 01JUL66 


15MAY67 
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* 






DSW 


WAS NOT CORRECT 




80709540 


_ 








* 














80710220 














* 












80709550 










* 








UNCORRECTABLE 1 ERROR 




80710230 






0B1C 





C208 




RDT03 


LD 


2 


8 


GET SENSE WD 




80709560 










* 














80710240 






0B1D 





E0B7 






AND 




RDTXD 


CK FOR CORRECTABLE 




80709570 


0B5C 





C212 




RDT18 


LD 


2 


18 




GET UNRECOV RD CT 




807102 50 






0B1E 





4820 






BSC 




Z 


SKIP # CORRECTABLE 




80709580 


0B5D 





8124 






A 


1 


36 




ADD ONE 




80710260 






0B1F 





703C 






MDX 




R0T18 


NOT CORRECTABLE 




8070959C 


0B5E 





D212 






STO 


2 


18 




SAVE 




80710270 






0B20 





4308 






BSI 


3 


8 


GO TO PRINT VIA MLG 


SRC 


80709600 


0B5F 





430B 






BSI 


3 


11 




GO TO PRINT VIA MER 


SRC 


80710280 






0B21 





A004 






DC 




/A004 


ID 04 




80709610 


0B60 





E004 






OC 




/E004 


ID 04 




80710290 






0B22 





0002 






DC 




/0002 


LINE - FORM 2 




80709620 


0B61 





0002 






DC 




/0002 


LINE - FORM 2 




80710300 






0B23 


1 


C400 


0813 




LD 


L 


TERME5 


BYPASS CK IF ON LINE 




80709630 


0B62 





70AD 






MDX 




RDT19 


CONTINUE 




80710310 






0B25 


1 


4C20 


0B06 




BSC 


L 


RDT30-1.Z 






80709640 










* 














80710320 






0B27 





C208 






LD 


2 


8 


GET SENSE WD 




80709650 










* 








TAPE REACHED LOAO POINT- 




80710330 






0B28 





EOAB 






AND 




RDTXB 


CK WLR OR 01 AG 




80709660 










* 








DIO NOT PASS CLEANER 




80710340 






0B29 


1 


4C18 


0B2D 




BSC 


L 


RDT20.6- 


SKIP * NO RETRY 




80709670 










* 














80710350 






0B2B 


1 


7401 


0AD7 




MDX 


L 


RDT8A.1 


INCR ERROR SW 




80709680 


0B63 





4308 




RDT22 


BSI 


3 


8 




GO TO PRINT VIA MLG 


SRC 


80710360 






0B2D 





70BE 




RDT20 


MDX 




RDCKR 


GO CK HDR 




80709690 


0B64 





A005 






DC 




/A005 


ID 05 




80710370 






0B2E 





C215 




RDT37 


LD 


2 


21 


GET ERROR CONTROL 




80709700 


0B65 





0003 






DC 




/0003 


LINE - FORM 3 




80710380 






0B2F 





E0A6 






AND 




RDTYO 


SAVE REREAD CT 




80709710 










* 














80710390 






OB30 





9341 






S 


3 


65 


SUB 9 




80709720 


0B66 





C348 






LD 


3 


72 




GET 0005 




80710400 






0B31 





4818 






BSC 




£- 


IS READ CT * 9 




80709730 


0B67 





90E1 






S 




RDTXCEl 


SUB PRESENT LOC 




80710410 






0B32 





7005 




* 


MDX 




RDT15 


YES-GO PASS CLEANER 




80709740 
80709750 


0B68 
0B69 




1 


OOEO 
6780 


0B49 




STO 
LDX 


13 


RDTXCEl 
R0TXCE1 


SAVE 

IX 3 * RECS TO PASS 




80710420 
80710430 






0B33 





C215 






LO 


2 


21 


GET ERROR CONTROL 




80709760 


0B68 





70E1 






MDX 




RDT17 


GO RESTORE TAPE 




80710440 






0B34 





8124 






A 


1 


36 


ADD I 




80709770 










* *** 


*** 


*** 


*** 


*** 


*** *** **« #** *** *** 




80710450 






0B35 





0215 






STO 


2 


21 


SAVE 




80709780 










* 














80710460 






0B36 





430E 






BSI 


3 


14 


GO BACKSPACE 


SRC 


80709790 










* 








THIS IS THE BACKSPACE RTN 




80710470 






0B37 





7096 




* 


MDX 




RDTl 


GO RETRY 




807C9800 
80709810 










* 

* *** 


*** 


*** 


*** 


*** 


*** *** *** *** •** **« 




80710480 
80710490 














« 






REREAD CT HAS 9 




80709820 


0B6C 





C30E 




BSPE 


LD 


3 


14 




GET RETURN 


SE 


80710500 














* 












80709830 


0B6D 





0108 






STO 


1 


8 




SAVE RETURN 




80710510 






0B38 





C215 




ROT 15 


LD 


2 


21 


GET ERROR CTRL 




80709840 


0B6E 





4326 




BSP02 


BSI 


3 


38 




GO CK DR FOR BUSY 


SRC 


80710520 






0B39 





1808 






SRA 




8 






80709850 


0B6F 





C109 




BSP06 


LO 


1 


9 




GET FNC 6 MOD 




80710530 






0B3A 





9341 






S 


3 


65 


SUB 9 




80709860 


0B70 





4349 






BSI 


3 


73 




GO SET UPEISSUE CMO 


SRC 


80710540 






0B3B 


1 


4C18 


0B5C 




BSC 


L 


RDTl 8 t 6- 


BRANCH * CLEAN CT#10 




80709870 










* 














80710550 






0B3D 





8340 






A 


3 


64 


ADD TEN 




80709880 










* 








BACKSPACE COMPLETED 




80710560 






0B3E 





1008 






SLA 




8 






80709890 










* 














80710570 






0B3F 





D215 




* 


STO 


2 


21 


SAVE 




80709900 
80709910 


0B71 
0B72 




1 


C20A 
4C18 


0B76 


BSPI2 


LD 
BZ 


2 


10 
*+2 




GET REC CT 

SKIP SUBT. IF ALRDY 


ZERO : 


80710580 
t 80710590 














* 






BACKSPACE PAST CI EANfcR 




80709920 


0B74 





9124 






S 


1 


36 




SUB ONE 




80710600 














* 












80709930 


0B75 





D20A 






STO 


2 


10 




SAVE 




80710610 






OB 40 





6305 






LDX 


3 


5 






80709940 


0B76 





4351 






BSI 


3 


81 




GO RELEASE DEVICE 


SRC 


80710620 






0B41 





6B07 




RDT16 


STX 


3 


RDTXCEl 


SAVE IX 3 




80709950 


0B77 





4080 


0008 


BSP05 


BSC 


11 


8 




EXIT 


SX 


80710630 






0B42 





412E 






BSI 


1 


46 


SET IX 3 


SRC 


80709960 










* *** 


*** 


*** 


*** 


*** 


*** *** *** *** *** **** 


80710640 






0B43 





C20A 






LD 


2 


10 


GET REC CT 




80709970 










* 














80710650 






0B44 





9124 






S 


1 


36 


SUB ONE 




80709980 










* 








THIS IS THE REWIND ROUTINE 




80710660 






0B45 


1 


4C18 


0B63 




BSC 


L 


RDT22.E- 


IS TAPE AT 1ST REC 




80709990 










* 














80710670 






0B47 





430E 






BSI 


3 


14 


GO BACKSPACE 


SRC 


80710000 










* *** 


«** 


*** 


*** 


*** 


*** *** *** *** *»* **** 


80710680 






0B48 





6700 


0000 


RDTXC 


LDX 


L3 





RESTORE IX 3 




80710010 


0B79 





C311 




RWDE 


LD 


3 


17 




GET RETURN 


SE 


80710690 






0B4A 





73FF 






MUX 


3 


-1 


OECR IX 3 




80710020 


0B7A 





D10A 






STO 


1 


10 




SAVE RETURN 




80710700 






0B4B 





70F5 




* 


MDX 




RDT16 


LOOP 




80710030 
80710040 










* 
* 








CK 


FOR LD PT 




80710710 
80710720 














* 






RECORD IS PAST CLEANER 




80710050 










* 














80710730 














* 






REPOSITION TO REC DESIRED 




80710060 


0B7B 





4329 




RWD04 


BSI 


3 


41 




GO CK FOR AVAIL 


SRC 


80710740 














* 












80710070 


0B7C 





4326 






BSI 


3 


38 




GO CK FOR BUSY 


SRC 


80710750 






0B4C 





6305 






LDX 


3 


5 






80710080 


0B7D 





4320 






BSI 


3 


32 




GO SENSE DEVICE 


SRC 


80710760 






0B40 





6B0A 




ROT 17 


STX 


3 


RDT7AE1 


SAVE IX 3 




80710090 


0B7E 





10OC 






SLA 




12 








80710770 






0B4E 





C124 






LD 


1 


36 


GET ONE 




80710100 


0B7F 





4828 






BSC 




£Z 




IS DR AT LD PT 




80710780 






0B4F 





D107 






STO 


1 


7 


SET RETRY SW 




80710110 


OB80 





7011 






MDX 




RWDI1 


YES 




80710790 






0B50 





73FF 






MDX 


3 


-1 


OECR IX 3 




80710120 










* 














80710800 






0B51 





7002 






MDX 




RDT04 


GO SKIP 1 REC 




80710130 










* 








OK 


TO REWIND 




80710810 






0B52 





1010 






SLA 




16 






80710140 










* 














807108 20 






0B53 





D107 






STO 


1 


7 


CLEAR RETRY SW 




80710150 


0B81 





C20E 






LD 


2 


14 




GET REWIND COUNT 




80710830 






OB 54 





412E 




RDT04 


BSI 


1 


46 


SET IX 3 


SRC 


80710160 


0B82 





8124 






A 


1 


36 




ADD 1 




80710840 






0BS5 


1 


4C00 


OACE 




BSC 


L 


R0T1 


GO RETRY 




80710170 


0B83 





020E 






STO 


2 


14 




SAVE 




80710850 






0B57 





6700 


0000 


RDT7A 


LDX 


L3 





RESTORE IX 3 




80710180 


0B84 





C10B 






LD 


1 


11 




GET FNC £ MOO 




80710860 






OB 59 





73FF 






MDX 


3 


-1 






80710190 


0B85 





D202 






STO 


2 


2 




SET FNC IN DST 




80710870 






0B5A 





70F2 






MDX 




R0T17 






80710200 


0B86 





D203 






STO 


2 


3 




SET MOO IN DST 




80710880 






0B5B 





70F1 






MDX 




R0T17 






30710210 


0B87 





F201 






EOR 


2 


1 




SET AREA CODE 




80710890 




DATE 


28FEB66 01JUL66 


15MAY67 


14N0V69 30JAN70 




PROG ID 0807-1 


JATE 28FEB66 01JUL66 


15MAY67 


14N0V69 30JAN70 




PROG ID 


0807-1 


EC NO. 


415120 415178 


411731 


431319 431319A 
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0B88 


D305 




STO 


3 


5 


SET IOCC 


0B89 


7017 




MDX 




C0M3F 


GO ISSUE COMMAND 


0B8A 


4351 


RWDIR 


BSI 


3 


81 


GO RELEASE 


0B8B 


4320 


RWDI2 


BSI 


3 


32 


GO SENSE DEVICE 


0B8C 


100C 




SLA 




12 




0B8D 


4828 




BSC 




SZ 


IS DR AT LD PT 


0B8E 


7003 




MDX 




RHDI1 


YES 


0B8F 


4323 




BSI 


3 


35 


SET MLSCF ENTRY 


0B90 1 


0B8B 




DC 




RWDI2 





SRC 

sac 



SRC 



0B91 4338 



0B92 4326 

0B93 C124 

0B94 D20A 

0B95 4329 

0B96 4D80 OOOA 



********************************************** 
BSI 3 56 GO TO DIAG MON-START* 

********************************************** 
* 

DRIVE AT REC 1 OR LOAD PT 



* 








* 








RWDU 


BSI 


3 


38 


RWD08 


LD 


1 


36 




STO 


2 


10 




BSI 


3 


41 




BSC 


11 


10 



CK FOR BUSY 
GET ONE 

SET REC CT # 1 
GO CK FOR AVAIL 
EXIT 
* *** *** *** *** *** *** *** *** *** *** **** 

* 

COMMON ROUTINE TO SET UP 
IOCC, SET WD CT, SAVE THE 
DRIVE SELECTION AND ISSUE 
THE COMMAND 



SRC 



SRC 
SX 



*** *** *** *** *** *** *** *** *** *** **** 



0B98 





D202 


0B99 





D203 


0B9A 





F201 


0B9B 





D305 


0B9C 





C20F 


0B9D 





F347 


0B9E 





03 50 


0B9F 





C20A 


OBAO 





D35E 


0BA1 





C124 


0BA2 





D21A 


0BA3 





4354 


0BA4 





0B04 


0BA5 





4326 



0BA6 4338 



C0M3E STO 2 2 SET FNC IN OST SE 

STO 2 3 

EOR 2 1 

STO 3 5 

LD 2 15 

EOR 3 71 

STO 3 93 

LD 2 10 

STO 3 94 

C0M3F LD 1 36 

STO 2 26 

BSI 3 84 GO REQUEST DEVICE SRC 

XIO 3 4 

BSI 3 38 CK FOR BUSY SRC 

********************************************** 

BSI 3 56 GO TO DIAG MON START*SX 

********************************************** 
* *** *** *** *** *** *** *** *** *** *** **** 



SE 



SET FNC IN OST 
SET MOD IN DST 
SET AREA CODE 
SET IOCC 
GET WD CT 
SET NO EOT INTRPT 
SET IN I/O AREA 
GET RECORD CT 
SET IN I/O AREA £ 
GET ONE 

SET IN DR BUSY SW 
GO REQUEST DEVICE 
ISSUE COMMAND 
CK FOR BUSY 











* 






THIS 


IS THE SENSE DEVICE 










* 
* 






ROUTINE 












* *** 


*** 


*** 


*** *** *** *** *** *** *** *«* 


0BA7 





C320 




DSWEN 


LD 


3 


32 


GET RETURN 




0BA8 





D10C 




* 
* 
* 


STO 


1 


12 

BUILD 


SAVE RETURN 
IOCC 




0BA9 





C100 




DSW8 


LO 


1 


13 


GET FNC £ MOD 




OBAA 





F201 






EOR 


2 


1 


SET AREA CODE 




OBAB 





D307 






STO 


3 


7 


SET IOCC 




OBAC 





6302 




DSW13 


LDX 


3 


2 


SET FOR DOUBLE 


SENSE 


OBAD 


1 


OCOO 


097A 


DSWO 


XIO 


L 


IOCC 3 


ISSUE SENSE 




OBAF 


1 


0700 


OBBA 




STO 


L3 


DSWXO-1 


SAVE SENSE 


WORDS 


0BB1 





73FF 






MOX 


3 


-1 


DECR IX 3 




0BB2 





70FA 






MDX 




DSWO 


LOOP 




0BB3 





C008 




DSW11 


LD 




DSWX061 


GET FIRST SENSE 


; WORD 


0BB4 





F006 






EOR 




DSWXO 


COMPARE WITH SECOND 


0BB5 





4820 






BSC 




Z 


IS DRIVE FULLY 


SELEC 


0BB6 





70F5 






MDX 




0SW13 


NO SENSE AGAIN 





80710900 
80710910 
80710920 
80710970 
80710940 
8071 095C 
80710960 
30710970 
80710980 
80710990 
90711000 
90711010 
80711020 
8071103" 
90711040 
90711050 
80711060 
80711070 
90711C90 
80711090 
80711100 
90711110 
90711120 
80711130 
90711140 
3071115C 
30711160 
30711170 
80711190 
80711190 
90711200 
9071121C 
80711220 
807U230 
90711240 
80711250 
90711280 
80711290 
80711300 
80711310 
80711320 
30711330 
80711340 
80711350 
30711360 
80711370 
80711380 
30711390 
80711400 
80711410 
80711420 
80711430 
8071 1440 
30711450 
80711460 
30711470 
30711490 
80711490 
80711500 
80711510 
30711520 
80711530 
30711540 
80711550 
30711560 
80711570 
80711580 
80711590 



0BB7 





412E 






BSI 


1 


46 


SET IX 3 


0BB8 





C002 




DSWD 


LD 




DSWXO 


GET SENSE WD 


0BB9 





408 


OOOC 


* 


BSC 


11 


12 


EXIT 










* 

* 






CONSTANTS 


OBBB 





0000 




DSWXO 


DC 







SECOND SENSE STORAGE 


OBBC 





0000 






DC 




9 


FIRST SENSE STORAGE 










* *** 

* 
* 
* 


*** 


*** 


*** *** 


*** *** *** *** *** *** 














ROUTINE TO SET MLSCF ENTRY 










* *** 


*** 


*** 


*** *** 


*** *** *** *** *** *** 


OBBD 





C780 


0023 


STPSE 


LD 


13 


35 


GET ADRS TO SET 


0B8F 





D10F 






STO 


1 


15 


SAVE 


OBCO 


1 


6700 


080C 




LDX 


L3 


MLSCF£3 


IX 3 « ADRS ML MLSCF 


0BC2 





C300 






LD 


3 





GET FIRST ENTRY 


0BC3 





4820 






BSC 




z 


IS IT ZERO 


0BC4 





7C02 






MDX 




STPS2 


NO 


0BC5 





C301 






LD 


3 


1 


GET SECOND ENTRY 


0BC6 





D300 






STO 


3 





SET IN FIRST 


0BC7 





C110 




STPS2 


LD 


1 


16 


GET NEW ENTRY 


0BC8 





D301 






STO 


3 


1 


SET IN SECOND ENTRY 


0BC9 





412E 






BSI 


1 


46 


SET IX 3 


OBCA 





C323 






LD 


3 


35 


GET RETURN 


OBCB 





8124 






A 


1 


36 


ADD ONE 


06CC 





D001 






STO 




STPS6C1 


SAVE 


OBCD 





4C00 


0000 


STPS6 

* 


BSC 


L 





EXIT 










* 
* 






MONITOR RETURNS 


OBCF 





404C 




SETXO 


BSI 




SETX4 


SET IXING TO DR 


OBDO 





4D80 


OOOF 


SETX3 

* 


BSC 


11 


15 


GO TO PROPER ADRS 


0BD2 





4051 




SETXl 


BSI 




SETX5 


SET IXING TO OR 1 


0BD3 





7CFC 






MDX 




SETX3 












* *** 
* 


*** 


*** 


*** *** 


*** *** *** *** *** **** 










* 






ROUTINE TO SET INTRUPT 










* 
* 






MLSCF ENTRY 










* *** 


*** 


*** 


*** *** 


*** *** *** *** *** **** 


0BD4 





C780 


0057 


STIRE 


LD 


13 


87 


GET ADRS TO SET 


0BD6 





Dill 






STO 


1 


17 


SAVE RETURN 


0BD7 


1 


67C0 


080A 




LDX 


L3 


MLSCFS1 


IX 3 * ADR INT MLSCF 


0BD9 





C300 




STIR3 


LD 


3 





GET AN ENTRY 


OBDA 





4820 






BSC 




I 


IS IT ZERO 


OBDB 





7002 






MDX 




STIRO 


NO 


OBDC 





C301 




STIR1 


LD 


3 


I 


GET NEXT ENTRY 


OBDD 





D300 




* 
* 
* 


STO 


3 




SET 


PUSH ENTRY UP 
NEW ENTRY 


OBDE 





C112 




STIRO 


LD 


1 


18 


GET NEW ENTRY 


03DF 





D301 






STO 


3 


1 


SET AT BOTTOM 


06E0 


1 


4C00 


0856 


STIR6 


BSC 


L 


MTIR61 


EXIT 










* 






MONITOR RETURNS 


0BE2 





4039 




SETIO 


BSI 




SETX4 


SET IXING TO DR 


0BE3 





4D80 


0011 


SETI3 


BSC 


11 


17 


GO TO PROPER ADRS 


0BE5 





403E 




SETI1 


BSI 




SETX5 


SET IXING TO DR 1 


0BE6 





70FC 






MDX 




SETI3 












* *** 

* 
* 


*** 


*** 


*** *** 
ROL 


*** *** *** *** *** **** 
ITINE Tn r.HFrK nusv 



SRC 
SX 



SE 



SRC 



SX 



SRC 



SRC 



SE 



SX 



SRC 



SRC 



80711600 
80711610 
80711520 
807H630 
80711640 
807H650 
80711660 
80711670 
30711630 
80711690 
90711700 
8C711710 
80711720 
80711730 
80711740 
30711750 
80711760 
90711770 
80711780 
907117P0 
80711800 
80711810 
80711820 
80711330 
80711840 
80711850 
80711860 
80711970 
80711330 
30711890 
80711900 
80711910 
80711920 
80711930 
90711940 
80711950 
30711960 
80711970 
80711980 
80711990 
90712000 
30712010 
80712020 
80712030 
80712040 
80712050 
80712060 
80712070 
80712080 
807120Q0 
30712100 
80712110 
80712120 
80712130 
80712140 
80712150 
80712160 
80712170 
80712190 
80712190 
807122^0 
80712210 
90712220 
80712230 
80712240 
80712250 
30712260 
80712270 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



15MAY67 
411731 



14N0V69 
431319 



30JAN70 
431319A 



PROG ID 


0807-1 


3ATE 
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01JUL66 
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14N0V69 


3CJAN70 
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9 
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415120 
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411731 
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PROG ID 
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2807-1 
9A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2400 FUNCTION TEST 



PART NO. 
PA3E 



2196370 
10A 



OAfE 
EC NO. 











* 












80712280 










* 












80712960 












* *** 


*** 


*** 


*** *** *** *** *** **# *** **** 




80712290 










* *** 


*** 


*** 


*** *** 


*** *** *** *** *** **** 


80712970 




0BE7 





C326 




CKBSE 


LD 


3 


38 


GET RETURN 


SE 


80712300 


OClC 





0000 




SETX4 


DC 









SE 


80712980 




0BE8 





D113 






STO 


1 


19 


SAVE 




80712310 


0C1D 


1 


6500 


08D6 




LDX 


LI 


DROTB 






80712990 




0BE9 


1 


7400 


0953 


BSY03 


MOX 


L 


DST0626.0 


IS DR BUSY 




80712320 


0C1F 


1 


6600 


0939 




LDX 


L2 


DSTO 






80713000 




OBEB 





7000 






MDX 




BSY01 


YES 




80712330 


0C21 





412E 






BSI 


1 


46 


SET IX 3 


SRC 


80713010 




OBEC 





1010 






SLA 




16 


ZERO ACCUM 




80712340 


0C22 


1 


4C80 


OClC 




BSC 


I 


SETX4 


EXIT 


SX 


80713020 




OBED 





0028 






STO 




BSYX2 


CLEAR BUSY COUNT 




80712350 










* *** 


*** 


*** 


*** *** 


*** *** *** *** *** **** 


80713030 




OBEE 


1 


7400 


0970 


BSY04 


MDX 


L 


DST1S26.0 


IS OR 1 BUSY 




80712360 










* 












80713040 




OBFO 





7013 






MDX 




BSY05 


YES 




80712370 










* 






ROUTINE TO SET INDEXING 




80713050 




0BF1 





1010 






SLA 




16 


ZERO ACCUM 




80712380 










* 






TO 


ORIVE 1 VALUES 




80713060 




0BF2 





0024 






STO 




BSYX3 


CLEAR BUSY COUNT 




80712390 










* 












80713070 




0BF3 





4320 






BSI 


3 


32 


SENSE DR TO SELECT 


SRC 


80712400 










* *** 


*** 


*** 


*** *** 


*** *** *** *** *** **** 


: 


80713080 




0BF4 





1801 






SRA 




1 






80712410 


0C24 





0000 




SETX5 


DC . 









SE 


80713090 




0BF5 


1 


4C04 


OCOO 




BSC 


L 


BSY02.E 


BRANCH # DR BUSY 




80712420 


0C25 


1 


6500 


0909 




LDX 


LI 


DR1TB 






80713100 




0BF7 





4080 


0013 


* 


BSC 


11 


19 


EXIT 


SX 


80712430 
80712440 


0C27 
0C29 


1 




6600 
412E 


0956 




LDX 
BSI 


L2 

1 


DST1 
46 


SET IX 3 


SRC 


80713110 
80713120 












* 






DRIVE 


I S BUSY 




80712450 


0C2A 


1 


4C80 


0C24 




BSC 


I 


SETX5 


EXIT 


SX 


80713130 












* 












80712460 










* *** 


*** 


*** 


*** *** 


*** *** *** *** *** *** 




80713140 




0BF9 


1 


740A 


0C16 


BSY01 


MDX 


L 


BSYX2.10 


IS DR BUSY TOO LONG 




80712470 










* 












80713150 




OBFB 





7004 






MDX 




BSY02 


NO 




80712480 










* 






ROUTINE TO CK AVAILABLE 




80713160 












* 












80712490 










* 












80713170 












* 












80712500 










* *** 


*** 


*** 


*** *** 


*** *** *** *** *** *** 




80713180 




OBFC 





1010 






SLA 




16 






80712510 


0C2C 





C329 




CKAVE 


LD 


3 


41 


GET RETURN 


SE 


80713190 




OBFD 





D018 






STO 




BSYX2 


ZERO BUSY COUNT 




80712520 


0C2D 





D114 






STO 


1 


20 


SAVE 




80713200 




OBFE 





4010 






BSI 




SETX4 


SET IXING DR 


SRC 


80712530 


0C2E 


1 


7400 


0954 


AVL02 


MOX 


L 


DST0E27, 


,0 IS DR AVAIL 




80713210 




OBFF 





700A 






MDX 




BSY08 


GO PRINT 




80712540 


0C30 





7007 






MDX 




AVL01 


NO 




80713220 




OCOO 





C12D 




BSY02 


LD 


1 


45 


GET LOST INT VECT 




80712550 


0C31 


1 


7400 


0971 




MDX 


L 


DST1E27, 


.0 IS DR 1 AVAIL 




80713230 




0C01 


1 


D400 


0809 




STO 


L 


MLSCF 


SET 




80712560 


0C33 





7004 






MDX 




AVL01 


NO 




80713240 












********************************************** 




80712570 


0C34 





1010 






SLA 




16 


ZERO ACCUM 




80713250 




0C03 





4338 




BSY07 


BSI 


3 


56 


GO TO DIAG MON-START* 




80712580 


0C35 





OOOC 






STO 




AVLX1 


CLEAR NOT AVAIL CT 




80713260 












********************************************** 




80712590 


0C36 





4080 


0014 




BSC 


11 


20 


EXIT 


SX 


80713270 












* 












80712600 










* 












80713280 












* 






DRIVE 


1 IS BUSY 




80712610 


0C38 


1 


7401 


0C42 


AVL01 


MDX 


L 


AVLX1.1 


DR NOT AVAIL TOO LNG 




80713290 












* 












80712620 


0C3A 





7004 






MOX 




AVL03 


NO 




80713300 




0C04 


1 


740A 


0C17 


BSY05 


MDX 


L 


BSYX3,10 


IS DR BUSY TOO LONG 




80712630 


0C3B 





430B 






BSI 


3 


11 


GO PRINT VIA MER 


SRC 


80713310 




0C06 





70F9 




* 
* 


MDX 




BSY02 


NO 




80712640 
80712650 
80712660 


0C3C 
0C3D 
0C3E 







E005 
0000 
434C 






DC 
DC 
BSI 


3 


/E005 
/OOOO 
76 


ID 05 

LINE - FORM 

YES GO TO RTN EXIT 


SRC 


80713320 
80713330 
80713340 




0C07 





1010 






SLA 




16 






80712670 


0C3F 





4323 




AVL03 


BSI 


3 


35 


GO SET MLSCF ENTRY 


SRC 


80713350 




0C08 





DOOE 






STO 




BSYX3 


ZERO BUSY COUNT 




80712680 


0C40 


1 


0C2E 






DC 




AVL02 






80713360 




0C09 





401A 






BSI 




SETX5 


SET IXING DR 1 




80712690 










******************************* *************** 


80713370 












* 












80712700 


0C41 





4338 






BSI 


3 


56 


GO TO DIAG MON-START* 


t 


80713380 




OCOA 





430B 




BSY08 


BSI 


3 


11 


GO TO PRINT VIA MER 


SRC 


80712710 










********************************************** 


80713390 




OCOB 





E006 






DC 




/E006 


ID 06 




80712720 










* 












80713400 




ococ 





0009 






DC 




/0009 


LINE FORM 9 




80712730 










* 






CONSTANT 




80713410 




OCOO 





C10D 






LD 


1 


13 


GET SENSE FNC 




80712740 










* 












80713420 




OCOE 





F201 






EOR 


2 


1 


SET AREA CODE 




80712750 


0C42 





0000 




AVLxl 


DC 







NOT AVAIL COUNT 




80713430 




OCOF 





D307 






STO 


3 


7 


STORE 




80712760 










* *** 


*** 


*** 


*** *** 


*** *** *** *** *** *** 




80713440 




0C10 





0B06 






XIO 


3 


6 


SENSE NON-RESETABLE 




80712770 










* 












80713450 




0C11 





C307 






LO 


3 


7 


GET IOCC 




80712780 










* 






COMPARE ROUTINE 




80713460 




0C12 





F124 






EOR 


1 


36 


SET BIT 15 




80712790 










* 












80713470 




0C13 





D307 






STO 


3 


7 


SAVE 




80712800 










* *** 


*** 


*** 


*** *** 


*** *** *** *** *** *** 




80713480 




0C14 





0B06 






XIO 


3 


6 


SENSE-RESETABLE 




807128 10 


0C43 





C20F 




MRCDE 


LD 


2 


15 


GET WD CT 




80713490 




0C15 





434C 




* 


BSI 


3 


76 


GO TO RTN EXIT 




80712820 
80712830 


0C44 
0C46 


1 




8400 
D034 


0D25 




A 
STO 


L 


MER 0961 
MRC2361 


ADO ADRS I0AG1 
SAVE 




80713500 
80713510 












* 






CONSTANTS 




80712840 


0C47 





004 8 






STO 




PATWDtU 






80713520 












* 












80712850 


0C48 





6301 






LDX 


3 


1 


SET TO LINE/FORM 




80713530 




0C16 





0000 




BSYX2 


DC 







DR BUSY CT 




80712860 


0C49 





6B52 






STX 


3 


MRCOA 


SAVE 




80713540 




0C17 





0000 




BSYX3 


DC 







OR 1 BUSY CT 




80712870 


0C4A 





6938 






STX 


1 


MRTER61 


SAVE IX 1 




80713550 




0C18 





4003 




LIVO 


BSI 




SETX4 


SET IXING TO DR 


SRC 


80712880 


0C4B 





694B 






STX 


1 


MRC08S1 






80713560 




0C19 





70CF 






MDX 




BSY03 






80712890 


0C4C 





C124 






LD 


1 


36 


GET ONE 




80713570 




0C1A 





4009 




LIV1 


BSI 




SETX5 


SET IXING TO DR 1 


SRC 


80712900 


0C4D 





D020 






STO 




MRCXC 






80713580 




0C1B 





70CD 






MOX 




BSY03 






80712910 


0C4E 





C580 


0006 


MRC22 


LD 


11 


6 


GET FORMAT 




80713590 












* *** 


*** 


*** 


*** *** *** *** *** *** *** **** 


807129 20 


0C50 





D004 






STO 




MRC24+1 


SET FORMAT 




80713600 












* 












80712930 


0C51 





1801 






SRA 




1 






80713610 












* 






ROUTINE TO SET INDEXING 




80712940 


0C52 


1 


4C04 


0C6F 




BSC 


L 


MRCDltE 


IS FORMAT # 2 




80713620 












* 






TO DRIVE VALUES 




80712950 


0C54 





6700 


0000 


MRC24 


LDX 


L3 





IX F FORMAT OR I 




80713630 




28FEB66 01JUL66 


15MAY67 


14N0V69 30JAN70 




PROG ID 0807-1 


DATE 28FEB66 01JUL66 


15MAY67 


14N0V69 30JAN70 




PROS I D 


0807-1 


415120 415178 


411731 


431319 431319A 
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10A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2400 FUNCTION TEST 



PART NO. 2196370 
PA3E UA 





0C56 


1 


C700 


0E13 




LO 


L3 


F04X2 


GET PATTERN ADRS 


80713640 


0CA3 


1 


C400 


0802 






LD 


L 


swo 


GET SW FNC 




80714320 






0C58 





D009 




* 


STO 




MRC10+1 


SET 


80713650 
80713660 


0CA5 
0CA6 







1805 
4804 








SRA 
BSC 




5 
E 


IS SW 10 ON 




80714330 
80714340 














* 






PORTION COMMON TO FORMAT 


80713670 


OCA 7 





7CD8 








MDX 




MRCOC 


YES 




80714350 














* 






ZERO 


AND ONE 


80713680 


OCAS 


1 


4C80 


0C89 






BSC 


I 


MRC09 


RETURN 




80714360 














* 










80713690 










* 














80714370 






0C59 





63EE 




MRC03 


LDX 


3 


-18 


IX 3 * NUMBER WORDS 


80713700 










* 








CONSTANT 




80714390 






0C5A 





61F7 






LDX 


1 


-9 


IX 1 f NUMBER PATT 


80713710 










* 














80714390 






0C5B 


1 


74FF 


0C90 




MOX 


L 


PATWO&l,- 


1 


80713720 


OCAA 





8C01 




MRCX5 


DC 




/8001 


LINE NOT 




80714400 






0C5D 


1 


4400 


09E6 


MRC01 


BSI 


L 


INTIG 


GO SET INT IGNORE SRC 


80713730 










* 


*** 


*#* 


*** 


*** *** 


*** «** *** *** *** 


**** 


80714410 






0C5F 


1 


7401 


0C6E 




MDX 


L 


MRCXC, 1 


ADD 1 TO CK WD CT 


80713740 










* 














80714420 






0C61 





C500 


0000 


MRC10 


LD 


LI 





GET PATTERN WD 


80713750 










* 








ROUTINE TO SET UP FOR 




80714430 






0C63 





D216 






STO 


2 


22 


SET IN DST 


80713760 










* 








PRINT 




80714440 






0C64 


1 


F700 


09E5 




EOR 


L3 


I0A&20 


COMPARE WITH WD RO 


80713770 










* 














80714450 






0C66 


1 


4420 


0C89 




BSI 


L 


MRC09.Z 


BRANCH » NO COMPARE 


80713780 










* 


*** 


*** 


*** 


*** *** 


*** *** *#* *** **# 


**** 


90714460 






0C68 





7101 






MDX 


1 


1 


DECR IX 1 


80713790 


OCAB 





C308 




MLGE 


LD 


3 


8 


GET RETURN 


SE 


90714470 






0C69 





7001 






MDX 




MRC02 


GO DECR IX 3 


30713800 


OCAC 





D00 3 








STO 




MERF 


SAVE 




90714480 






0C6A 





61F7 






LDX 


1 


-9 


RELOAD IX 1 


90713810 


OCAD 





C124 








LD 


1 


36 


GET ONE 




80714490 






0C6B 





7301 




MRC02 


MDX 


3 


1 


DECR IX 3 


80713820 


OCAE 





D115 




MLG03 


STO 


1 


21 


SET IN LOG/ERROR 


SW 


80714500 






0C6C 





70F0 






MDX 




MRC01 


LOOP 


80713830 


OCAF 





7005 








MDX 




MER14 


GO TO COMMON PORTION 


80714510 






0C6D 





7012 






MDX 




MRCOC 


GO EXIT 


807138 40 


OCBO 





0000 




MERF 


DC 







RETURN STORAGE 




80714520 






0C6E 





0000 




MRCXC 


DC 







WD CT FOR CK 


80713850 










* 


#** 


*** 


*** 


*♦* *** 


*** *** *** *** *** 


*** 


80714530 














* 










80713860 


0CB1 





C30B 




MER IE 


LD 


3 


11 


GET RETURN 




80714540 














* 






FORMAT IS TWO 


80713870 










* 


*** 


*** 


*** 


*** *#* 


*** ♦** *** *** *** 


*** 


80714550 














* 










80713880 


0CB2 





DOFD 








STO 




MERF 


SAVE 




80714560 






0C6F 





1010 




MRCD1 


SLA 




16 


ZERO ACCUM 


80713890 


0CB3 





1010 








SLA 




16 






80714570 






0C70 





920F 






S 


2 


15 


GET WD CT COMPL 


80713900 


0CB4 





70F9 








MDX 




MLG03 






80714590 






0C71 





8124 






A 


1 


36 


ADD 1 


80713910 










* 














80714590 






0C72 





D001 






STO 




MRC0561 


SAVE 


80713920 










* 








COMMON PORTION 




80714600 






0C73 





6700 


0000 


MRC05 


LDX 


L3 





IX 3 # WD CT - 1 


80713930 










* 














80714610 






0C75 


1 


4400 


09E6 


MRC06 


BSI 


L 


INTIG 


GO SET INT IGNORE SRC 


80713940 


0CB5 





C116 




MER14 


LD 


1 


22 


GET MSG ADR 




90714620 






0C77 


1 


7401 


0C6E 




MDX 


L 


MRCXC, 1 


ADD 1 TO CK WD CT 


80713950 


0CB6 





002D 








STO 




MERX3 


SAVE 




80714630 






0C79 





C216 






LD 


2 


22 


GET PATTERN WD 


80713960 


0CB7 





C21C 








LD 


2 


28 


GET RTN NUMBER 




80714640 






0C7A 





F700 


0000 


MRC23 


EOR 


L3 





COMPARE WITH DATA 


80713970 


0CB8 


1 


0400 


0800 






STO 


L 


RID 


SAVE 




80714650 






0C7C 


1 


4420 


0C89 




BSI 


L 


MRC09.Z 


BRANCH # NO COMPARE 


80713980 


OCBA 


1 


6780 


0800 






LDX 


13 


RID 


IX 3 * RTN 




80714660 






0C7E 





7301 






MDX 


3 


1 


DECR IX 3 


80713990 


OCBC 


1 


C700 


0A48 






LD 


L3 


MONXB 


GET ROUTINE ADRS 




80714670 






0C7F 





70F5 




* 


MDX 




MRC06 


LOOP 


80714000 
80714010 


OCBE 
OCCO 


1 
1 


D400 
6780 


0801 
0CE4 






STO 
LDX 


L 
13 


RAD 
MERX3 


SAVE 

IX 3 # MSG AORS 




80714680 
80714690 














* 






ALL 


WORDS ARE CHECKED 


80714020 


0CC2 


1 


C480 


OCBO 






LD 


I 


MERF 


GET MSG ID 




80714700 














* 










80714030 


0CC4 





D302 








STO 


3 


2 


SET IN MSG 




80714710 






0C80 


1 


6700 


0974 


MRCOC 


LDX 


L3 


MTTWO 


IX3#ADRS COMMON TBL 


80714040 


0CC5 


1 


7401 


OCBO 






MDX 


L 


MERF.l 


£1 TO RETURN 




80714720 






0C8 2 





6500 


0000 


MRTER 

* 


LDX 


LI 





RESTORE IX 1 


80714050 
80714060 


0CC7 
0CC9 


1 




C480 
001A 


OCBO 






LD 

STO 


I 


MERF 
MERX3 


GET LINE NO/FORM 
SAVE 


N3 


80714730 
80714740 






0C84 





1010 






SLA 




16 


ZERO ACCUM 


80714070 


OCCA 


1 


7401 


OCBO 






MDX 


L 


MERF.l 


£1 TO RETURN 




80714750 






0C8 5 





D400 


0133 




STO 


L 


CKCR 


CLEAR INT IGNORE 


80714080 


OCCC 





C0E3 








LD 




MERF 


GET RETURN 




30714760 






0C87 





4F80 


002C 


* 
* 
* 


BSC 


13 


44 

DATA 


EXIT SX 
DID NOT COMPARE 


80714090 
80714100 
80714110 
80714120 


OCCD 
OCCE 
OCCF 

OCDO 








D117 
C015 
1808 
1008 








STO 
LD 
SRA 
SLA 


1 


23 

MERX3 
8 

8 


SAVE 

GET LINE/FORM NO 

SAVE LINE 




80714770 
80714780 
80714790 
80714800 






0C89 





0000 




MRC09 


DC 









80714130 


0CD1 





D300 








STO 


3 





STORE LINE IN MSG 


80714810 






0C8A 


1 


4400 


09E6 




BSI 


L 


INTIG 


GO SET INT IGNORE SRC 


80714140 










* 














80714820 






0C8C 


1 


7401 


0A07 




MDX 


L 


RDT8A,1 


INCR ERROR SW 


80714150 










* 








CHECK FORM 




80714830 






0C8E 





1000 






NOP 








90714160 










* 














80714840 






0C8F 





C700 


0000 


PAT WD 


LD 


L3 





GET WD IN ERROR 


80714170 


0CD2 





con 








LD 




MERX3 


GET LINE/FORM 




80714850 






0C91 





D217 






STO 


2 


23 


SAVE 


80714180 


0CD3 





1008 








SLA 




8 


SAVE FORM 




80714860 






0C92 





690D 






STX 


1 


MRTE1S1 


SAVE IX 1 


80714190 


0CD4 





1808 








SRA 




8 






80714870 






0C93 





6B0E 






STX 


3 


MRCOFtU 


SAVE IX 3 


80714200 


0CD5 





800D 








A 




MER05 


ADD TBL ADR 




80714380 






0C94 


1 


6700 


0974 




LDX 


L3 


MTTWO 


IX 3#ADR COMMON TBL 


80714210 


0CD6 





D001 








STO 




MER11S1 






80714890 






0C96 





6500 


0000 


MRC08 


LDX 


LI 





RESTORE IX 1 


80714220 


0CD7 





4C80 


0000 


MER 11 


BSC 


I 









80714900 






0C98 





C0D5 






LD 




MRCXC 


GET WD CT FOR CK 


80714230 










* 














307149 10 






0C99 





D20B 






STO 


2 


11 


SET IN DST 


80714240 










* 








FORM TABLE 




80714920 






0C9A 





430 B 






BSI 


3 


11 


GO TO PRINT VIA MER SRC 


80714250 










* 














80714930 






0C9B 





E007 






DC 




/E007 


ID 07 


80714260 


0CD9 


1 


0CE5 




MER 04 


DC 




MER03 


FORM 




80714940 






0C9C 





0001 




MRCOA 


DC 




/OOOl 


LINE FORM 1 


80714270 


OCDA 


1 


ODOA 








DC 




MER06 


1 




80714950 






K90 





COOC 






LD 




MRCX5 


GET NOT LINE 


80714290 


OCDB 


1 


0D17 








DC 




MER07 


2 




80714960 






0C9E 





OOFD 






STO 




MRCOA 




807142 90 


OCDC 


1 


0D21 








DC 




MER08 


3 




80714970 






0C9F 





6500 


0000 


MRTE1 


LDX 


LI 





RESTORE IX 1 


80714300 


OCDD 


1 


0D24 








DC 




MER09 


4 




80714980 






0CA1 





6700 


0000 


MRCOF 


LDX 


L3 





RESTORE IX 3 


80714310 


OCDE 


1 


002 8 








DC 




MER12 


5 




80714990 




OATE 


28FEB66 01JUL66 


15MAY67 


14N0V69 30JAN70 


PROG ID 0807-1 


DATE 28FEB66 01JUL66 


1 


15MAY67 


14N0V69 


30JAN70 




PROS ID 


0807-1 


EC NO. 


415120 415178 


411731 


431319 431319A 


PAGE 11 


EC NO. 415120 415178 


411731 


431319 


431319A 




PAGE 


11A 
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OCDF 


1 


0D39 




DC 




MER13 


6 


OCEO 


1 


0039 




DC 




MER13 


7 


0CE1 


1 


003E 




DC 




MER17 


8 


0CE2 


1 


00*7 




DC 




MER18 


9 


0CE3 


1 


0CO9 


MER05 


DC 




MER04 


ADRS OF TBL 


0CE4 





0000 


MERX3 

* 
* 


DC 







TEMP STORAGE 
FORM IS 


0CE5 





C124 


MER03 


LD 


1 


36 


GET ONE 


0CE6 





F300 




EOR 


3 





SET 


0CE7 





D300 




STO 


3 







0CE8 





6B06 


MER01 


STX 


3 


MER02 


SET MSG AORS IN ' 


0CE9 





6B1B 




STX 


3 


MLG02 




OCEA 





C115 




LD 


1 


21 


GET LOG/ERROR SW 


OCEB 





4820 




BSC 




Z 


SKIP # ERROR 


OCEC 





700D 




MDX 




MLG01 


GO TO LOG 



OCEO 4480 0130 
OCEF 0000 
OCFO 1 0D4E 
OCFl 1 0D66 



********************************************** 
MERY4 BSI I ERROR GO PRINT * 

MER02 DC ADR OF MSG * 

DC MERYO BUSY RETURN * 

DC MERLO LOOP ON ERROR ADR * 
********************************************** 



0CF2 





412E 




CLTER 


BSI 


1 


46 


SET IX 3 


0CF3 





4D80 


0017 


* 
* 
* 


BSC 


11 


23 

BUSY 


EXIT 
RETURN 


0CF5 





C116 




MERY1 


LD 


1 


22 


GET ADRS OF MSG 


0CF6 





D001 






STO 




MERY2E1 


SAVE 


0CF7 





6700 


0000 


MERV2 


LDX 


L3 





IX 3 1 AORS OF MSG 


0CF9 





70EE 




* 
* 


MDX 




MER01 

CALL 


LOG 


OCFA 





C302 




MLG01 


LD 


3 


2 


GET MSG ID 


OCFB 





FOOD 






EOR 




MLGXO 




OCFC 


1 


4C18 


0D03 




BSC 


L 


MLG04.E- 


BRANCH # PROG COMP 


OCFE 


1 


C400 


0802 




LD 


L 


SWO 




ODOO 





1802 






SRA 




2 




0D01 


1 


4C04 


0CF2 




BSC 


L 


CLTER, E 


BRANCH IF BYPASS V 



SRC 
SX 



0D03 4480 012F 
0D05 0000 
0D06 1 0D4E 
0D07 0000 



********************************************** 
MLG04 BSI I LOG GO PRINT * 

MLG02 DC ADR OF MSG * 

DC MERYO BUSY RETURN * 

MLTER DC TERM AORS * 

********************************************** 



0D08 





70E9 


0009 





D001 


OOOA 





C20B 


ODOB 





D305 


ODOC 





C216 


ODOD 





D306 


ODOE 





C20A 


ODOF 





9124 


0D10 





D304 


0D11 





C217 


0D12 





0307 


0D13 





C300 


0D14 





F031 


0015 





D300 


0D16 





7001 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



MDX 

MLGXO OC 

* 

* 

* 

MER06 LD 
STO 
LD 
STO 
LD 
S 

STO 
LD 

MER19 STO 
LD 
EOR 
STO 
MDX 

* 

* 



15MAY6 7 
411731 



CLTER 
/D001 



ID Old PROG COMPLETE 



FORM IS 1 



11 

5 

22 

6 

10 

36 

4 

23 

7 



MERY5 



MER01 



GET WD CT FOR CK 

SET IN MSG 

GET PATTERN WD 

SET IN MSG 

GET REC CT 

SUB 1 

SET IN MSG 

GET WD READ 

SET IN MSG 

GET LINE NO 

SET WD CT # 5 

GO PRINT 



FORM IS 2 



14N0V69 
431319 



30JAN70 
431319A 



80715000 

80715010 

80715020 

807150 30 

80715040 

80715050 

80715060 

80715070 

80715080 

80715090 

80715100 

80715110 

80715120 

80715130 

80715140 

80715150 

80715160 

80715170 

80715180 

80715190 

80715200 

80715210 

80715220 

80715230 

80715240 

80715250 

80715260 

80715270 

80715280 

80715290 

80715300 

80715310 

80715320 

80715330 

80715340 

80715350 

80715360 

80715370 

80715380 

80715390 

80715400 

80715410 

80715420 

80715430 

80715440 

80715450 

80715460 

80715470 

80715480 

80715490 

80715500 

80715510 

80715520 

80715530 

80715540 

80715550 

80715560 

80715570 

80715580 

80715590 

80715600 

80715610 

80715620 

80715630 

80715640 

80715650 

80715660 

80715570 



PROG ID 
PAGE 



0807-1 
12 









* 










80715680 






0D17 


C208 


MER07 LD 


2 8 




GET DSW 




80715690 






0D18 


0305 


STO 


3 5 




SET IN MSG 




80715700 






0D19 


C20A 


MER10 LD 


2 10 




GET REC CT 




80715710 






001A 


9124 


S 


1 36 




SUB ONE 




80715720 






0D1B 


0304 


STO 


3 4 




SET IN MSG 




80715730 






0D1C 


C300 


MER16 LD 


3 








80715740 






0D1D 


F002 


EOR 


MERX4 




SET WC 




80715750 






0D1E 


D300 


STO 


3 








80715760 






0D1F 


70C8 


MDX 


MER01 




GO PRINT 




80715770 






0D20 


0003 


MERX4 DC 

* 
* 
* 


3 

1 


: 0RM 


WD CT # 3 
IS 3 




80715780 
80715790 
80715800 
80715810 






0D21 


C215 


MER08 LD 


2 21 




GET ERROR CTRL 




80715820 






0022 


0305 


STO 


3 5 




SET IN MSG 




80715830 






0D23 


70F5 


MDX 

* 


MER10 




SET WC 




80715840 
80715850 










* 


FORM 


IS 4 




80715860 










* 










80715870 






0D24 1 


C400 09D2 


MER09 LD 


L I0AE1 




GET REC NO READ 




80715880 






0D26 


D305 


STO 


3 5 




SET IN MSG 




80715890 






0D27 


70F1 


MOX 

* 
* 
* 


MER10 

1 


: ORM 


GO COMPLETE MSG 
IS 5 




80715900 
80715910 
80715920 
80715930 






0D28 


C218 


MER12 LD 


2 24 




GET PROG CT 




80715940 






0D29 


D304 


STO 


3 4 




SET IN MSG 




80715950 






0D2A 


C20C 


LD 


2 12 




GET TOTAL WRT CT 




80715960 






0D2B 


D305 


STO 


3 5 




SET IN MSG 




80715970 






0D2C 


C200 


LD 


2 13 




GET TOTAL RD CT 




80715980 






0D2D 


0306 


STO 


3 6 




SET IN MSG 




80715990 






002E 


C20E 


LD 


2 14 




GET TOTAL RHD CT 




80716000 






0D2F 


D307 


STO 


3 7 




SET IN MSG 




80716010 






0030 


C214 


LD 


2 20 




GET TOTAL ERASE CT 


80716020 






0031 


0308 


STO 


3 8 




SET IN MSG 




80716030 






0D32 


C209 


LD 


2 9 




GET TOTAL TAPE PASS 


80716040 






0D33 


D309 


STO 


3 9 




SET IN MSG 




80716050 






0D34 


C300 


LD 


3 




GET LINE 




80716060 






0D35 


F002 


EOR 


MERX9 




SET WD CT 




80716070 






0D36 


0300 


STO 


3 








80716080 






0D37 


70B0 


MOX 


MER01 




GO PRINT 




80716090 






0D38 


0007 


MERX9 DC 

* 
* 
* 


7 


FORM 


WO CT # 7 
IS 6 OR 7 




80716100 
80716110 
80716120 
80716130 






0039 


C206 


MER13 LO 


2 6 




GET EXP WO CT 




80716140 






0D3A 


D304 


STO 


3 4 




SET IN MSG 




80716150 






0D3B 


C205 


LO 


2 5 




GET REC WD CT 




80716160 






0D3C 


D305 


STO 


3 5 




SET IN MSG 




80716170 






0D3D 


70DE 


MDX 

* 
* 
* 


MER16 


FORM 


GO SET MSG WD CT 
IS 8 




80716180 
80716190 
80716200 
80716210 






0D3E 


C210 


MER17 LD 


2 16 




GET RECOVERED RD 


CT 


80716220 






0D3F 


D304 


STO 


3 4 




SET IN MSG 




80716230 






0040 


C211 


LD 


2 17 




GET RECOVERED WT 


CT 


80716240 






0D41 


D305 


STO 


3 5 




SET IN MSG 




80716250 






0D42 


C212 


LD 


2 18 




GET UNRECOVERED 


READ 


80716260 






0D43 


D306 


STO 


3 6 




SET IN MSG 




80716270 






0044 


C213 


LD 


2 19 




GET UNRECOVERED 


WRT 


80716280 






0D45 


70CC 


MDX 


MER19 




GO COMPLETE MSG 




80716290 






0D46 


0005 


MERY5 DC 

* 
* 
* 


5 


FORM 


WO CT # 5 
IS 9 




80716300 
80716310 
80716320 
80716330 






0D47 


C203 


MER18 LD 


2 3 




GET FNC E MOD 




80716340 






0D48 


D304 


STO 


3 4 




SET IN MSG 




80716350 




3 ATE 


28FEB66 01JUL66 


15MAY67 


14N0V69 


30JAN70 




PROG ID 


0807-1 


eC NO. 


415120 415178 


411731 


431319 


431319A 




PAGE 


12A 
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0049 


C300 






LD 


3 





0D4A 1 


F400 


0974 




EOR 


L 


MTTWO 


004C 


0300 






STO 


3 





0D4D 


709A 




* 
* 
* 
MERYO 


MDX 




MER01 

I 


0D4E 


412E 




BSI 


1 


t 

46 


004F 


4323 






BSI 


3 


35 


0050 1 


0CF5 






DC 




MERY1 



0051 4338 



0052 





0000 


0D53 





0000 


0054 





0000 


0D55 





0000 


0056 





0000 


0D57 





0000 


0058 





0000 


0059 





0000 


0D5A 





0000 


005B 





0000 



005 C 0000 
0D5D 0000 
0D5E 0000 



005F 





0001 


006 





0000 


0D61 





0000 


0D62 





0000 


0D63 





0000 


0D64 





0000 


0D6 5 





0000 



0D66 
0067 
0D68 
0069 
0D6B 
006C 
0D6D 



GET LINE NO 

SET WD CT # 2 

SAVE 

GO PRINT 

BUSY RETURNS 

SET IX 3 

SET MLSCF ENTRY 



SRC 
SRC 



********************************************** 

BSI 3 56 GO TO DUG HON START* 

********************************************** 

* 

DR MSG 



* 
* 
MERXO 



DC 
DC 
DC 



DC 
DC 
DC 
DC 
DC 
DC 
DC 



* 
* 
* 
MERxl 



* 
* 



DC 
DC 
DC 



LINE NO/WD CT 





HEX/DEC SW 


1 


MSG ID 


2 


UNIT NUMBER 


3 


MOD 


4 


MOD 1 


5 


MOD 2 


6 


MOD 3 


7 


MOD 4 


S 


MOD 5 


9 



DR 1 MSG 



LINE NO/WD CT 





HEX/DEC SW 


1 


MSG ID 


2 


UNIT NUMBER 


3 


MOD 


4 


MOD 1 


5 


MOD 2 


6 


MOD 3 


7 


MOD 4 


8 


MOD 5 


9 



4323 

0A2D 

1010 

D400 08CC 

02 1A 

021B 

4351 



0D6E 4338 



DC 

DC 

DC 

DC 

DC 

DC 

DC 
* 
* 
* 
MERLO BSI 

DC 
MERL1 SLA 

STO 

STO 

STO 

BSI 
********************************************** 

BSI 3 56 GO TO DIAG MON START* 

********************************************** 

* *** *** *** *** *** *** *** *** *** *** **** 
* 

* ROUTINE TO SET I/O AREA 
* 

* *** *** *** *** *** *** *** *** *** *** **** 



35 

M0N09 

16 

ACMT 

26 

27 

81 



LOOP ON ERROR ENTRIES 

GO SET MLSCF ENTRY 

ZERO ACCUM 
SET IN DR SEL 
SET IN DR BUSY SW 
SET IN DR AVAL SW 
GO RELEASE DEVICE 



SRC 



SRC 



0D6F 


C20F 




MRSCE 


LD 


2 


15 


GET WD CT 


0D70 


D001 






STO 




MRSC1E1 




0D71 


6700 


0000 


MRSC1 


LDX 


L3 





IX 3 # WD CT 


0D73 1 


C480 


09 A 3 




LD 


I 


MRSC 


GET DATA WD 


0075 1 


D700 


0901 


MRSC2 


STO 


L3 


IOA 


SET IN 1/0 AREA 


0D77 


73FF 






MDX 


3 


-1 


DECR IX 3 


0078 


70FC 






MDX 




HRSC2 


LOOP 



SE 



80716360 
80716370 
80716380 
80716390 
80716400 
80716410 
80716420 
80716430 
80716440 
80716450 
80716460 
80716470 
80716480 
80716490 
80716500 
80716510 
80716520 
80716530 
80716540 
80716550 
80716560 
80716570 
80716580 
80716590 
80716600 
80716610 
80716620 
80716630 
80716640 
80716650 
80716660 
80716670 
80716630 
80716690 
80716700 
80716710 
80716720 
80716730 
90716740 
80716750 
80716760 
80716770 
80716780 
80716790 
80716800 
80716810 
80716820 
80716830 
80716840 
80716850 
80716860 
80716870 
80716880 
80716890 
80716900 
80716910 
80716920 
80716930 
80716940 
80716950 
90716960 
80716970 
80716980 
80716990 
80717000 
80717010 
80717020 
80717030 



0D79 1 7401 09A3 
0D7B 412E 
0D7C 1 4C80 09A3 



MDX L MRSC1 £1 TO RETURN 
BSI 1 46 SET IX 3 SRC 

BSC I MRSC RETURN SX 

* *** *** *** *** *** *** *** *** *** *** **** 
* 

ROUTINE TO SAVE DRIVE 
SELECTION FOR USE BY THE 
INTERRUPT ROUTINE 



* 
* 
* 
* 
* *** *** *** *** *** *** *** *** *** *** **** 



0D7E 
0D7F 
0D80 
0D82 
0D84 
0D85 



C35A 
D10E 

C400 08CC 
4C20 0D8A 
C201 



F125 

0D86 1 D400 08CC 
0D88 4D80 OOOE 



STACE LD 
STO 

STAC1 LD 
BSC 

LD 
EOR 

STO 
BSC 

* 
* 
* 



3 

1 

L 

L 
2 
1 

L 

11 



90 GET RETURN SE 

14 SAVE 

ACMT GET DR SEL 

STAC2.Z BRANCH # NOT CLEAR 

1 GET AREA CODE 

37 SET DRIVE SEL 

ACMT 

14 EXIT SX 



0D8A 4323 
0D8B 1 0D80 

0D8C 4338 



ENTRY NOT CLEAR-SET RETURN 
GO SET MLSCF ENTRY 



STAC2 BSI 3 35 

DC STAC1 

********************************************** 

BSI 3 56 GO TO DIAG MON START* 

********************************************** 

* *** *** *** *** *** *** *** *** *** *** **** 
* 

* ROUTINE TO REQUEST DEVICE 
* 

* *** *** *** *** *** *** *** *** *** *** **** 



SRC 



ODSD 
0D8E 



0D92 
0D93 
0D94 



C354 

D12B 

0D8F 1 C400 0815 
0091 4828 

700D 

C124 

0400 0818 



MTREE LD 3 84 GET RETURN 

STO 1 43 SAVE 

MTRE1 LD L EDIT GET DDEF 

BSC 6Z IS DEVICE REQUESTED 

MDX MTBSY YES 

LD 1 36 GET A XTNT OF ONE 

STO L INTSW SET 10 SW TO ON 
********************************************** 



SE 



4480 0131 
ODAO 



0D96 
0D98 1 
0D99 1 0815 
0D9A 1 0819 
009 B 1 080E 

0D9C 412E 
0D9D 435A 
0D9E 4080 002B 



BSI I REQDV REQUEST DEVICE 

DC MTBSY BUSY RETURN 

DC EDIT ADRS OF DDEF 

DC MTIO ADRS OF DVA 

DC TERM ADRS TERMINATOR 



********************************************** 



MTRE2 BSI 
BSI 



46 

90 



BSC II 43 



SET IX 3 
GO SET DR 
EXIT 

DEVICE IS BUSY 



SEL 



SRC 
SRC 

SX 



ODAO 
0DA1 
0DA2 1 



412E 
4323 

0D8F 



MTBSY BSI 
BSI 

DC 



SET IX 3 

GO SET MLSCF ENTRY 



SRC 
SRC 



0DA3 4338 









* 
* 


*** 


*** 


*** 


*** i 


0DA4 


C351 




MTRLE 


LD 


3 


81 


0DA5 


D12C 








STO 


1 


44 


0DA6 1 


C400 


0815 






LD 


L 


EDIT 


0DA8 


4810 








BSC 




- 


0DA9 


7004 








MDX 




MTRL 



1 46 
3 35 
MTRE1 

********************************************** 

BSI 3 56 GO TO DIAG MON START* 

********************************************** 

* *** *** *** *** *** *** *** *** *** *** **** 
* 

* ROUTINE TO RELEASE DEVICE 



GET RETURN SE 

SAVE 

GET DDEF 

IS DEVICE REQUESTEO 
NO 
********************************************** 



80717040 
807170 50 
80717060 
80717070 
80717080 
80717090 
80717100 
80717110 
80717120 
80717130 
80717140 
80717150 
80717160 
80717170 
80717180 
80717190 
80717200 
80717210 
80717220 
80717230 
80717240 
80717250 
80717260 
80717270 
80717280 
80717290 
80717300 
80717310 
80717320 
80717330 
80717340 
80717350 
80717360 
80717370 
80717380 
80717390 
80717400 
80717410 
80717420 
90717430 
80717440 
80717450 
80717460 
90717470 
80717480 
80717490 
80717500 
80717510 
80717520 
80717530 
80717540 
80717550 
80717560 
80717570 
80717580 
80717590 
"C717600 
90717610 
80717620 
80717630 
80717640 
80717650 
80717660 
90717670 
3C717680 
30717690 
80717700 
80717710 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



15MAY67 
411731 



14N0V69 
431319 



30JAN70 
431319A 



PROG ID 


0807-1 


JATE 


28FEB66 


01JUL66 


15MAY67 


14N0V69 


30JAN70 


PAGE 


13 


cC ND. 


415120 


415178 


411731 


431319 


431319A 



PROG ID 
PAGE 
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13A 
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ODAA 4480 0132 
OOAC 1 0815 
ODAD I 080E 

ODAE 412E 
ODAF 4080 002C 



MTRL1 BSI I RELOV RELEASE DEVICE * 

DC EDIT ADRS OF DDEF * 

DC TERM ADRS TERMINATOR * 

********************************************** 

MTRL2 BSI 1 46 SET IX 3 SRC 

BSC II 44 EXIT SX 

* 

* 

* *** *** *** *** *** *** *** *** *** *** **** 
ROUTINE TO SET INTERNAL 
INTRPT IGNORE IN MONITOR 



* 
* 
* 
* *•** *** *** *** *** *** *** *** *** *** **** 



0DB1 1 
0DB3 1 
OOBS 1 
0DB7 
00B9 1 



C400 0813 
4CA0 09E6 
C400 07FF 
0400 0133 
4C80 09E6 



INTIE LD L TERME5 

BSC I INTIGtZ 

LD L PID 

STO L CKCR 

BSC I INTIG EXIT SX 

* 
* 

* *** *** *** *** *** *** *** *** *** *** **** 
* 

* 
* 

* *** *** *** *** *** *** *** *** *** *** **** 



GET ONLINE IND 
BR IF NOT ZERO 
GET PROG ID 
SET IN MONITOR 
EXIT 



ROUTINE NUMBER 1 
REWIND TEST 



ODBB 4311 
ODBC 434C 



F01AA BSI 
BSI 



17 
76 



GO REWIND 
ROUTINE EXIT 



SRC 



*** *** *** *** *** *** *** *** *** *** **** 

ROUTINE NUMBER 2 
WRITE- BACKSPACE-RE AD 
20 WORDS PER RECORD 
ALL ONES PATTERN 



ODBD 





4311 


ODBE 





4335 


ODBF 





432F 


ODCO 





FFFF 


0DC1 





4317 


0DC2 





C207 


0DC3 





4820 


0DC4 





434C 


0DC5 





430E 


0DC6 





432F 


0DC7 





0000 


0DC8 





C0F7 


0DC9 





D216 


ODCA 





4314 


ODCB 





0002 


ODCC 





4323 


OOCD 


1 


OOBE 


ODCE 





1010 


ODCF 





D21B 



ODDO 4338 



F02AA BSI 3 17 

F02AB BSI 3 53 

BSI 3 47 

F02X2 DC /FFFF 

BSI 3 23 

LD 2 7 

BSC Z 

BSI 3 76 

BSI 3 14 

BSI 3 47 

DC 

LD F02X2 

STO 2 22 

BSI 3 20 

DC 2 
* 

BSI 3 35 

DC F02AB 

F02AD SLA 16 

STO 2 27 
********************************************** 

BSI 3 56 GO TO DIAG MON START* 
********************************************** 

* *** *** *** *** *** *** *** *** *** *** *** 
* 

* ROUTINE NUMBER 3 

* WRITE TO EOT-REWIND-READ 

* TO EOT 

* 20 WORDS PER RECORD 

* FLOATING ZERO PATTERN 
* 

* *** *** *** *** *** *** *** *** *** *** *** 



GO REWIND SRC 

GO TO SET UP RTN 2 SRC 
GO SET I/O AREA SRC 

GO WRITE SRC 

IS DR AT TM 

YES - ROUTINE EXIT 

GO BACKSPACE SRC 

GO SET I/O AREA SRC 

GET PATTERN 

SET IN DST 

GO READ SRC 



GO SET MLSCF ENTRY SRC 

ZERO ACCUM 

SET IN DR AVAL SW 



90717720 

80717730 

80717740 

80717750 

80717760 

80717770 

80717780 

80717790 

80717800 

80717810 

80717820 

80717830 

80717840 

80717850 

80717860 

8071787C 

80717880 

80717890 

80717900 

80717910 

80717920 

80717930 

80717940 

80717950 

80717960 

80717970 

80717980 

80717990 

80718000 

80718010 

80718020 

80718030 

80718040 

80718050 

80718060 

80718070 

80718080 

80718090 

80718100 

80718110 

80718120 

80718130 

80718140 

80718150 

80718160 

80718170 

80718180 

80718190 

80718200 

80718210 

80718220 

80718230 

80718240 

80718250 

80718260 

80718270 

80718280 

80718290 

807183 00 

80718310 

80718320 

80718330 

80718340 

80718350 

80718360 

80718370 

807183 80 

80718390 



0DD1 


1010 




F0 3AA 


SLA 




16 


RTN 3 ENTRANCE 






80718400 


0DD2 


7001 






MDX 




F03AB 


GO TO COMMON RTN 






80718410 








* *** 


*** 


*** 


*** *** 


*** *** *** *** *** 


*** 




80718420 








* 














80718430 








* 






ROUTINE NUMBER 4 






80718440 








* 






WRITE TO EOT-REWIND- 






80718450 








* 






REAO TO EOT 






80718460 








* 






20 


WORDS PER RECORD 






80718470 








* 






FLOATING ONE PATTERN 






80718480 








* 














80718490 








* *** 


*** 


*** 


*** *** 


*** *** *** *** *** 


*** 




80718500 


0DD3 


C124 




F04AA 


LD 


1 


36 


RTN 4 ENTRANCE 






80718510 








* *** 


*** 


*** 


*** *** 


*** *** *** *** *** 


*** 




80718520 


0DD4 


0118 




F03AB 


STO 


1 


24 


SAVE 






80718530 


ODDS 


4311 






BSI 


3 


17 


GO REWIND 




SRC 


80718540 


0DD6 


4335 




F04AE 


BSI 


3 


53 


GO TO SET UP RTN 


2 


SRC 


80718550 


0007 


C118 






LD 


1 


24 


GET RTN SW 






80718560 


0DD8 


D001 






STO 




F04AJC1 


SET 






80718570 


00D9 


6700 


0000 


F04AJ 


LDX 


L3 





IX 3 I OR 1 






80718580 


ODDB 1 


C700 


0E13 




LD 


L3 


F04X2 


GET PATTRN ADDRS 




80718590 


ODDD 


D004 






STO 




F04ABE1 


SET 






80718600 


OODE 


63EE 






LDX 


3 


-18 








80718610 


ODDF 


6A0C 






STX 


2 


F04AD61 


SAVE IX 2 






80718620 


ODEO 


62F7 






LDX 


2 


-9 








80718630 


0DE1 


C600 


0000 


F04AB 


LD 


L2 





GET WORD 






80718640 


00E3 1 


D700 


09E5 




STO 


L3 


IOAE20 


SET IN I/O AREA 






80718650 


ODE 5 


7201 






MDX 


2 


1 


DECR IX 2 






80718560 


0DE6 


7001 






MDX 




F04AC 








80718670 


0OE7 


62F7 






LDX 


2 


-9 


RELOAD IX 2 






80718680 


0DE8 


7301 




F04AC 


MDX 


3 


1 


DECR IX 3 






80718690 


0DE9 


70F7 






MDX 




F04AB 


LOOP 






80718700 


ODEA 


412E 






BSI 


1 


46 


SET IX 3 




SRC 


80718710 


ODEB 


6600 


0000 


F04AD 


LDX 


L2 





RESTORE IX 2 






80718720 


ODED 1 


C400 


0802 




LD 


L 


SWO 


GET SW FNC 






80718730 


ODEF 


1007 






SLA 




7 








80718740 


ODFO 1 


4C10 


0DF4 




BSC 


L 


F04AN,- 


BRANCH * NOT CRC 


CK 




80718750 


0DF2 


C02B 






LD 




MTFZ 


GET F7FD 






80718760 


0DF3 


020A 






STO 


2 


10 


SET AS REC NO 






80718770 


0DF4 


4317 




F04AN 


BSI 


3 


23 


GO WRITE 




SRC 


80718780 


0DF5 


C207 






LD 


2 


7 


GET TM SW 






80718790 


0DF6 


4820 






BSC 




Z 


IS DRIVE AT EOT 






80718800 


0DF7 


7005 






MDX 




F04AF 


YES 






80718810 


0DF8 


4323 






BSI 


3 


35 


GO SET MLSCF ENTRY 


SRC 


80718820 


0DF9 1 


0D06 






DC 




F04AE 








80718830 


ODFA 


1010 




F04B0 


SLA 




16 


ZERO ACCUM 






80718840 


ODFB 


D21B 






STO 


2 


27 


SET IN DR AVAL SW 




80718850 








********************************************** 


80718860 


ODFC 


4338 






BSI 


3 


56 


GO TO DIAG MON-START* 


80718870 








********************************************** 


80718880 


ODFD 


1010 




F04AF 


SLA 




16 








80718890 


ODFE 


021B 






STO 


2 


27 


SET IN DR AVAL SW 




80718900 


ODFF 


4311 






BSI 


3 


17 


GO REWIND 




SRC 


80718910 


OEOO 


4335 




F04AG 


BSI 


3 


53 


GO TO SET UP RTN 


2 


SRC 


80718920 


0E01 


432 F 






BSI 


3 


47 


GO SET I/O AREA 




SRC 


80718930 


0E02 


0000 






DC 













80718940 


0E03 


C118 






LD 


1 


24 


GET RTN SW 






80718950 


0E04 


D001 






STO 




F04AK 


GET FORMAT NO 






80718960 


0E05 


4314 






BSI 


3 


20 


GO READ 




SRC 


80718970 


0E06 


0000 




F04AK 

* 


DC 













80718980 
80718990 


0EO7 


C204 






LD 


2 


4 


GET TM SW 






80719000 


0E08 


4820 






BSC 




Z 


WAS TM READ 






80719010 


0E09 


7003 






MDX 




F04AH 


YES 






80719020 


OEOA 


4323 






BSI 


3 


35 


GO SET MLSCF ENTRY 


SRC 


80719030 


OEOB 1 


OEOO 






DC 




F04AG 








80719040 


OEOC 


70ED 




* 


MDX 




F04B0 








80719050 

80719060 


OEOD 1 


C400 


0802 


F04AH 


LD 


L 


SWO 


GET SW FNC 






80719070 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



15MAY67 
411731 



14N0V69 
431319 



30JAN70 
431319A 



ID 


0807-1 


DATE 


28FEB66 


01JUL66 


15MAY67 


14N0V69 


30JAN70 
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EC NO. 


415120 


415178 


411731 


431319 


431319A 



PROG 10 
PAGE 
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14A 
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OEOF 





1007 






SLA 




7 






90719080 


0E1O 





482 8 






BSC 




cz 


IS RD ONLY SW ON 




80719090 


0E11 





7CEB 






MDX 




F04AF 


YES 




"0719100 


0E12 





434C 


F04AM 


BSI 


3 


76 


ROUTINE EXIT 




90719110 








* 














90719120 








* 








CONSTANTS 




80719130 








* 














90719140 


0E13 


1 


0E27 


F04X? 


DC 




MTFZ£9 


PATTERN ADRS 




80719150 


0E14 


1 


0E1E 






DC 




MTF1E9 






90719160 








* 


*** 


*** 


*** 


*** *** 


*** **# *** *** *** 


**** 


90719170 








* 














90719180 








* 








FLOATING ONE PATTERN 




80719190 








* 


*** 


*** 


*** 


*** *** 


*** *** *** *** *** 


**** 


80719200 








* 














90719210 


0E15 





0802 


MTF1 


DC 




/0802 


FLOATING ONE PATTERN 


90719220 


0E16 





8040 






DC 




/8040 






80719230 


0E17 





2000 






DC 




/2000 






80719240 


0E18 





1001 






DC 




/1001 






80719250 


0E19 





0408 






DC 




/0408 






80719260 


0E1A 





0280 






DC 




/0280 






90719270 


0E1B 





4020 






DC 




/4020 






90719280 


0E1C 





C010 






DC 




/0010 






9071929Q 


0E1D 





0104 






DC 




/0104 






80719300 








* 


*** 


*** 


*** 


*** *** 


*** *** *** *** *** 


**** 


80719330 








* 














90719340 








* 








FLOATING ZERO PATTERN 




80719350 








* 














90719360 








* 


*** 


*** 


*** 


*** *** 


*** *** *** *** *** 


**** 


80719370 


0E1E 





F7FD 


MTFZ 


DC 




/F7FD 


FLOATING ZERO PATTERN 


80719380 


0E1F 





7FBF 






DC 




/7FBF 






80719390 


0E20 





DFFF 






DC 




/DFFF 






90719400 


0E21 





EFFE 






DC 




/EFFE 






90719410 


0622 





FBF7 






DC 




/FBF7 






90719420 


0E23 





FD7F 






DC 




/FD7F 






80719430 


0E24 





BFDF 






DC 




/BFOF 






80719440 


0E25 





FFEF 






DC 




/FFEF 






80719450 


0E26 





FEFB 






DC 




/FEFB 






80719460 








* 


*** 


*** 


*** 


*** *** 


*** *** *** *** *** 


**** 


80719470 








* 














80719480 








* 








ROUTINE NUMBER 5 




80719490 








* 








WRITE TO EOT-REWIND 




80719500 








* 








READ TO EOT 




80719510 








* 








8 WORDS PER RECORD 




80719520 








* 








ALL ZERO PATTERN 




80719530 








* 














80719540 








* 


*** 


*** 


*** 


*** *** 


*** *** *** *** *** 


**** 


80719550 


0E27 





1010 


F05AA 


SLA 




16 






80719560 


0E28 





7001 






MDX 




F05AB 






90719570 








* 


*** 


*** 


*** 


*** *** 


*** *** *** *** *** 


**** 


80719580 








* 














80719590 








* 








ROUTINE NUMBER 6 




80719600 








* 








WRITE TO EOT-REWIND 




80719610 








* 








READ TO EOT 




80719620 








* 








8 WORDS PER RECORD 




80719630 








* 








ALT ONES PATTERN 




80719640 








* 














90719650 








* 


*** 


*♦* 


*** 


*** *** 


*** *** *** *** *** 


**** 


90719660 


0E29 





C124 


F06AA 


LD 


1 


36 






80719670 








* 


#** 


*** 


*** 


*** *** 


*** *** *** *** *** 


**** 


80719690 


0E2A 





D119 


F05AB 


STO 


1 


25 


SAVE 




80719690 


0E2B 





4311 






BSI 


3 


17 


GO REWIND 


SRC 


30719700 


0E2C 





4335 


F06AB 


BSI 


3 


53 


GO TO SET UP RTN 


2 SRC 


80719710 


0E2D 





C342 






LD 


3 


66 


GET WC # 8 




80719720 


0E2E 





D20F 






STO 


2 


15 


SET IN DST 




80719730 


0E2F 





C119 






LD 


1 


25 


GET RTN SW 




80719740 


0E30 





D001 






STO 




F06AGE1 






80719750 


0E31 





6700 0000 


F06AG 


LDX 


L3 









90719760 


0E33 


1 


C700 0E5B 






LD 


L3 


F06X2 






80719770 



0E35 





412E 




BSI 


1 


46 


SET IX 3 


SRC 


80719780 


0E36 





DCOl 




STO 




F06AH 






80719790 


0E37 





432F 




BSI 


3 


47 


GO SET I/O AREA 


SRC 


S0719800 


0E38 





0000 


F06AH 


DC 











90719910 


0E39 





4317 




BSI 


3 


23 


GO WRITE 


SRC 


90719320 


0E3A 





C207 




LD 


2 


7 


GET TM SW 




80719830 


0E3B 





4820 




BSC 




Z 


IS DP AT EOT 




80719940 


0E3C 





7005 




MDX 




F06AC 


YES 




80719350 


0E3D 





4323 




BSI 


3 


35 


GO SET MLSCF ENTRY 


SRC 


80719360 


0E3E 


1 


0E2C 




DC 




F06AB 






90719870 


0E3F 





1010 


F06AF 


SLA 




16 


ZERO ACCUM 




90719880 


0E40 





D21B 




STO 


2 


27 


SET IN OR AVAL SW 




80719890 








********************************************** 


90719900 


0E41 





4338 




BSI 


3 


56 


GO TO DIAG MON-START* 


80719910 








********************************************** 


90719920 


0E42 





1010 


F06AC 


SLA 




16 






80719930 


0E43 





D21B 




STO 


2 


27 


SET IN DR AVAL SW 




80719940 


0E44 





4311 




BSI 


3 


17 


GO REWIND 


SRC 


80719950 


0E45 





4335 


F06AD 


BSI 


3 


53 


GO TO SET UP RTN 2 


SRC 


90719960 


0E46 





C342 




LD 


3 


66 


GET WC # 8 




80719970 


0E47 





D20F 




STO 


2 


15 


SET IN DST 




80719980 


0E48 





432F 




BSI 


3 


47 


GO SET I/O AREA 


SRC 


80719990 


0E49 





0000 




DC 











30720000 


0E4A 





C119 




LD 


1 


25 


GET RTN SW 




80720010 


0E4B 





D001 




STO 




F06AJE1 


SAVE 




80720020 


0E4C 





6700 0000 


F06AJ 


LDX 


L3 









80720030 


0E4E 


1 


C7C0 0E5B 




LD 


L3 


F06X2 


GET PATTERN 




90720040 


0E50 





0216 




STO 


2 


22 


SET IN DST 




80720050 


0E51 





412E 




BSI 


1 


46 


SET IX 3 


SRC 


80720060 


0E52 





4314 




BSI 


3 


20 


GO READ : 


SRC 


80720070 


0E53 





CC02 




DC 




2 






80720080 


0E54 





C204 




LD 


2 


4 


GET TM SW 




80720090 


0E55 





4820 




BSC 




Z 


IS DR AT TM 




30720100 


0E56 





7003 


* 


MDX 




F06AE 


YES 




80720110 
80720120 


0E57 





4323 




BSI 


3 


35 


GO SET MLSCF ENTRY 


SRC 


80720130 


0E58 


1 


0E45 




DC 




F06AD 






80720140 


0E59 





7CE5 


* 


MDX 




F06AF 






80720150 
30720160 


0E5A 





434C 


F06AE 

* 


BSI 


3 


76 


ROUTINE EXIT 




80720170 
80720180 








* 






CONSTANTS 




30720190 








* 












80720200 


0E5B 





0000 


F06X2 


DC 











90720210 


0E5C 





A943 




DC 




/A943 






80720220 








* *** 


*** 


*** 


*** *** 


*** *** *** *** *** **** 


80720230 








* 












90720240 








* 






ROUTINE NUMBER 7 




80720250 








* 






CHAINING TEST 




80720260 








* 












80720270 








* *** 


*** 


*** 


*** *** 


*** *** *** *** *** **** 


90720280 


0E5D 





4332 


F07AA 


BSI 


3 


50 


GO TO SET UP RTN 1 


SRC 


80720290 


0E5E 





432F 




BSI 


3 


47 


GO SET I/O AREA 


SRC 


80720300 


0E5F 





FFFF 


F07X2 


DC 




/FFFF 






80720310 


0E60 





C02B 




LD 




F07X1 


GET 4008 




80720320 


0E61 





035E 




STO 


3 


94 


SET IN TBL 2 




8072033* 


0E62 





C343 




LD 


3 


67 


GET I/O ADRS 




80720340 


0E63 





035D 




STO 


3 


93 


SET AS CAR CK 




90720350 


0E64 





D370 




STO 


3 


112 


SET AS CHAIN TO 




80720360 


0E65 





C027 




LD 




F07X4 


GET 8008 




90720370 


0E66 





D367 




STO 


3 


103 


SET TBL 1 WD CT 




80720390 


0E67 





C20A 




LD 


2 


10 


GET RECORD NUMBER 




90720390 


0E68 





D368 




STO 


3 


104 


SET AS FIRST DATA WD 




80720400 


0E69 





C34F 




LD 


3 


79 


GET 0100 




80720410 


0E6A 





020 2 




STO 


2 


2 


SET SPECIAL FNC 




80720420 


0E6B 





C123 




LD 


1 


35 


GET WRT FNC £ MOD 




80720430 


0E6C 





F201 




EOR 


2 


1 


SET AREA CODE 




80720440 


0E6D 





D303 




STO 


3 


3 


SET IOCC 




80720450 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



15MAY67 
411731 



14N0V69 
431319 



30JAN70 
431319A 



PROG ID 


0807-1 


JATE 


28FEB66 


01JUL66 


15MAY67 


14N0V69 


30JAN70 


PAGE 


15 


EC NO. 


415120 


415178 


411731 


431319 


431319A 



PROG ID 
PAGE 



0807-1 
15A 
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PART NO. 
PAGE 



2196370 
16A 



0E6E 





0B02 


0E6F 





4375 


0E70 





4351 


0E71 





C20A 


0E72 





8124 


0E73 





D20A 


0E74 





C219 


0E75 





1003 


0E76 





4808 


0E77 





7003 


0E78 





430B 


0E79 





E008 


0E7A 





0002 


0E7B 





C208 


0E7C 





1806 


0E7D 





4804 


0E7E 





7003 


0E7F 





430B 


0E80 





E009 


0E81 





0002 


0E82 





COOB 


0E83 





D20F 


0E84 





432F 


0E85 





0000 


0E86 





430E 


0E87 





C0D7 


0E88 





D216 


0E89 





4314 


0E8A 





0002 


0E8B 





434C 


0E8C 





4008 


0E8D 





8008 


0E8E 





0010 



0E8F 
0E90 
0E91 
0E92 
0E93 
0E94 
0E95 
0E96 



C332 
011A 
4329 
4326 
C124 
D21A 
4354 
7003 



0E97 C335 
0E98 D11A 

0E99 4326 
0E9A 4329 
0E9B C124 
0E9C D21B 



F07B0 
F07IR 



* 
F07AB 



F07AD 
F07AE 

F07AF 
F07AG 



XIO 
BSI 



BSI 
LD 
A 
STO 



LO 

SLA 

BSC 

MDX 

BSI 

DC 

DC 

LD 

SRA 

BSC 

MDX 

BSI 

DC 

OC 

LD 

STO 

BSI 

DC 

BSI 

LD 

STO 

BSI 

DC 

BSI 



* 

F07XI 
F07X4 
F07X7 

* *** 

* 

* *** 
COMOE 



* *** 

* 

* *** 
COM IE 

* **♦ 
C0M02 



DC 
DC 
DC 

*** 



*** 

LD 

STO 

BSI 

BSI 

LD 

STO 

BSI 

MDX 

*** 



*** 

LD 

STO 

*** 

BSI 

BSI 

LD 

STO 



3 2 ISSUE WRITE 

3 117 BUSY CK 

INTERRUPT RETURN 

3 81 GO RELEASE DEVICE 

2 10 GET RECORD COUNT 

1 36 ADD ONE 

2 10 SAVE 

CK RESULTS 



SRC 



SRC 



25 

3 

£ 

F07AE 

11 

/E008 

/0002 

8 

6 

E 

F07AG 

11 

/E009 

/0002 

F07X7 

15 

47 



14 

F07X2 

22 

20 

2 



GET SENSE WD 
IS END TBL ON 

YES 

GO TO PRINT VIA MER 

ID 08 

LINE - FORM 2 

GET SENSE WD 

IS OP COMPLETE ON 

YES 

GO TO PRINT VIA MER 

ID 09 

LINE - FORM 2 

GET 16 

SET AS WD CT 

GO SET I/O AREA 

GO BACKSPACE 
GET PATTERN 
SET IN DST 
GO READ 



SRC 



SRC 



SRC 
SRC 



SRC 



3 76 ROUTINE EXIT 

CONSTANTS 

MOOS WC - 8 £ NO EOT 

/8008 WC -8 £ CHAIN 6 EOT 

16 WC * 16 

*** *** *** *** *** *** *** *** **« 

COMMON SET UP ROUTINE I 

#** *♦* *** *** *** *** *** *** *** 



3 50 
1 26 
3 41 
3 38 

1 36 

2 26 

3 84 
COM02 



GET RETURN SE 

SAVE 

CK DR FOR AVAIL SRC 

GO CK DR FOR BUSY SRC 

SET DR BUSY 

GO REQUEST DEVICE SRC 



*** *** *** *** *** *** *** *** •** 



COMMON SET UP ROUTINE 2 



*•* *** *** *** *** *** *** *** *** 



53 
26 



GET RETURN 
SAVE 



SE 



*** *** *** *** *** *** *** *** *♦* 



38 
41 
36 
27 



GO CK DR FOR BUSY 
GO CK FOR AVAIL 

SET DR NOT AVAIL 



SRC 
SRC 



OATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



15MAY67 
411731 



14N0V69 
431319 



30JAN70 
431319A 



80720460 

80720470 

80720480 

80720490 

80720500 

8072 0510 

80720520 

80720530 

80720540 

80720550 

80720560 

80720570 

80720580 

80720590 

80720600 

80720610 

80720620 

80720630 

80720640 

80720650 

8072 0660 

80720670 

80720680 

80720690 

80720700 

80720710 

80720720 

80720730 

80720740 

80720750 

80720760 

80720770 

80720780 

8072 0790 

80720800 

80720810 

80720820 

80720830 

80720840 

80720850 

80720860 

80720870 

80720880 

80720890 

80720900 

80720910 

80720920 

80720930 

80720940 

80720950 

80720960 

80720970 

80720980 

80720990 

80721000 

80721010 

80721020 

80721930 

80721040 

80721050 

80721060 

80721070 

80721080 

80721090 

80721100 

80721110 

80721120 

80721130 



PROG ID 
PAGE 



0807-1 
16 



DATE 

EC NO. 



0E9D 





C345 






LD 


3 69 


GET WC#4014WC#20 




80721140 




0E9E 





D35D 






STO 


3 93 


SET IN I/O AREA 




80721150 




0E9F 





C344 






LD 


3 68 


GET WC # 20 




80721160 




OEAO 





020F 






STO 


2 15 


SET IN DST 




80721170 




0EA1 





4080 001A 






BSC 


U 26 


EXIT 


SX 


80721180 










* 


*** 


*** 


*** *** 


*** *** *** *** *** **» *** 




80721190 










* 












80721200 










* 








ROUTINE NUMBER 8 




80721210 










* 








COMMAND REJECT TEST 




80721220 










* 








ISSUE COMMAND TO BUSY DR 




80721230 










* 












80721240 










* 


*** 


*** 


*** *** 


*** *** *** *** *** *** *♦* 




80721250 




0EA3 





4332 


F08AA 


BSI 


3 50 


GO TO SET UP RTN 1 


SRC 


80721260 




0EA4 





C123 






LD 


1 35 


GET WRT FNC £ MOD 




80721270 




0EA5 





F201 






EOR 


2 1 


SET AREA CODE 




80721280 




0EA6 





D305 






STO 


3 5 


SET IOCC 




80721290 




0EA7 





C103 






LD 


1 3 


GET ERA MOD £ FNC 




80721300 




0EA8 





F201 






EOR 


2 1 


SET AREA CODE 




80721310 




0EA9 





D307 






STO 


3 7 


SET IOCC 




80721320 




OEAA 





C34F 






LD 


3 79 


GET 0100 




80721330 




OEAB 





0202 






STO 


2 2 


SET FNC # 1 




80721340 




OEAC 





0B04 






XIO 


3 4 


ISSUE COMMAND 




80721350 




OEAD 





ABOO 






D 


3 


OELAY 42 TO 82 MICSE 




80721360 




OEAE 





0B06 






XIO 


3 6 


ISSUE COMMAND 




80721370 




OEAF 





4375 


F08B0 


BSI 


3 117 


BUSY CK 


SRC 


80721380 










* 












80721390 










* 








SPECIAL INTRP RETURN 




80721400 










* 












80721410 




OEBO 





4351 


F08IR 


BSI 


3 81 


GO RELEASE DEVICE 


SRC 


80721420 




0EB1 





C208 






LD 


2 8 


GET SENSE WO 




80721430 




0EB2 





1002 






SLA 


2 






80721440 




0EB3 


1 


4C28 OEBC 






BSC 


L F08ACZE 




80721450 




0EB5 





C219 


F08AD 


LD 


2 25 


GET SPEC SENSE WD 




80721460 




0EB6 





1002 






SLA 


2 






80721470 




0EB7 


1 


4C28 OEBC 






BSC 


L F08AC,Z£ BRANCH = CMND REJ ON 




80721480 




0EB9 





430B 






BSI 


3 11 


PRINT VIA MER 


SRC 


80721490 




OEBA 





EOOA 






DC 


/EOOA ID 3A 




80721500 




OEBB 





0002 






DC 


/0002 LINE - FORM 2 




80721510 




OEBC 





1010 


F08AC 


SLA 


16 


CLEAR A REG 




80721520 




OEBD 





02 19 






STO 


2 25 


ZERO SP SENSE WD 




80721530 




OEBE 





434C 






BSI 


3 76 


ROUTINE EXIT 




80721540 










* 


*** 


*** 


*** *** 


*** *** *** *** *** *** *** 




80721550 










* 












80721560 










* 








ROUTINE NUMBER 9 




80721570 










* 








COMMANO REJECT TEST 




80721580 










* 








ISSUE COMMANO TO WRONG DR 




80721590 










* 












80721600 










* 


*** 


*** 


*** *** 


*** *** *♦* *** *** *** *** 




80721610 




OEBF 





4332 


F09AA 


BSI 


3 50 


GO TO SET UP RTN 1 


SRC 


80721620 




OECO 





CUB 






LD 


1 27 


GET SENSE FNC £ MOD 




80721630 




0EC1 





F201 






EOR 


2 1 


SET AREA CODE 




80721640 




0EC2 





D305 






STO 


3 5 


SET IOCC 




80721650 




0EC3 





C103 






LD 


1 3 


GET ERA FNC £ MOD 




80721660 




0EC4 





F201 






EOR 


2 1 


SET AREA CODE 




80721670 




0EC5 





D307 






STO 


3 7 


SET IOCC 




80721680 




0EC6 





C350 






LD 


3 80 


GET 0200 




80721690 




0EC7 





D202 






STO 


2 2 


SET FNC » 2 




80721700 




0EC8 





OB 04 






XIO 


3 4 


ISSUE COMMAND 




80721710 




0EC9 





ABOO 






D 


3 


DELAY 42 TO 82 MICSE 




80721720 




OECA 





0B04 






XIO 


3 4 


ISSUE COMMAND 




80721730 




OECB 





ABOO 






D 


3 


DELAY 42 TO 82 MICSE 




80721740 




OECC 





OB06 






XIO 


3 6 


ISSUE COMMAND 




80721750 




OECD 





4375 






BSI 


3 117 


BUSY CK 


SRC 


80721760 










* 


*** 


**« 


*** *** 


*** *** *** *** *** #** ***« 


80721770 










* 












80721780 










* 








ROUTINE NUMBER 10 




80721790 










* 








COMMAND REJECT TEST 




80721800 










* 








BACKSPACE INTO LOAD POINT 




80721810 




28FEB66 01JUL66 




15MAY67 


14N0V69 30JAN70 




PROG ID 


0807-1 


415120 415178 


■ 


411731 


431319 


431319A 




PAGE 


16A 
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PAGE 



2196370 
17A 



OECE 





4311 


OECF 





4335 


OEDO 





4317 


0ED1 





430E 


0ED2 





4326 


0ED3 





430E 


0ED4 





C20A 


0ED5 





8124 


0EO6 





D20A 


0ED7 





70D8 



* 

* *** 

FOAAA 



0ED8 





4311 


0E09 





4332 


OEDA 





C350 


OEDB 





D202 


OEOC 





C10B 


OEDD 





F201 


OEDE 





D305 


OEDF 





0B04 


OEEO 





4375 



* 

* 

* 

* 

* 

* *** 

FOBAA 



*** 

BSI 

BSI 

BSI 

BSI 

BSI 

BSI 

LD 

A 

STO 

MDX 

*** 



0EE1 1 C400 0813 
0EE3 1 44A8 09C0 



0EE5 





4335 


0EE6 





432F 


0EE7 





FFFF 


0EE8 





4317 


0EE9 





430E 


OEEA 





4326 


OEEB 





C124 


OEEC 





D21A 


OEED 





4354 


OEEE 





432F 


OEEF 





0000 


OEFO 





6314 


0EF1 





2F41 


0EF2 


1 


09D1 


0EF3 





73FF 


0EF4 





70FC 


0EF5 





412E 


0EF6 





C350 


0EF7 





D202 


0EF8 





C122 


0EF9 





F201 


OEFA 





D305 


OEFB 





0B04 


OEFC 





4375 



FOBAB 

* *** 

* 
* 
* 

* *** 
FOCAA 



FOEAB 



FOEAC 



OEFD 4351 
OEFE C208 
OEFF 1005 



FOEAH 

* 
* 
* 
* 
FOEIR 



*** 

BSI 

BSI 

LD 

STO 

LD 

EOR 

STO 

XIO 

BSI 

*** 



*** 

LD 

BSI 

BSI 

BSI 

DC 

BSI 

BSI 

BSI 

LD 

STO 

BSI 

BSI 

DC 

LDX 

DC 

DC 

MDX 

MDX 

BSI 

LD 

STO 

LD 

EOR 

STO 

XIO 

BSI 



BSI 

LO 

SLA 



*** *** *** **$ **« *** *** *** **** 

3 17 GO REWIND SRC 

3 53 GO TO SET UP RTN 2 SRC 

3 23 GO WRITE SRC 

3 14 GO BACKSPACE SRC 

3 38 CK DR FOR BUSY SRC 

3 14 GO BACKSPACE SRC 

2 10 GET REC NO 

1 36 ADD ONE 

2 10 SAVE 

F08IR GO CK RESULT 

*** *** *** *** ♦** *** *** *** **** 

ROUTINE NUMBER 11 
COMMAND REJECT TEST 
REWIND AT LOAD POINT 

*** *** *** *** *** *** *** *** **** 



17 

50 
80 
2 



1 11 

2 1 



5 
4 
117 



GO REWIND SRC 

GO TO SET UP RTN 1 SRC 

GET 0200 

SET FNC TO 2 

GET RWD FNC £ MOD 

SET AREA CODE 

SET IOCC 

ISSUE COMMAND 

BUSY CK SRC 



*** *** *** *** *** «** *** ** # **** 

ROUTINE NUMBER 12 
STORAGE PROTECT TEST 

*** *** *** »** *** *** *** »** **** 
L TERMG5 GET ONLINE IND 

I EXIT,Z£ BYPASS RTN IF ONLINE 



53 

47 

/FFFF 

23 

14 

38 

36 

26 

84 

47 



20 

/2F41 

IOA 

-1 

FOEAC 

46 

80 

2 

34 

1 

5 

4 

117 



JATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



15MAY67 
411731 



3 81 

2 8 
5 



14N0V69 
431319 



GO TO SETUP RTN 2 SRC 

GO SET I/O AREA SRC 

GO WRITE SRC 

GO BACKSPACE SRC 

CK DR FOR BUSY SRC 

GET ONE 

SET IN DR BUSY SW 

GO REQUEST OEVICE SPC 

GO SET I/O AREA SRC 



STORAGE PROTECT I/O 

DECR IX 3 

LOOP 

SET IX 3 SRC 

GET 0200 

SET FNC TO 2 

GET READ MOD £ FNC 

SET AREA CODE 

SET IOCC 

ISSUE COMMAND 

BUSY CK SRC 



GO RELEASE DEVICE SRC 
GET SENSE WD 



30JAN70 
431319A 



80721820 
80721830 
80721840 
80721850 
80721860 
80721870 
80721880 
80721890 
80721900 
3072191" 
30721920 
30721930 
80721940 
80721950 
80721960 
80721970 
80721980 
80721990 
30722000 
80722010 
30722020 
30722030 
80722040 
80722050 
30722060 
80722070 
30722080 
80722090 
80722100 
80722110 
80722120 
80722130 
80722140 
30722150 
80722160 
80722170 
80722180 
80722190 
80722200 
80722210 
80722220 
80722230 
80722240 
80722250 
80722260 
80722270 
807222 80 
80722290 
80722300 
80722310 
30722320 
30722330 
80722340 
80722350 
80722360 
80722370 
80722380 
80722390 
80722400 
80722410 
80722420 
80722430 
80722440 
80722450 
30722460 
80722470 
80722480 
80722490 



PROG ID 
PAGE 



0807-1 
17 





OF 00 1 


4C28 OF 05 




BSC 


L FOEAD, 


+Z BRANCH = SAV STOP ON 




80722500 






0F02 


430 B 




BSI 


3 11 


PRINT VIA MER 


SRC 


80722510 






0F03 


EOOC 




DC 


/EOOC 


ID 3C 




80722520 






0F04 


0002 




DC 


/0002 


LINE - FORM 2 




80722530 






OF 5 


6314 


FOE AD 


LDX 


3 20 






80722540 






0F06 1 


C7C0 09D1 


FOEAE 


LD 


L3 IOA 


GET PROTECTED WORD 




80722550 






0F08 


4820 




BSC 


Z 


WAS WO DESTROYED 




80722560 






0FO9 


7010 




MDX 


FOEAL 


YES 




80722570 






OFOA 


73FF 




MDX 


3 -1 


DECR IX 3 




80722580 






OFOB 


70FA 




MDX 


FOEAE 






80722590 






OFOC 


6314 


FOEAF 


LDX 


3 20 






80722600 






OFOD 


2F40 


FOEAM 


DC 


/2F40 


CLEAR STORAGE PRTCT 




80722610 






OFOE 1 


090 1 




DC 


IOA 






S072262C 






OF OF 


73FF 




MDX 


3 -I 


DECR IX 3 




80722630 






0F10 


70FC 




MDX 


FOEAM 


LOOP 




80722640 






OF 11 


412E 




BSI 


1 46 


SET IX 3 


SRC 


80722650 






0F12 


C208 




LO 


2 8 


GET SENSE WORD 




80722660 






OF 13 


1804 




SRA 


4 






80722670 






0F14 


4804 




BSC 


E 


IS WRONG LENGTH REC 




30722680 






0F15 


7003 




MDX 


FOEAK 


YES 




80722690 






OF 16 


430 B 




BSI 


3 11 


GO TO PRINT VIA MER 


SRC 


30722700 






0F17 


EOOB 




DC 


/EOOB 


ID OB 




80722710 






0F18 


000 2 




DC 


/0002 


LINE - FORM 2 




80722720 






0F19 


434C 


FOEAK 

* 


BSI 


3 76 


ROUTINE EXIT 




80722730 
80722740 






0F1A 1 


C700 09D1 


FOEAL 


LD 


L3 IOA 


GET DESTROYED WD 




80722750 






0F1C 


D20 5 




STO 


2 5 


SET IN DST 




80722760 






0F1D 


1010 




SLA 


16 


ZERO ACCUM 




80722770 






0F1E 


D206 




STO 


2 6 


SET IN DST 




80722780 






OF IF 


412E 




BSI 


1 46 


SET IX 3 


SRC 


80722790 






0F20 


430B 




BSI 


3 11 


GO TO PRINT VIA MER 


SRC 


80722800 






0F21 


EOOD 




DC 


/EOOD 


ID 00 




80722810 






0F22 


0007 




DC 


/0007 


LINE - FORM 7 




80722820 






0F23 


70E8 




MDX 


FOEAF 






80722830 










* *** 


*** 


♦ ♦♦ *** *** *** *#* **„ $<,$ ^^.^ ** t<1 


80722840 










* 










80722850 










* 




ROUTINE NUMBER 13 




80722860 










* 




PROGRAM STOP TEST 




80722870 










* 










80722880 










* *** 


*** 


*** **# *** *** *** **» *** *** **** 


80722890 






0F24 


4335 


FODAA 


BSI 


3 53 


GO TO SET UP RTN 2 


SRC 


30722900 






0F25 


4317 




BSI 


3 23 


GO WRITE 


SRC 


8072 2910 






0F26 


430E 




BSI 


3 14 


GO BACKSPACE 


SRC 


80722920 






0F27 


4326 




BSI 


3 38 


GO CK FOR BSY 


SRC 


30722930 






0F28 


C124 




LD 


1 36 


GET ONE 




80722940 






0F29 


D21A 




STO 


2 26 


SET DR BUSY SW 




807229 50 






0F2A 


4354 




BSI 


3 84 


REO DEVICE 


SRC 


80722960 






0F2B 


C350 




LD 


3 80 


GET 0200 




80722970 






0F2C 


D202 




STO 


2 2 


SET FNC * 2 




80722980 






0F2D 


C122 




LD 


1 34 


GET RD FNC £ MOD 




80722990 






0F2E 


F201 




EOR 


2 1 


SET AREA CODE 




80723000 






0F2F 


D305 




STO 


3 5 


SET IOCC 




80723010 






0F30 


cue 




LD 


1 28 


GET PROG STOP FNC£MD 




807230 20 






0F31 


F201 




EOR 


2 1 


SET AREA CODE 




3072303 






0F32 


D307 




STO 


3 7 


SET IOCC 




80723040 






0F33 


C01E 




LD 


F0FX1 


GET WO CT # 16383 




80723050 






0F34 


C35D 




STO 


3 93 


SET IN I/O AREA 




80723060 






0F35 


C10D 




LD 


1 13 


GET SENSE FNC £ MOD 




80723070 






0F36 


F201 




EOR 


2 1 


SET AREA CODE 




80723080 






0F37 


F01D 




EOR 


F0FX4 


SET WD CTR BIT 




80723090 






0F38 


D303 




STO 


3 3 


SET IOCC 




80723100 






0F39 


0804 




XIO 


3 4 


ISSUE COMMAND 




80723110 






0F3A 
0F3B 


0B02 
D017 




XIO 
STO 


3 2 

F0FX2 


SENSE WD CTR 
SAVE 




80723120 
80723130 






0F3C 


0BO6 




XIO 


3 6 


ISSUE COMMAND 




80723140 






0F3D 


4375 


FOFAC 

* 


BSI 


3 117 


BUSY CK 


SRC 


80723150 
80723160 






0F3E 


4351 


FOFIR 


BSI 


3 81 


GO RELEASE DEVICE 


SRC 


80723170 




DATE 
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0F3F 





C208 


0F40 





1804 


0F41 





4804 


0F42 





7003 


0F43 





430B 


0F44 





EOOE 


0F45 





0000 


0F46 





COOC 


0F47 





FOOC 


0F48 





4818 


OF 49 





434C 


0F4A 





C009 


0F4B 





D206 


0F4C 





C006 


0F40 





D205 


0F4E 





430B 


0F4F 





E015 


0F5O 





0006 


0F51 





70F7 


0F52 





3FFF 


0F53 





0000 


0F54 





COOO 


0F55 





0010 



OF 56 C124 
OF 57 7001 



0F58 
0F59 
OF 5 A 
0F5B 
0F5C 
0F5D 
0F5E 
0F5F 
OF 60 
0F61 
0F62 
0F63 
0F65 
0F67 
0F68 
0F69 
0F6A 
0F6B 
0F6C 
0F6D 
0F6E 
0F6F 
0F70 
0F71 
0F72 



FOFAB 



FOFAO 



LD 

SRA 

BSC 

MDX 

BSI 

DC 

DC 

LD 

EOR 

BSC 

BSI 

LO 

STO 

LD 

STO 

BSI 

DC 

DC 

MDX 



8 

4 

E 

FOFAB 

11 

/EOOE 

/OOOO 

F0FX2 

F0FX3 

6- 

76 

F0FX3 

6 

F0FX2 

5 

11 

/E015 

/0006 

FOFAO 



GET SENSE WD 

IS WRONG LNGTH REC 

YES 

GO TO PRINT VIA MER 

ID OE 

LINE 0-FORM 

GET WD CTR 

WAS WD CTR CORRECT 

YES ROUTINE EXIT 

GET WO CT EXPECTED 

SET IN DST 

GET WD CT REC 

SET IN OST 

GO TO PRINT VIA MER 

ID 15 

LINE FORM 6 



SRC 



SRC 



1010 

0129 

4335 

4317 

430E 

4326 

C124 

021A 

4354 

C129 

0001 

6700 0000 

C700 0F90 

D002 

412E 

C345 

8124 

D35D 

C350 

0202 

C122 

F201 

0305 

0B04 

4375 



* 

* 

FOFXl 

F0FX2 

F0FX3 

F0FX4 

* *** 
* 

* *** 
F11AA 

* *#* 

* 
* 

* *** 
FOEAA 
F10B0 



DC 

DC 
DC 
DC 
*** 



*** 
LD 
MDX 
*** 



F10B1 



F10AF 



F10AB 

* 



CONSTANTS 

16383 WD COUNT 
TEMP STORAGE 

/COOO EXPECTED WD CT 
/0010 SNSE WD CTR BIT 
*** *** ♦** *** *** *♦* *** *** **** 

ROUTINE 17 

*** *** *** *** *** *** *** *** *♦** 
1 36 GET ONE 

F10B0 
*** *** *** *** *** ♦** *** *** **** 

ROUTINE NUMBER 14 

WRONG LENGTH RECORD TEST 

REAO 1 MORE WORD THAN WRTN 



*** *** *** *** *** #** *** *** *** **** 

SLA 16 ZERO ACCUM 

STO 1 41 SAVE RTN SW 

BSI 3 53 GO TO SET UP RTN 2 

BSI 3 23 GO WRITE 

BSI 3 14 GO BACKSPACE 

BSI 3 38 CK OR FOR BUSY 

LO 1 36 GET ONE 

STO 2 26 SET IN OR BUSY SW 

BSI 3 84 GO REQUEST DEVICE 

LD 1 41 GET RTN SW 

STO F10B1S1 SAVE 

LDX L3 IX 3 # RTN SW 

LD L3 F10X4 GET ADO OR SUB 

STO F10AF SET 

BSI 1 46 LD IX 3 

LD 3 69 GET WC#4014WC#20 

A 1 36 ADD OR SUB 

STO 3 93 SET IN I/O AREA 

LD 3 80 GET 0200 

STO 2 2 SET FNC # 2 

LD 1 34 GET REAO MOO £ FNC 

EOR 2 1 SET AREA CODE 

STO 3 5 SET IOCC 

XIO 3 4 ISSUE COMMAND 

BSI 3 117 BUSY CK 



SRC 
SRC 
SRC 
SRC 



SRC 



SRC 



SRC 



80723180 

80723190 

80723200 

80723210 

80723220 

80723230 

80723240 

80723250 

80723260 

80723270 

80723280 

80723290 

80723300 

80723310 

80723320 

80723330 

80723340 

80723350 

80723360 

80723370 

80723380 

80723390 

80723400 

80723410 

80723420 

80723430 

80723440 

80723450 

80723460 

80723470 

80723480 

80723490 

80723500 

80723510 

80723520 

80723530 

80723540 

80723550 

80723560 

80723570 

80723580 

80723590 

80723600 

80723610 

80723620 

80723630 

80723640 

80723650 

80723660 

80723670 

80723680 

80723690 

80723700 

80723710 

80723720 

80723730 

80723740 

80723750 

80723760 

80723770 

80723780 

80723790 

80723800 

80723810 

80723820 

80723830 

80723840 

80723850 



0F73 
0F74 
0F75 
0F76 
OF 77 
0F78 
0F79 
0F7A 
0F7B 
0F7C 
0F7D 
0F7F 
0F8O 
0F82 
0F84 
0F86 
0F87 
OF 88 
0F89 
0F8A 
0F8B 
0F8C 



4351 

C208 

1804 

4804 

7003 

430B 

EOOF 

0002 

C129 

D001 

6700 0000 

C205 

F700 0F8D 

4C18 0F8B 

C700 0F8D 

D206 

412E 

430B 

E010 

0006 

412E 

434C 



0F8D FFFE 

0F8E 0001 

0F8F 0000 

0F90 8124 

0F91 9124 



0F92 
0F93 
0F94 
0F95 
0F96 
0F97 
0F98 
0F99 
0F9A 
0F9B 
0F9C 
0F9D 
0F9E 
0F9F 
0FA1 
0FA2 
OF A3 
0FA4 
0FA5 
0FA6 
0FA7 
0FA8 



4335 

431A 

430E 

4314 

0000 

C204 

4820 

7003 

430B 

E011 

0002 

C35E 

F11D 

4C18 0FA8 

C35E 

D205 

CUD 

0206 

430B 

E012 

0007 

434C 



DC 

OC 

DC 

A 

S 

*** 



* 

F10IR BSI 
LO 
SRA 
BSC 
MDX 
BSI 
DC 
DC 

F10AC LD 
STO 
LDX 
LD 
EOR 
BSC 
LD 
STO 
BSI 
BSI 
DC 
OC 

F10AD BSI 
BSI 

* 

F10X2 

F10X3 
F10X4 
F10X5 

* *** 

* 

* 

* *•* *** 
FOFAA BSI 

BSI 

BSI 

BSI 

DC 

LD 

BSC 

MDX 

BSI 

DC 

DC 

FUAB LO 
EOR 
BSC 
LO 
STO 
LD 
STO 
BSI 
DC 
DC 

FUAC BSI 

* 
* 
* 
* 

* 
* 



81 

8 

4 

E 

F10AC 

11 

/EOOF 

/0002 

41 

F10AC63 



5 

L3 F10X2 
L F10A0.+- 
L3 F10X2 

2 6 

1 46 

3 11 
/E010 
/0006 

1 46 
3 76 



L3 
2 



GO RELEASE DEVICE 
GET SENSE WD 

IS WRONG LNGTH REC 

YES 

GO TO PRINT VIA MER 

ID OF 

LINE - FORM 2 

GET RTN SW 

SAVE 

IX 3 I RTN SW 

GET WD CT 

IS IT # EXPECTED 
BRANCH* WD CT CRCT 

GET EXPCTED WD CT 
SAVE 

RESTORE IX 3 
PRINT VIA MER 
ID 10 

LINE - FORM 6 
SET IX 3 
ROUTINE EXIT 



SRC 



SRC 



SRC 
SRC 



SRC 



CONSTANTS 

/FFFE RTN 14 EXPECTEO WD 

/0001 RTN 17 EXPECTEO WO 

RTN SW 

36 ADD CONSTANT 

36 SUB CONSTANT 



*** **# *** *** **# *** *** *** **** 

ROUTINE NUMBER 15 

WRT ANO RD TAPE MARK TEST 

*** *** *** *** *** *** *** *** **** 

3 53 GO TO SET UP RTN 2 SRC 

3 26 GO WRITE TAPE MARK SRC 

3 14 GO BACKSPACE SRC 

3 20 GO READ SRC 


2 4 GET TM SW 

I WAS TM READ 

FUAB YES 

3 11 GO TO PRINT VIA MER SRC 
/EOll ID 11 

/0002 LINE -FORM 2 

3 94 GET TM DATA 

1 29 CK AGAINST EXPECTED 
L FUAC.+- BRANCH = CORRECT 

3 94 GET TM DATA 

2 5 SAVE 

1 29 GET EXPECTED TM DATA 

2 6 SAVE 

3 11 PRINT VIA MER SRC 
/E012 ID 12 

/0007 LINE - FORM 7 

3 76 ROUTINE EXIT 

*** *** *** *** *** *** *** *** **** 

ROUTINE NUMBER 16 

SEVEN TRACK FEATURE TEST 

1. WRITE-BACKSPACE AND 
READ AT 556 BPI T 2 BYTES 
PER WORD AND ODD PARITY 



80723860 

80723870 

80723880 

807*3890 

80723900 

80723910 

80723920 

80723930 

80723940 

80723950 

80723960 

80723970 

80723980 

80723990 

80724000 

80724010 

80724020 

80724030 

80724040 

80724050 

80724060 

80724070 

80724080 

80724090 

80724100 

80724110 

80724120 

80724130 

80724140 

80724150 

80724160 

80724170 

80724180 

80724190 

80724200 

80724210 

80724220 

80724230 

80724240 

80724250 

80724260 

80724270 

80724280 

80724290 

80724300 

80724310 

807243 20 

80724330 

80724340 

80724360 

80724370 

807243 80 

80724390 

80724400 

80724410 

80724420 

80724430 

80724440 

80724450 

80724460 

80724470 

80724480 

80724490 

80724500 

80724510 

80724520 

80724530 

80724540 
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0FA9 





4335 


OFAA 


c 


C200 


OFAB 





4818 


OFAC 





434C 


OFAD 





C002 


OFAE 





D20A 


OFAF 





432F 


OFBO 





3F30 


0FB1 





CUE 


0FB2 





D123 


0FB3 





C11F 


0FB4 





D122 


0FB5 





4317 


0FB6 





43 OE 


0FB7 





432F 


0FB8 





0000 


0FB9 





C0F6 


OFBA 





D216 


OFBB 





4314 


OFBC 





0002 


OFBD 





C122 


OFBE 





4804 


OFBF 





7006 


OFCO 





F124 


0FC1 





0122 


0FC2 





C123 


0FC3 





F124 


0FC4 





D123 


0FC5 





70EF 


0FC6 





1801 


0FC7 





1001 


0FC8 





D122 


0FC9 





C123 


OFCA 





1801 


OFCB 





1001 


OFCC 





D123 


OFCD 





1802 



* 
* 
* 
* 
* 

* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* *** 
FlOAA 



* 

* 

F12AB 

F12AC 



2. WRITE - BACKSPACE AND 
READ AT 556 BPI ,2 BYTES 
PER WORD AND EVEN PARITY 

3. WRITE-BACKSPACE AND 
READ AT 556 BPlt3 BYTES 
PER WORD AND ODD PARITY 

4. WRITE-BACKSPACE AND 
READ AT 556 BPI, 3 BYTES 
PER WORD AND EVEN PARITY 

5. BACKSPACE AND READ AT 
200 BPI, 3 BYTES PER WORD 
AND EVEN PARITY 

6. WRITE-BACKSPACE AND 
READ AT 200 BPI , 3 BYTES 
PER WORD AND EVEN PARITY 

*** *** *** *** *** *** *** **# *** ***4 

BSI 3 53 GO TO SET U° RTN 2 SRC 

LD 2 GET NUMBER TRACKS 

BSC +- IS THIS A 7 TR DR 



F12AG 



F12AD 



BSI 

LD 

STO 

BSI 

DC 

LO 

STO 

LD 

STO 

BSI 

BSI 

BSI 

DC 

LD 

STO 

BSI 

DC 

LD 

BSC 

MOX 

EOR 

STO 

LD 

EOR 

STO 

MDX 



* 
* 
* 
F12AE 



OFCE 7007 



SRA 

SLA 

STO 

LD 

SRA 

SLA 

STO 

SRA 

BSC 

MDX 



76 

F12AG 

10 

47 

/3F30 

30 

35 

31 

34 

23 

14 

47 



F12AG 

22 

20 

2 

34 

E 

F12AE 

36 

34 

35 

36 

35 

F12AD 



NO - ROUTINE EXIT 
CHANGE REC NO 
SET IN DST 
GO SET I/O AREA 

GET FNC E MOD-WRT 

SET WRT FNC E MOD 

GET FNC £ MOD -RD 

SET AS RD MOD £ FNC 

GO WRITE 

GO BACKSPACE 

GC SET I/O AREA 



GET 


PATTERN 




SET 


IN DST 




GO READ 




GET 


READ MOD £ FNC 


IS PARITY EVEK 


1 


YES 






SET 


0001 




SET 


AS RD MOD 


£ FNC 


GET 


WRT FNC E 


MOD 


SET 


0001 




SET 


WRT FNC £ 


MOD 



SRC 



SRC 
SRC 
SRC 



SRC 



SET PARITY ODD 



1 

1 
1 34 
1 35 

1 

1 
1 35 

2 

E 

F12AF 



SET AS RD MOD £ FNC 
GET WRT FNC £ MOD 



SET WRT FNC £ MOD 



80724550 
80724560 
90724570 
80724580 
80724590 
80724600 
90724610 
80724620 
907246™ 
80724640 
80724650 
80724660 
90724670 
80724680 
80724690 
80724700 
80724710 
80724720 
90724730 
90724740 
90724750 
80724760 
80724770 
80724780 
80724790 
80724900 
80724810 
90724820 
90724830 
90724840 
907248 50 
80724860 
90724870 
80724880 
80724890 
90724900 
80724910 
80724920 
80724930 
80724940 
80724950 
80724960 
80724970 
80724980 
80724990 
80725000 
80725010 
30725020 
80725030 
8072504C 
80725050 
80725060 
8C725070 
80725080 
80725090 
80725100 
80725110 
80725120 
80725130 
90725140 
80725150 
80725160 
80725170 
80725180 
80725190 
90725200 
80725210 
80725220 









* 












80725230 








* 






SET 


3 BYTES/WD 




90725240 








* 












80725250 


OFCF 





C122 




LD 


1 


34 


GET READ MOD £ FNC 




80725260 


OFDO 





F346 




EOR 


3 


70 


SET 3 BYTES/WD 




80725270 


0FD1 





D122 




STO 


L 


34 


SET AS RD MOD £ FNC 




80725280 


0FD2 





C123 




LD 


1 


35 


GET WRT FNC £ MOD 




80725290 


0FD3 





F346 




EOR 


3 


70 


SET 3 BYTES/WD 




80725300 


0FD4 





D123 




STO 


1 


35 


SET WRT FNC £ MOD 




80725310 


0FD5 





70DF 


* 


MDX 




F12AD 






80725320 
80725330 


0FD6 





430E 


F12AF 


BSI 


3 


14 


GO BACKSPACE 


SRC 


80725340 


0FD7 





4326 




BSI 


3 


38 


CK DR FOP BUSY 


SRC 


80725350 


0FD8 





C124 




LD 


1 


36 


GET ONE 




80725360 


0FD9 





D21A 




STO 


2 


26 


SET IN OR BUSY SW 




80725370 


OFDA 





4354 




BSI 


3 


94 


GO REQ DEV 


SRC 


30725380 


OFDB 





C120 




LD 


1 


32 


GET FNC £ MOD -RD 




80725390 


OFDC 





D122 




STO 


I 


34 


SET AS RD FNC £ MOO 




30725400 


OFDD 





F201 




EOR 


2 


1 


SET AREA CODE 




80725410 


OFDE 





D305 




STO 


3 


5 


SET IOCC 




80725420 


OFOF 





C350 




LD 


3 


80 


GET 0200 




80725430 


OFEO 





D202 




STO 


2 


2 


SET FNC * 2 




80725440 


OF El 





0B04 




XIO 


3 


4 


ISSUE COMMAND 




80725450 


0FE2 





4375 


* 


BSI 


3 


117 


BUSY CK 


SRC 


30725460 
80725470 








* 






INTERRUPT RETURN 




80725480 








* 












80725490 








* 












80725500 








* 












80725510 








* 












80725520 


0FE3 





4351 


F12IR 


BSI 


3 


81 


GO RELEASE DEVICE 


SRC 


80725530 


0FE4 





C208 




LD 


2 


8 


GET SENSE WO 




80725540 


0FE5 





E014 




AND 




PEND 


CK FOR EXPECTED 




80725550 


0FE6 


1 


4C18 OFEB 




BSC 


L 


F12AK.+- 


BRANDH = WD OK 




80725560 


0FE8 





430B 




BSI 


3 


11 


PRINT VIA MER 


SRC 


30725570 


0FE9 





E013 




DC 




/E013 


ID 13 




80725580 


OFEA 





0002 




DC 




/0002 


LINE - FORM 2 




80725590 


OFEB 





C121 


F12AK 


LD 


1 


33 


GET FNC £ MOD-WRT 




80725600 


OFEC 





D123 




STO 


1 


35 


SET WRT FNC £ MOD 




80725610 


OFED 





432 F 




BSI 


3 


47 


GO SET I/O AREA 


SRC 


80725620 


OFEE 





3F3C 




DC 




/3F30 






80725630 


OFEF 





4317 




BSI 


3 


23 


GO WRITE 


SRC 


80725640 


OFFO 





430E 




BSI 


3 


14 


GO BACKSPACE 


SRC 


80725650 


0FF1 





432F 




BSI 


3 


47 


GO SET I/O AREA 


SRC 


80725660 


0FF2 





0000 




DC 











80725670 


0FF3 





4314 




BSI 


3 


20 


GC READ 


SRC 


80725680 


0FF4 





0002 


* 


DC 




2 






80725690 
80725700 


0FF5 


C 


C127 




LD 


1 


39 


RESTORE RD FNC £ MOD 




80725710 


0FF6 





D122 




STO 


1 


34 


SET AS RD MOD £ FNC 




80725720 


0FF7 





C128 




LD 


1 


40 


RESTORE WT FNC £ MOD 




80725730 


0FF8 





D123 




STO 


1 


35 


SET WRT FNC £ MOD 




80725740 


OFF 9 





70B2 


* 


MDX 




F12AB 






80725750 
80725760 








* 






CONSTANTS 




80725770 








* 












80725780 


OFFA 





BD8F 


PEND 


DC 




/BD8F 


EXPECTED DSW 




8072 5790 


OFFC 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2315 DISK INITIALIZER 

1. PURPOSE 

THE PURPOSE OF THIS PROGRAM IS TO PREPARE THE 2315 CE DISK PACK FOR USE BY 
^T?. 1 . 5 ^^ 05110 TEST PR0GRAM - THIS PROGRAM IS RUN NORMALLY AT 
,m rmc Ii^„IL ME ' AN ° WHEN ™ E PACK DATA HAS BEEN DESTROYED OR CHANGED. 
IN THIS PROGRAM ALL FILE ADDRESSES AND THE PROPER SECTOR PATTERNS ARE 
WRITTEN. THE EXCEPTIONS ARE CYLINDERS 90-110 INCLUSIVE. PATTtRNS ARE 

2. REQUIREMENTS 

2.1 PROGRAM REQUIREMENTS 

A. PROGRAM PREREQUISITES 

THIS PROGRAM MUST RUN UNDER CONTROL OF THE DIAGNOSTIC MONITOR. 
THE DIAGNOSTIC MONITOR PROGRAM USES 2,047 STORAGE WORDS, AND THIS 
PROGRAM USES 2047 STORAGE WORDS. 
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B. 



C. 



THIS PROGRAM WILL RUN IN OVERLAP MODE, HOWEVER, TO INSURE A 
SUCCESSFUL (UNOER ALL CONDITIONS) INITIALIZATION PASS, DO NOT 
INITIALIZE IN THE OVERLAP MODE. THIS PROGRAM IS FOR THE 
1800-1810 WITH EITHER THE 13 SD OR THE 44 SD FILE UNIT. 
PROGRAM EDIT. 

THIS PROGRAM REQUIRES TWO EDIT CARDS. IF ONLY ONE DISK STORAGE 
DRIVE IS ATTACHED TO THE SYSTEM, THEN THE iNF'dRMATI ON FOR SAID 
DISK STORAGE DRIVE IS PLACED IN THE AREA ENTITLED FILE 1. FOR TWO 
DISK STORAGE DRIVES, FILL IN FILE 1 AND FILE 2 INFORMATION. THE 
THIRD DISK STORAGE DRIVE INFORMATION IS PLACED IN FILE 3. 
THE EIGHT AREAS DESIGNATED 'ALT ADDR FIELD' ARE USED 
ONLY WHEN ONE OR MORE OF THE ADDRESSES IN THE CE DISK 
PACK THAT ARE NORMALLY USED ARE NOT USABLE. ANY UNUSABLE 
ADDRESSES WILL APPEAR IN THE CYLINDER ERROR TABLE. ALL EIGHT 
ADDRESSES OF AN ERROR CYLINDER WILL BE RECORDED. THIS TABLE IS 
PRINTED OUT AT THE END OF THE PROGRAM, PROVIDED THERE HAVE BEEN 
ENTRIES. THE EIGHT ADDRESSES NORMALLY USED ARE - 0000, 0008, 
0010, 0018, 0638, 0640, 0648, AND 0650. IF ADDRESS 0640 WAS NOT 
USABLE FOR SOME REASON, THEN 0640 COULD BE' REPLACED WITH 0630. 
THEREFORE, 0630 WOULD BE PLACED IN THE SIXTH AREA SINCE 0640 IS 
THE SIXTH ADDRESS NORMALLY REFERENCED. NOW ALL REFERENCES TO 
0640 WILL BE REFERENCED INSTEAD TO 0630. 



NOTES 



NOTE 1 



2.2 



ALL DISK STORAGE DRIVE ASSIGNMENTS {FILE 1, FILE 2, AND FILE 3) 
AND ALL THE NORMAL ADDRESSES PRIOR TO THE ADDRESS BEING CHANGED 
MUST ALSO BE PUNCHED INTO EDIT CARD NUMBER 0. WHEN DISK STORAGE 
DRIVES ARE NOT ATTACHED TO THE SYSTEM, FILL THEIR DESIGNATED 
AREAS WITH ZEROES. IN OUR EXAMPLE THEN, 0000-0008-0010-0018-0638 
MUST ALSO BE PUNCHED PRIOR TO 0630. 

NOTE 2 ... 

IF AN ADDRESS IS CHANGED, THE SAME EDIT INFORMATION IS REQUIRED 
BY THE 1810 FUNCTION TEST. THE ONLY DIFFERENCE WILL BE THE PIO 
NUMB ER • 

EQUIPMENT REQUIREMENTS 
2315 CE DISK PACK. 
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3.0 OPERATING PROCEDURE 

3.1 PROGRAM LOADING 

£t«I «c, E 2315 CE ° ISK PACK IN THE 181 ° T0 BE USE0 AND F OLLOW THE 

1) TURN POWER ON. 

2) WAIT LONG ENOUGH FOR THE MACHINE TO BECOME READY. 
MACHINE MUST BE READY PRIOR TO EXECUTING PROGRAM. 

STANDARD LOADING PROCEDURES AS DESCRIBED IN THE DIAGNOSTIC 
MONITOR USE PROCEDURE. uiAWMUiflC 

3.2 PROGRAM OPERATION 

STANDARD MONITOR OPERATING PROCEDURES APPLY. THESE PROCEDURFS ARF 
SUMMARIZED HERE. SEE DM USE PROCEDURES FOR DETAILS. 
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DATE 
EC NO. 



1. 
2. 

3. 
4. 
5. 
6. 

7. 



CLEAR STORAGE TO 70FF 

LOAD DIAGNOSTIC MONITOR 

SELECT MODE OF OPERATION 

SELECT MONITOR CONTROL OPTIONS. 

SELECT DRIVE TO BE RUN FROM TABLE 2. 

INSTRUCT MONITOR TO EXECUTE THIS PROGRAM. 

IF WAIT 30CE OCCURS, SELECT CONTROL AS PER TABLE 3. NOTE — 
Vtll ~ AI J L ° 0P IS A SAFETY LOOP TO PREVENT INITIALIZING A DIMAL 
PACK OR CUSTOMER PACK UNINTENTIONALLY. AN EW62/EW6 CAN OCCUR ON 
A VIRGIN PACK OR ON AN ERROR CONDITION. THE PROGRAM WILL THEN 
!ptr«n^/ HE .! 0CE WAIT * TH EREFORE, CHECK PRINTOUTS BEFORE 
oon™. ING# ANALYZE ERR0R ADDRESSES, IF ERROR OCCURED, BEFORE 
PROCEEDING WITH INITIALIZATION. 

TABLE 2 DEVICE SELECTION 

InJ,L^^ CTI0N IS USED F0R SELECTING DEVICES FOR MULTIPLE DEVICE 
PROGRAMS. IF THE ENTRY FOR FUNCTION 2 IS EITHER 0000 OR 8000 THE 
FIRST FILE WILL BE EXECUTED. 

******************* 1. SET FUNCTION 10 IN SENSE/PROGRAM SWITCHES AND 1. 

* n f E f E / pR OGRAM * 2 . SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 

* 1 2 3 4 5 6 7 * 3. SET DESIRED CONTROL OPTIONS IN DATA ENTRY SWITCHES 0-15. 

* * 4. PRESS CONSOLE INTERRUPT. 
*10001000* 

* * 

************************* ***«*********„*******»***«»***»* M# ** W „„»„ ## „ M 

* DATA ENTRY SWITCHES * DESCRIPTION *****.***** 

* 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 * * 

; ° ° ° e i r st file ai : 

* o i o FIRST FILE A1 

* n o i SECOND FILE A2 * 

" " l THIRD FILE A3 a 
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TABLE 3 SPECIAL CONDITION CONTROL 

JI?^, f:UNCTI0N IS USED T0 CONTROL THE OPERATION OF VARIOUS 
SPECIAL CONDITIONS OR FUNCTIONS. ^ 

** ****************** 1. SET FUNCTION 11 IN SENSE/PROGRAM SWITCHES AND 1 

* 7 * I' III nic° IN SEN SE/PROGRAM SWITCHES 2 THROUGH 7. 

* 1 2 3 4 5 6 7 * 3. SET DESIRED CONTROL OPTIONS IN DATA SWITCHES TO 15. 

* i i o o i o o o : 4 * PRESS C0NS0LE . 1NTERRUp T. 

* * 

* DATA ENTRY SWITCHES * DESCRIPTION ~*— ****.-** 

* 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 * DESCRIPTION * 

* l * CE RECOGNIZES THAT DISK PACK IS * 

* EITHER A DIMAL, VIRGIN, OR CUSTOMER * 

* PACK AND IT IS TO BE INITIALIZED. * 

* * * 
* l • * BYPASS ARM TO HOME (DCARM RT) BETWEEN* 

* * RTNS. * 
* 1 * SEMI-AUTO I/O AREA SCAN. DISPLAYS * 

* ONE WORD IN THE ACCUMULATOR EACH TIME* 

* THE START KEY IS PRESSED AFTER EW06 * 

* MESSAGE. THE WORD COUNT IS DISPLAYED* 

* .. * 0N ™E FIRST WAIT. (30DA) SCAN RT * 
^ ' * EXITS AFTER I/O WORD 321 OR FNC BIT * 
^ * 15 + CONSOLE INTERRUPT IS PRESSED. * 

* ' * * 

* (NOTE ...BIT 15 IS A NON OVERLAP* 

* FNC) * 
***********************************************a^^**^^^^^^^^^^^^ s ^^^^^^^^^^ jit:jc;j[ * 

3.3 PROGRAM HALTS 

THIS PROGRAM HAS ONE HANGUP WAIT 70FF. THIS OCCURS ON A DOUBLE OR 

S",T5S?!a'E^T I ?Sf , 1 "»°." 6 K , ,J,i E,El 4N0 "- s " '."• SEE ™™~ - 

THE FOLLOWING WAITS MAY OCCUR. 
******************************************^ 



*ADDR LABEL* WAIT NUMBER 



* 
* 
* 
* 
* 
* 
* 

* 



WAIT1 



WAIT2 



* 

* 

* 

* 

* 
* 

* 

* 

* 



30CE 



30ED 



************ * *# $ $ * $ # $3 $ $ x* ** * $ $ 



DESCRIPTION * 

THIS IS A SAFETY WAIT TO NOTIFY THE CE THAT THIS* 
IS A DIMAL, CUSTOMER OR VIRGIN PACK. SEE 3.2-7.* 

THIS WAIT SIGNIFIES THE END OF THE PROGRAM. * 
TO RETURN TO THE MONITOR — PRESS RESET + START.* 
THE WAIT IS NECESSARY FOR A DIMAL PACK TO PRE- * 
VENT THE PROGRAM FROM RETURNING TO THE DISK VIA * 
THE MONITOR LOAD TO LOOK FOR THE PROGRAM CON- * 

L . £ 

*********~s#s*s************ ***#-* $#--£********* 



3.4 



PROGRAM TERMINATION 

Jc E c P ? 0G c A . M , WI 2r L AUTOMATICALLY TERMINATE AFTER ONE PASS. AN A001 
MESSAGE FOLLOWED BY AN AEOD WILL INDICATE PROGRAM TERMINATION. 

NOTE 

IF THE PROGRAM IS NOT ALLOWED TO MAKE A NORMAL TERMINATION, 
THE DISK PACK WILL NOT BE ACCEPTED BY THE 1810 PROGRAM. 



28FEB66 
415120 



01JUL66 
415178 



04N0V66 
415233 



010CT67 
411875 



02DEC68 
411961 



PROG 10 
PAGE 



0808-* 
2A 



I ( I < < i ( < i < < < < < < < 1 < ( < < < ( ( ( < ■-< - < < I < ( 



V 

r 

1 

V. 



i 



f 

V 



V 



f 

L 

V 
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4. PRINTOUTS 

4.1 STATUS MESSAGES 

PID MID RID RAD 

08OO A001 0017 XXXX PPC TSC RSC 

TWC SWE HWE 

TRC SRE HRE 

COMPLETE PASS OF PROGRAM AND STATISTICAL INFORMATION. 

08000 A004 OOON XXXX 

THIS MESSAGE IS ALWAYS PRECEEDED BY TWO EW08 MESSAGES. THE TWO 
EW08 MESSAGES INDICATE THAT THE WRONG ADDRESS WAS READ TWICE AFTER 
THE INITIAL SEEK. HOWEVER, REZEROING THE ARM AND RESEEKING THE 
PROPER ADDRESS WAS OBTAINED. THE PROGRAM COUNTS THIS AS ONE SEEK 
ERROR. 

0800 AEOD OOON XXXX 

END OF DISK DIAGNOSTIC. AN 'AEOD' FOLLOWING AN 'A001' EQUALS NORMAL 
PROGRAM TERMINATION. AN 'AEOD' FOLLOWING AN 'E403' INDICATES THAT 
THE ACCESS ARM DID NOT GO TO HOME DURING INITIALIZATION OF PROGRAM. 
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0800 AODC'OOON XXXX 

THIS MESSAGE IS ACCOMPANIED WITH A 30CE WAIT. 
CE OF THE 30CE INITIALIZATION WAIT CONDITIONS, 
FOR DETAILS. NOTE THE TABLE 3 DESCRIPTION. 



IT IS TO INFORM THE 
SEE SECTION 3.2.7 



L 






i- 



0800 CBAD OOON XXXX ADRO ADR1 ADR2 ADR3 ADR4 ADR5 ADR6 ADR7 

THIS IS THE CYLINDER ERROR TABLE (CET) PRINTOUT. THE ADDRESSES HERE 
ARE IN ERROR. ONE BAD SID (SECTOR ID) WILL CAUSE ALL EIGHT ADDRESSES 
FOR SAID CYLINDER TO BE INCLUDED IN CET. FOUR LINES OF CET OUTPUT 
EQUAL A BAD PACK. (SEE EW66) ADRO TO ADR7 ARE THE BAD ADORESSES 
(SECTORS 0-7) OF SAID CYLINDER. SEE COMMENTS. 



4.2 



ERROR MESSAGES 



THE MESSAGE IDENTIFICATION WORD ( MID ) FOR ERROR PRINTOUTS IS OF * 
THE FORM EWNN, WHERE, 



E = ERROR MESSAGE IDENTIFIER 

W = VARIABLE DIGIT DEFINING THE XIO FUNCTION CODE AS FOLLOWS, 

= NO XIO FUNCTION ASSOCIATED WITH ERROR MESSAGE, OR TEST 
MESSAGE. 

4 = CONTROL FUNCTION (SEEK) 

5 = INITIALIZE WRITE FUNCTION 

6 = INITIALIZE READ FUNCTION 

7 = SENSE DEVICE FUNCTION 



NN = MESSAGE NUMBER 

************************** S***********^ 

PID MID RID RAD MODI MOD2 MOD3 M0D4 MOD5 

0800 EW01 OOON XXXX DSW LGA DDA AAR SCI 

INTERRUPT WAS LOST. PROGRAM AUTOMATICALLY RETRIES TO EXECUTE ROUTINE. 

0800 EW02 OOON XXXX DSW 

FILE NOT READY, BUSY, OP COMPLETE OR ANY ERROR IS ON. 

08OO EW03 OOON XXXX DSW 

DSW HOME BIT NOT* ON OR ARM DID NOT RETURN TO HOME WITH A Z*ERO ADDRESS 
FOR A 44 SD OR 204 INCR FOR A 13 SD. DSW SHOULD BE 080X WHERE X = 4 
TO 7 FOR A 44 SD AND X = TO 3 FOR A 13 SD FILE' UNIT. 



< ( 
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08 00 EW04 OOON XXXX DSW LGA DDA AAR SCI 

DESIRED ADDRESS IS IN THE TABLE OF BAD ADDRESSES. 
ROUTINE TERMINATED. NEXT ROUTINE IS TRIED. 

08 00 EW05 OOON XXXX DSW 

DSW HAS BIT/BITS ON THAT SHOULD NOT BE ON AT THIS TIME. BRANCH TO 
MONITOR END ROUTINE. 

08 00 EW06 OOON XXXX DSW LGA DDA AAR SCI 

DSW ERROR BIT/BITS ON AFTER A READ OR WRITE. 

0800 EW07 OOON XXXX DSW 

HARD READ OR WRITE ERROR. INDICATES TEN SOFT READ/WRITE RETRIES WITH 
FAILURE STILL PRESENT. DSW INDICATES ERROR BITS. EW06 MESSAGES WILL 
PRECEED THIS ERROR MESSAGE. 

08 00 EW08 OOON XXXX DSW LGA DDA AAR SCI 

ACTUAL ADDRESS READ AND THE DESIRED ADDRESS DO NOT AGREE. (RD, 
RD-CK FUNCTION ONLY) FIRST EW08 WILL CAUSE A RE-READ OF THE DE- 
SIRED ADDRESS. SECOND EW08 WILL CAUSE A RE-ZERO OF THE ACCESS 
ARM AND A RE-SEEK AND A READ OF THE DESIRED ADDRESS. 

0800 EW09 OOON XXXX DSW LGA DDA AAR SCI 

THIS MESSAGE WILL ALWAYS BE PRECEEDED BY TWO EW08 MESSAGES. THE 
ACTUAL AND THE DESIRED ADDRESSES STILL DO NOT AGREE. (SEE EW08 
MESSAGE.) THE ACTUAL ADDRESSES OF THE TWO EW08 MESSAGES ARE THE 
SAME.. THEREFORE, A SEEK ERROR MOST LIKELY OCCURED. HOWEVER, THERE 
IS STILL A POSSIBILITY OF A READ, WRITE, OR DISK PACK RECORDED DATA 
ERROR OR ERRORS. 

0800 EWOA OOOR XXXX DSW 

DSW HOME BIT NOT ON OR ARM DID NOT RETURN TO HOME WITH A ZERO ADDRESS 

RESTORE ACCESS OPERATION. DSW SHOULD BE 080X WHERE X = 4 TO 7 FOR 

A 44 SD AND X = TO 3 FOR A 13 SD FILE UNIT. 

0800 EW15 OOON XXXX DSW LGA ODA AAR SCI 

THIS MESSAGE WILL ALWAYS BE PRECEEDED BY TWO EW08 MESSAGES. 
THE ACTUAL AND THE DESIRED ADDRESSES STILL DO NOT AGREE. (SEE 
EW08 MESSAGE.) THE ACTUAL ADDRESSES OF THE TWO EW08 MESSAGES 
ARE NOT THE SAME. THEREFORE, A READ ERROR MOST LIKELY OCCURED. 
HOWEVER, THERE IS STILL A POSSIBILITY OF A SEEK, WRITE, OR DISK 
PACK RECORDED DATA ERROR OR ERRORS. 

0800 EW20 0002 XXXX DSW LGA DDA AAR SCI 

WRONG ADDRESS READ, DESIRED AND ACTUAL DO NOT AGREE. 
THIS IS A SECTOR ERROR. 
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DSW, ADDRESS OR DATA MAY BE IN ERROR. 



0800 EW21 0002 XXXX DSW LGA DDA AAR SCI 
READ SUBROUTINE ERROR RETURN. 
CHECK PRINTOUT CAREFULLY. 

0800 EW40 OOOR XXXX DSW t; 

DSW ERROR BITS ON AFTER A SEEK OPERATION. PROGRAM CONTINUES. DSW 
SHOULD BE 4Y0X WHERE Y CONTAINS A OR 8 AND X EQUALS 4 TO 7 FOR A 
44 SD AND X EQUALS TO 3 FOR A 13 SD FILE UNIT. 



0800 EW41 OOOR XXXX DSW LGA DDA AAR SCI 

DSW ERROR BITS INOICATES A SEEK INVALID ADDRESS ERROR. 
FOR PROPER ADDRESS. PROGRAM BRANCHES TO MONITOR END. 



CHECK PROGRAM 



08OO EW42 OOOR XXXX DSW 

DSW ERROR BITS INDICATES A SEEK INCOMPLETE ERROR. CHECK FILE SEEK 

CIRCUITS. PROGRAM BRANCHES TO RESTORE ARM AND THEN EXITS TO 

MONITOR END. 
08OO EW60 0001 XXXX DSW LGA DDA AAR SCI 

WRITE ERROR RETURN. THIS OCCURS IN ROUTINE NO. 01, WHICH 
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PLACES THE PROPER PATTERN ON THE DISK. 

08 00 EW61 0001 XXXX DSW LGA DDA AA R SCI 

READ ERROR RETURN. THIS OCCURS IN ROUTINE NO. 01, WHICH 
PLACES THE PROPER PATTERN ON THE DISK. 

08 00 EW62 OOON XXXX DSW LGA DDA AAR SCI 

ERROR OCCURED ON READING SECTOR OF CE TRACK. THIS READ TESTS FOR A 
DIMAL PACK. PROGRAM TRIED TWO TIMES TO READ THIS SECTOR. CE MAY 
PROCEED AFTER CHECKING PRINTOUTS (SEE 3.2-7) AS THE PROGRAM WILL 
BRANCH TO THE 30CE WAIT FOR INITIALIZATION CONTROL. RE-READ IS VIA A 
RE-SEEK OPERATION. ADDRESS DESIRED + ACTUAL - DO NOT AGREE. 

08 00 EW63 OOON XXXX DSW LGA DDA AAR SCI 

ERROR OCCURED ON READING SECTOR 7 OF CE TRACK. THIS READ TESTS FOR A 
CE PACK. PROGRAM TRIED TWO TIMES TO READ THIS SECTOR. CE MAY 
PROCEED AFTER CHECKING PRINTOUTS (SEE 3.2-7) AS THE PROGRAM WILL 
BRANCH TO THE 30CE WAIT FOR INITIALIZATION CONTROL. RE-READ IS VIA A 
RE-SEEK OPERATION. ADDRESS DESIRED + ACTUAL DO NOT AGREE. 

0800 EW66 0002 XXXX DSW LGA DDA AAR SCI 

FOUR OR MORE CYLINDERS HAVE BAD SECTORS. THIS PACK IS THEREFORE BAD, 
ACCORDING TO THE DESIGN SPECIFICATIONS. DOES NOT CONTAIN 200 GOOD 
CYLINDERS. 

08 00 E077 0003 XXXX 

WHEN THIS MESSAGE FOLLOWS AN 'E004' IT INDICATES THAT THE DESIGNATED 
'CE' CYLINDER (199) ADDRESS 0638 IS BAD. IT WILL BE NECESSARY TO 
RE-EDIT THE PROGRAM. CHANGE ADDRESS NUMBER 5 (0638) TO SOME OTHER 
UNUSED ADDRESS. SUGGESTED ALTERNATE ADDRESS IS 0630 (CYLINDER 198). 

0800 EWCE 0002 XXXX DSW LGA DDA AAR SCI 

ERROR IN WRITING CE DISK SECTORS 3 AND 7. THESE SECTORS CONTAIN 
SECTOR ID, 'CEDC ID WORD, NUMBER OF ERROR SECTORS, SECTOR ADDRESS 
ERROR TABLE, AND THE STANDARD PATTERN. 
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• 5. COMMENTS 

5.1 DISK ADDRESSING SCHEME 

THE FOLLOWING 'IS THE FORMAT FOR THE DISK ADDRESSING SCHEME — 
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HEX WD N 


N 




N 








N 


BITS 12 3 


4 5 6 7 


8 


9 


10 


11 


12 


13 14 15 


CODE XXXX 


X C C c 


c 


C 


C 


C 


C 


H S S 


CYL. POS CNT 


10 



















READ 


2 6 3 


1 
















DOWN 


8 4 2 


6 


8 


4 


2 


1 




C = CYLINDER 


H = 


HEAD 




S = 


SECTOR 



4.3 



SYMBOL MEANINGS 

AAR - ACTUAL ADDRESS READ 

AWP - ACTUAL WORD PATTERN (WORD PATTERN READ) 

DDA - DESIRED DISK ADDRESS (THE ADDRESS THE OPERATION REQUIRES) 

DSW - DISK STATUS WORD 

EWP - EXPECTED WORD PATTERN 

HRE - HARD READ ERROR (TOTAL) 

RSC - RE-SEEK COUNT ( TOTAL ) 

HWE - HARD WRITE ERROR (TOTAL) 

LGA - LAST GOOD ADDRESS READ 

PPC - PROGRAM PASS COUNT 

SCI - SEEK CYLINDER INTERVAL (MEASURED FROM HOME) 

SRE - SOFT READ ERROR (TOTAL) 

SWE - SOFT WRITE ERROR (TOTAL) 

TRC - TOTAL READ COUNT 

TSC - TOTAL SEEK COUNT 

TWC - TOTAL WRITE COUNT 

WEC - WORD ERROR COUNT (THE NUMBER OF THE WORD IN THE RECORD THAT IS 
IN ERROR) 
OOON - ANY OF SEVERAL ROUTINE NUMBERS 
ADRO - CYLINDER X — SECTOR ADDRESS. 
ADR1 - CYLINDER X — SECTOR 1 ADDRESS. 
ADR2 - CYLINDER X — SECTOR 2 ADDRESS. 
ADR3 - CYLINDER X — SECTOR 3 ADDRESS. 
ADR4 - CYLINDER X — SECTOR 4 ADDRESS. 
ADR5 - CYLINDER X — SECTOR 5 ADDRESS. 
ADR6 - CYLINDER X — SECTOR 6 ADDRESS. 
ADR7 - CYLINDER X — SECTOR 7 ADDRESS. 
XXXX - UNKNOWN ADDRESS (RELOCATABLE) 
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X = NOT USED 

THE LOWEST CYLINDER ADDRESS IN HEX = 0000 

THE HIGHEST CYLINDER ADDRESS IN HEX = 0657 

THE ADDRESSES ARE CYLINDER 0, HEAD 0, SECTOR TO CYLINDER 202, 

HEAD 1, SECTOR 3. 

THE ABOVE ADDRESSING FORMAT IS USED FOR ALL THE SECTOR IDENTIFICATION 
WORD. (CALLED SID) IT APPEARS ON THE DISK AND AS THE FIRST ' 
WORD OF DATA TO BE READ OR WRITTEN TO OR FROM CORE. IT IS THE 
SECOND WORD OF THE FIELD ADORESSED BY THE IOCC. (THE FIRST WORD OF 
SAID FIELD IS THE WORD COUNT) IT APPEARS IN THE MESSAGE PRINTOUTS 
IN MODIFIER POSITIONS TWO THRU FOUR. (THESE ARE THE DISK ADDRESSES) 



A. TO CONVERT HEX DISK ADDRESS WORD TO DECIMAL. 
FOLLOWING 



PERFORM THE 



1. FIND CORRESPONDING C.V. FOR EACH N IN THE ADDRESS. 

2. ADD THE C.V.'S TOGETHER. 

3. C.V. TOTAL IS THE ACTUAL CYLINDER NUMBER IN DECIMAL. 

4. FIND CORRESPONDING S.N. FOR UNITS N OF HEX ADDRESS. 

5. S.N. IS THE ACTUAL DECIMAL HEAD - SECTOR NUMBER. 

EXAMPLE — 

CONVERT 03BD TO DECIMAL CYLINDER AND SECTOR NUMBERS. 

SOLUTION — FROM TABLE 

3 B D C.V. S.N. 



CYLINDER 



1 

22 

96 

119 



SECTOR 
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6. TABLE 3. HEX ADDRESS CONVERSION 

****************#$,><$:<<$$,), *********************************:**$$$*;(:;{:$**,.,(.*$ ^^ 
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r 



r 



v. 



* 

* 

* 

* 



DISK ADDRESS 
WORD IN HEX 

. N N N 



ZERO NOT USED 



C.V. = CYLINDER VALUE 

S.N. = SECTOR NUMBER 

NNN = HEX ADDRESS FROM 
000 TO 657 



***** 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



************************************ ********************«$***# j****************.}.* 
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L 
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* 
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* 
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* 



N 


1 

2 
3 



6 = 



C.V. 
00 
32 
64 
96 

128 

160 

192 



* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
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* 
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C.V. + S.N. 






= 





+ 





1 


= 





+ 


1 


2 


= 





+ 


2 


3 


= 





+ 


3 


4 


= 





+ 


4 


5 


= 





+ 


5 


6 


= 





+ 


6 


7 


= 





+ 


7 


8 


= 




+ 





9 


= 




+ 


1 


A 


= 




+ 


2 


B 


= 




+ 


3 


C 


= 




+ 


4 


D 


= 




+ 


5 


E 


= 




+ 


6 


F 


= 




+ 


7 



* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 

* 

* 
* 
* 



*************************#***---**** *******************$***$-#**--$*****$***.,.-!.*$ 



5.2 



ROUTINES 



IT IS THE INTENT OF THIS SECTION TO DESCRIBE THE FUNCTIONS OF EACH TEST 
ROUTINE AND THE DISK SUPERVISOR ..ROUTINES. THE FOLLOWING ARE THE IMPORTANT 
DISK SUPERVISOR ROUTINES- 



PROGRAM LISTING LABEL 
DCARM 
DEXEQ 
DCABP 
DC ROY 
DCDSW 
DCRTN 
DCSK 
DCWR 
DCRD 
CDTRT 
NTRPT 
START 
END 



FUNCTION 
RETURN ARM TO HOME 
SETUP AND EXECUTE THE IOCC. 
BYPASS CYLINDERS 90 THRU 110. 
FILE READY, NOT BUSY AND NO ERRORS. 
SENSE DSW AND SAVE IT. 

ROUTINE NUMBER AND PROGRAM CONTROL ROUTINE. 
SEEK SUBROUTINE. 
WRITE SUBROUTINE. 
READ SUBROUTINE. 
COMMON DATA TRANSFER . ROUT INE. 
INTERRUPT ROUTINE. 
MONITOR CONTROL RETURN. 
MONITOR END ENTRY. 



THE DISK SUPERVISOR ROUTINES ARE THE INTERFACE BETWEEN THE DIAGNOSTIC 
MONITOR AND THE TEST ROUTINES.. THESE ROUTINES DO THE BASIC TESTING, 
CHECKING AND CONTROLLING FOR THE USING ROUTINES WHICH MAY INCLUDE OTHER 
SUPERVISOR ROUTINES AS WELL AS TEST ROUTINES. THEREFORE, THE ERROR 
MESSAGES OF SUPERVISOR ROUTINES POINT TO BASIC OR GENERAL PROBLEMS AND 
SHOULD NOT BE DISREGARDED OR NOTICED CASUALLY.' IN SHORT, ALL ERROR 
MESSAGES SHOULD BE CAREFULLY ANALYZED TO SEE HOW THEY RELATE TO EACH OTHER. 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



04N0V66 
415233 



010CT67 
411875 



02DEC68 
411961 



PROG 
PAGE 



ID 



2196376 
5 
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NOTE 



PART NO. 2196376 
PAGE 5A 



AN UNSCHEDULED INTERRUPT WILL CAUSE A 
PROGRAM HANG CONDITION. SEE THE INTERRUPT 
ROUTINE. 

AGAIN IT MUST BE SAID, 'ALL ERROR MESSAGES MUST BE ANALYZED TO FIND THEIR 
ASSOCIATION WITH EACH OTHER.' 

ROUTINE 01 WRITE SECTOR IDENTIFICATION ON CYLINDERS 000 (0000) THRU 089 
(02C8) AND 111 (0378) THRU 202 (0650) WRITES ALTERNATE WORST CASE PATTERNS 
ON ALL CYLINDERS AND USES 2 SECTORS TO LOG ALL CYLINDERS THAT ARE BAD. THE 
CYLINDER ERROR TABLE (C.E.T.)IS LOCATED ON SECTOR ID 063B AND 063F. 

ROUTINE 02 VERIFIES CORRECT ADDRESSES ON ALL CYLINDERS (EXCEPT 90 - 110 
INCLUSIVE). THIS IS A REVERSE READ. STARTS AT CYLINDER 202 AND READS TO 
HOME ADDRESS 0000 (HEX). 

NOTE 

ANY ERROR TYPEOUTS DURING ROUTINE 2 WILL CAUSE THE INITIALIZATION 
PROGRAM TO BE RESTARTED. THESE TYPEOUTS COULD INDICATE IMPROPER SEEK 
AND WRITING OF THE SECTOR ADDRESS, THEREFORE TO ENSURE PROPER 
INITIALIZATION THE PROGRAM IS AUTOMATICALLY RESTARTED. IF ERROR 
MESSAGES WITH ROUTINE 2 DESIGNATED KEEP REOCCURRING, THIS INDICATES 
IMPROPER SEEK INCREMENTING FROM CYLINDER TO 202. INVESTIGATE SEEK 
ERRORS BEFORE TRYING TO INITIALIZE THE PACK. 

ROUTINE 03 WRITES THE CE SECTORS WHICH CONTAIN THE CYLINDER ERROR TABLE 
DATA. THE CE SECTORS ARE IDENTIFIED BY THE WORD ' CEDC • FOLLOWING THE 
SECTOR ID. 1313 ON SECTORS 0,2,5, AND 7. E5E5 ON SECTORS 1,3,4, AND 6. 
THE C.E.T. IS PRINTED AT THE END OF THE PROGRAM IF THERE ARE ENTRIES IN IT. 
CE SECTORS ARE 3 AND 7. 

NOTE 

IF AN ERROR OCCURS DURING THIS ROUTINE THAT INDICATES IMPROPER CE 
DATA SECTOR, AN ALTERNATE SHOULD BE SELECTED VIA EDIT CARDS. 
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5 



LAST PAGE 



DATE 
EC NO. 



28FEB66 
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6.1 EDIT PROCEDURE 
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PAGE 6 
2315 INITIAL 



DDEF 



STANDS FOR DEVICE DEF1NJT.0N EDIT FIELD. IT INCLUDES, , tw, ,^12 J, ™™"1™.™ K ' ^ C ° LUKNS THAT ARE SHADED SHOULD BE LEFT BLANK 



THE LAST EDIT CARD IS THE *END EDIT CARD' 






IF JT IS NECESSARY 



DRIVE I 

DDEF 
ENTRY 1 



DRIVE 2 

DDEF 
ENTRY 2 



DRIVE 3 

DDEF 
ENTRY 3 



THE.PID FOR. THIS PROGRAM (COL .2-3). 



F IN THE CARD COLUMN. 

3. A TERMINATOR WORD OfVfFF"(COL 7-10) 



ALTERNATE FILE ADDRESSES 




CARD CONTAINS THE DDEF'S FOR THE 2 3 lO DRIVES. REFER TO NOTE AT BOTTOM OF PAGE. 
CARD END IS THE "END EDIT CARD*. PUNCH EXACTLY AS IS SHOWN. 

** SSSfrM JScKSTiS u ^oTini£Tll''lZZ LKVT S ? S ? N Till? BE,M ~- ™ EN - ^ ««««« ™ ™ left of s*, d 

0000 ONLY WHENEVER «, A D »,ES S REFERENCE F.ELO IS MiSS!"^™ tZk W^^K^^Ic™^, ' CPJVEF ' EL ° S ™ ST »" «0 



DATE 28FEB66 01JUL66 04N0V66 OIOCT67 02DEC68 

EC 415120 415178 ^15233 411875 411961 



J 
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3001 



3001 1 089C 



3002 1 08BF 



7001 



7001 1 08F0 



OATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



ORG 











* 


1800 


-1810 


FILE 


DIAGNOSTIC* 


TEST 


. PROGRAM 


RELOCATED 


* 


AT 2047 OR 


HIGHER. 




TWO 


EDIT 


CARDS 


REQUIRED 


,* 


SEE 


4RITEUP FOR 


DETAILS. 


* 










* 

* 



DC 



DC 



* 
* 
* 

* 
* 

* 

* 
* 
* 

* 

* 
* 
* 

* 

* 

* 
* 
* 
* 

* 

* 
* 

* 

* 

* 
* 
* 

* 

* 

* 

* 

* 

* 

* 
* 
* 

* 

* 
* 



01JUL66 
415178 



*£/3001 



***** PROGRAM CONTROL ***** 
***** CONDITION WAITS ***** 



WAIT1 



CE WAIT NUMBER 1 



WAIT1 — IS TO LET THE 
CE KNOW THAT A OIMAL, 
CUSTOMER, OR VIRGIN PACK 
IS TO BE INITIALIZED. 
THIS WAIT ALLOWS THE CE TO 
MAKE THE DECISION WHETHER 
THIS PACK IS OR IS NOT TO 
BE INITIALIZED. 



WAIT2 END OF INIT PGM 



WAIT2 — INDICATES THAT 
THE END OF THE INITIAL- 
IZATION PROGRAM HAS BEEN 
REACHED. NOTE — IF THIS 
PROGRAM WAS LOADED FROM 
THE DISK VIA DIMAL, DO NOT 
TRY TO PROCEED WITHOUT RE- 
LOADING DISK DIMAL PGMS. 
TO RECOVER FROM THIS WAIT, 
PRESS STOP-RESET-START IN 
THAT ORDER. THIS WILL RE- 
TURN CONTROL TO THE 
MONITOR. 



ORG 



*£/3FFE 



***** 
***** 



ERROR TRAP 01 

PROGRAM HANGUP 



***** 
***** 



DC 



NTRER 



INTERRUPT ERROR TRAP 



ALL SCHEDULED INTERRUPTS 
SET A TRANSFER VECTOR IN 
THE' INTERRUPT ROUTINE. 
IF SAID VECTOR WORD IS 
BLANK, THE HANGUP WILL 
OCCUR. THE CAUS5 MAY BE 

ONE OF TWO CONDITIONS. 
1— AN UNSCHEDULED INTER- 
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04N0V66 
415233 



010CT67 
411875 



01N0V67 
411875A 



02DEC68 
411961 



80800020 

80800030 

80800040 

80800050 

80800060 

80800070 

80800080 

80800090 

80800100 

80800110 

80800120 

80800130 

80800140 

80800150 

80800160 

80800170 

80800180 

80800190 

80800200 

80800210 

80800220 

80800230 

80800240 

80800250 

80800260 

80800270 

80800280 

80800290 

80800300 

80800310 

80800320 

80800330 

80800340 

80800350 

80800360 

80800370 

80800380 

80800390 

80800400 

80800410 

80800420 

80800430 

80800440 

80800450 

80800460 

80800470 

80800480 

80800490 

80800500 

80800510 

80800520 

80800530 

80800540 

80800550 

80800560 

80800570 

80800580 

80800590 

80800600 

80800610 

80800620 

80800630 

80800640 

80800650 

80800660 

80800670 

80800680 

80800690 
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0808-1 
1 



: 


* 






RUPT ON THIS LEVEL WITH 




80800700 




■ 


* 






THIS ILSW BIT, OR 2 — 




80800710 






* 






A DOUBLE OR NON-RESETABLE 


80800720 




i 


* 






INTERRUPT. CONDITION 


80800730 




<■ 


* 






TWO 


WILL BE INDICATED BY 


80800740 




* 






HAVING INTERRUPT LEVEL 


BIT 


80800750 




r 


* 
* 






STILL ON IN THE CONSOLE 
LITES. THE TRANSFER 




80800760 
80800770 




; . 


* 
* 


. 




VECTOR IS ZEROED AFTER 
ADDRESS IS SET IN THE 


THE 


80800780 
80800790 




; 


* 
* 






MLSCF TABLE. 




80800800 




i 


* 












80800810 




07FF 


* 

* 


ORG 


*-/6803 






80800820 
80800830 




' 












80800840 




; ' 














80800850 




012C 
012D 


* 






EQUATE TABLE FOR MONITOR * 


80800860 
80800870 
80800880 
80800890 
80800900 
80800910 
80800920 
80800930 
80800940 
80800950 




* 

BEGIN EQU 

START EQU 


300 
BEGIN61 




* 




" 012E 
012F 

f 01 30 
0131 


END EQU 
LOG EQU 
ERROR EQU 
REQDV EQU 


START&1 
ENDS1 
L0GS1 
ERR0R61 








1 32 
0133 

1 


RELDV 

HALT 

* 


EQU 
EQU 


REQDVS1 
RELDVC1 






80800960 
80800970 












* 


80800980 
80800990 
80801000 
80801010 
80801020 
80801030 




I 


* 

*. . . . 






PROGRAM START TABLE 


* 




07FF OCOO 


* 
PID 


DC 


/OCOO 




PROGRAM ID 


* 




0800 0000 


RID 


DC 







ROUTINE ID 




80801040 




0801 0000 


RAD 


DC 







ROUTINE ADDR 




80801050 




0802 0000 
I 0803 0000 

0804 0000 

0805 0000 


SWO 
SW1 
SW2 
SW3 
* 


DC 
DC 

DC 
DC 











FUNCTION 00 
01 
10 
11 




80801060 
80801070 
80801080 
80801090 




1 












80801100 
80801110 
80801120 
80801130 
80801140 
80801150 






* 






MAINLINE SEQ CTRL FLD 


* 




0806 1 0821 


* 
I PA 


DC 


DIPA 




INIT PROG ADDR 


* 




0807 1 084C 


LPA 


DC 


DLPA 




LOOP PROG ADDR 




80801160 




0808 1 0853 


EPA 


DC 


DEPA 




END PROG ADDR 




80801170 




0809 0000 
080A 0000 
080B 0000 


LIV 

XNR 
MLN 


DC 
DC 
DC 









LOST NTRPT RT ENTRY 
MAIN LINE ENTRY 


80801180 
80801190 
80801200 




080C FFFF 


TERM 


DC 


/FFFF 




TERMINATOR 




80801210 




080D 1 0FF8 
080E 0000 
080F 0000 

0810 0000 

0811 0000 

0812 0000 


PEND 

* 


DC 

DC 

DC' 

DC 

DC 

DC 


OMEGA 














LAST WORD OF PROG 




80801220 
80801230 
80801240 
80801250 
80801260 
80801270 














* 


80801280 
80801290 
80801300 
80801310 
80801320 
80801330 




: 


* 

* 




EDIT 


DATA £ ADDR TBL 


* 




0813 0000 


* 
EDTA1 


DC 







Al DISK DEFINE FLD 


* 




0814 0000 


EDTA2 


DC 







A2 DISK DEFINE FLD 




80801340 




0815 0000 


EDTA3 


DC 







A3 DISK DEFINE FLD 




80801350 




0816 0000 

: 


* 
DSKAO 


DC ' 


/oooo 




000 DISK CYL ADDR 




80801360 
80801370 




■ 

DATE 28FEB66 01MAY66 


01JUL66 


04N0V66 


010CT67 01N0V67 02DEC68 


PROG ID 


0808-1 
1A 


EC NO. 415120 415120A 


415178 


415233 


411875 411875A 411961 


PAGE 



( < ( < < < < < < < 4 ( ( < < ( 



< i ( ( < ( ( < ( ( ( < ( < < , < < 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE X800 SYSTEM 
2315 DISK INITIALIZER 



DATE 
EC NO. 



0817 





0008 


0818 





0010 


0819 





0018 


081A 





0638 


081B 





0640 


081C 





0648 


081D 





0650 



08 IE 4480 012C 
0820 1 07FF 



0821 





0000 




0822 


1 


6700 


0B88 


0824 





CODF 




082 5 


1 


4C08 


0830 


0827 





1001 




082 8 


1 


4C2 8 


082D 


082A 


1 


6600 


0815 


082C 





700 5 





082D 1 6600 0814 
082F 7002 

0830 1 6600 0813 
0832 1 6E00 0AE2 
08 34 1 6E00 OAF 3 



08 36 





43 8 A 


08 37 


1 


C400 08DD 


0839 





D305 


08 3A 





C3C9 


083B 





EB05 


08 3C 





D3BD 


083D 





EBFF 


08 3E 





D3BB 


08 3F 





438E 


0840 





C3B4 


0841 





D0C9 


0842 





C8D3 


0843 





DBD4 


0844 





C8D3 


0845 





DBD6 


0846 





C8D3 


08 47 





DBD8 


0848 





C8D3 


0849 





DBDA 



084A 1 4C80 0821 



084C 0000 
084D 1 6700 0B88 



28FEB66 
415120 



DSKA1 DC /0008 001 DISK CYL ADDR 

DSKA2 DC /0010 002 DISK CYL ADDR 

DSKA3 DC /0018 003 DISK CYL ADDR 

DSKA4 DC /0638 199 DISK CYL ADDR CE 

DSKA5 DC /0640 200 DISK CYL ADDR 

DSKA6 DC /0648 201 DISK CYL ADDR 

DSKA7 DC /0650 202 DISK CYL ADDR 

* ' * 
* ......* 

* BEGIN ROUTINE * 
* * 

* * 
EXEQD BSI 1 BEGIN BR TO MONITOR XM 

DC PID PROG ID ADDR 

* * 
* * 

* INITIAL PROG ROUTINE * 
*... . * 

* * 
DIPA DC ENTRY 

LDX L3 DCT SET X3 ADDR CTRL SE 
* 

LD SW2 GET SW2 FUNCTION 

BSC L UNTA1,£ BR IF DISK UNIT Al 

SLA 1 SHIFT Bl TO B3 

BSC L UNTA2.ZS BR IF DISK UNIT A2 

UNTA3 LDX L2 EDTA3 GET UNIT A3 ADDR 

MDX UNTA1G2 BR TO SET ADDRS 

* 

UNTA2 LDX L2 EDTA2 GET UNIT A2 ADDR 

MDX UNTA1S2 BR TO SET ADDRS 
* 

UNTA1 LDX L2 EDTA1 GET UNIT Al ADDR 

STX L2 CHNSA SET ADDR IN REQ RT 

STX L2 CHNRA SET ADDR IN REL RT 

BSI 3 -118 BR TO REQUEST RT SC 
* 

LD L DVA GET AREA CODE 

STO 3 5 SET AREA CODE IN DCT 

LD 3 -55 GET BASIC INST 

OR 3 5 OR IN AREA CODE 

STO 3 -67 SET IN ADJ INST 

OR 3 -1 MODIFY INST 

STO 3 -69 SET IN NEW INST 
* 

BSI 3 -114 BR TO RELEASE RT SC 

LD 3 -76 GET ML ENTRY 

STO MLN SET IT IN CTRL TBL 
* 

LDD DSKAO GET DISK ADDRS 

STD 3 -44 SET IN TBL 

LDD DSKA2 

STD 3 -42 

LDD DSKA4 

STO 3 -40 

LDD DSKA6 

STD 3 -38 
* 

BSC I DIPA EXIT TO MONITOR SX 

* * 
*. . .................... ........... 

* LOOP PROGRAM ROUTINE * 
* * 

* * 
DLPA DC ENTRY 

LDX L3 DCT SET X3 ADDR CTRL SE 



01MAY66 
415120A 



01JUL66 
415178 



04NOV66 
415233 



010CT67 
411875 



01NOV67 
411875A 



02DEC68 
411961 
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80801380 

80801390 

80801400 

80801410 

80801420 

80801430 

80801440 

80801450 

80801460 

80801470 

80801480 

80801490 

80801500 

80801510 

80801520 

80801530 

80801540 

80801550 

80801560 

80801570 

80801580 

80801590 

80801600 

80801610 

80801620 

80801630 

80801640 

80801650 

80801660 

80801670 

80801680 

80801690 

80801700 

80801710 

80801720 

80801730 

80801740 

80801750 

80801760 

80801770 

80801780 

80801790 

80801800 

80801810 

80801820 

80801830 

80801840 

80801850 

80801860 

80801870 

80801880 

80801890 

80801900 

80801910 '. 

80801920 

80801930 

80801940 

80801950 

80801960 

80801970 

80801980 

80801990 

80802000 

80802010 

80802020 

80802030 

80802040 

80802050 



PROG ID 
PAGE 
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0808-1 
2 



\TE 

NO. 



084F C3B5 

0850 DOBA 

0851 1 4C80 084C 



0853 0000 

0854 1 6700 0B88 

0856 438E 

0857 1 4C80 0853 



08 59 
085A 
08 5B 
085D 
08 5E 



6116 
1010 

D500 0B8D 
71FF 
70 FC 



085F 1 6700 0B88 

0861 C300 

0862 D30A 

0863 C3F8 
08 64 D30B 

0865 43AE 

0866 4380 

0867 1 4C00 0880 

0869 1 C400 0803 

08 68 1 4C20 0879 

08 6D 1 7401 0BA1 

086F 1 6680 0BA1 
0871 1 6E00 0800 
0873 1 C600 087C 
0875 1 D400 0801 
08 77 1 4E80 087C 

0879 E3FD 
087A D319 
08 7B 70 F3 



08 7C 1 08BC 
087D 1 0DB3 
087E 1 0E07 
087F 1 0E32 



0880 C3D8 

0881 D30B 

0882 43AE 



28FEB66 
415120 



01MAY66 
415120A 



LD 

STO 

BSC 



3-7 5 
MLN 
I DLPA 



* 

*. . .. 

*. . .. 

DEPA 



GET POLLING ADDR 
SET IT IN MLSCF 
EXIT TO MONITOR 



SX 



END PROGRAM ROUTINE 



DC 
LDX 

BSI 
BSC 




L3 DCT 

3 -114 
1 DEPA 



ENTRY 

SET X3 ADDR CTRL 



SE 



*. . .. 
* 

DCTRL 



BR TO RELEASE DEVISE SC 
EXIT FROM PROGRAM SX 



MAINLINE PROGRAM CTRL 



* 



DCTL1 



* 

DCTL2 

* 



* 

* 

DCTL3 



LDX 1 22 SET CLEAR LOOP XTNT 

SLA 16 CLR ACCUM 

STO LI DCTE5 RESET DCT FIELD 

MDX 1 -1 DEC LOOP CTRL 

MDX DCTL1 BR LOOP 

LDX L3 DCT SET X3 ADDR CTRL 

LD 3 CLR A REG 

STO 3 10 SET PRESENT ADDR 

LD 3 -8 GET A CSI OF ONE 

STO 3 11 SET IN DESIRED ADDR 

BSI 3 -82 BR TO SEEK SUB RT 

BSI 3 -128 BR TO DCARM RT 

BSC L DMLCK BR TO DIMAL CHECK 

LD L SW1 GET FNC SW 1 INFO 

BSC L DCTL5,Z BR IF FNC NOT ZERO 



SE 



SC 
SC 
SC 



DCTL4 



* 
DCTL5 



* 
* 



MDX L DCT&25.1 ADD ONE TO RT NUMBER 

LDX 12 DCTE25 GET RT NUMBER 

STX L2 RID SET IN TABLE 

LD L2 DDSA-1 GET RT ADDR 

STO L RAD SET IN TABLE 

BSC 12 DDSA-1 BR TO EXEQ RT SX 

AND 3 -3 PASS MAX RT CNT 

STO 3 25 SET RT NUMBER IN DCT 

MDX DCTL4 BR TO CONTINUE 



DISK DIAG START ADDR 



* 



DC DCEOD NO RT SEL END DIAG. 

DDSA DC F01AA WR ADDR AND SECT PAT 

DC F02AA VERIFY ALL ADDR RT " 

DC F03AA WR CE SECT 3/7 DATA 



*. . . .. 
* 

DMLCK 



DIMAL-CUST-CE PACK CK RT * 
.................... ......v 



LD 

STO 

BSI 



01JUL66 
415178 



3 -40 
3 11 
3 -82 



04N0V66 
415233 



GET CE HIST ADDR 
SET DESIRED ADDR 
BR TO SEEK SUB RT 



SE 



SC 



010CT67 
411875 



01N0V67 
411875A 



02DEC68 
411961 
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80802060 

80802070 

80802080 

80802090 

80802100 

80802110 

80802120 

80802130 

80802140 

80802150 

80802160 

80802170 

80802180 

80802190 

80802200 

80802210 

80802220 

80802230 

80802240 

80802250 

80802260 

80802270 

80802280 

80802290 

80802300 

80802310 

80802320 

80802330 

80802340 

80802350 

80802360 

80802370 

80802380 

80802390 

80802400 

80802410 

80802420 

80802430 

80802440 

80802450 

80802460 

80802470 

80802480 

80802490 

80802500 

80802510 

80802520 

80802530 

80802540 

80802550 

80802560 

80802570 

80802580 

80802590 

80802600 

80802610 

80802620 

80802630 

80802640 

80802650 

80802660 

80802670 

80802680 

80802690 

80802700 

80802710 

80802720 

80802730 



PROG ID 
PAGE 



0808-1 
2A 



I < ( < 4 4 < 4 < 4 ( < ( ( 4 < 4 



c 

( 

c 

( 
( 
( 
( 
( 
c 
c 
c 

€ 
( 

c 
c 

c 
( 
c 

( 
( 
c 

c 



c 



f 

V. 
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0883 C3E5 

0884 030D 

0885 43A8 

0886 7018 

0887 1 C400 0C57 

0889 F014 
088A 1 4C18 0896 

088C C3D8 
088D EBF9 
088E D30B 
088F 43A8 

0890 7012 

0891 1 C400 0C57 

0893 F3C7 

0894 1 4C18 0869 

0896 1 C400 0805 
0898 1 4C28 0869 

089A 4328 
089B AODC 

089C 30CE 
089D 70F8 



089E ABCD 



089 F 4334 
08A0 E062 
08A1 1 0880 
08A2 70F3 

08A3 4334 
08A4 E063 
08A5 1 0880 
08A6 70EF 



08A7 1 C400 0805 
08A9 1801 
08AA 1 4C04 08AD 

4380 

1 C400 0803 



08AC 
08AD 
08AF 



1 4C20 0879 



08B1 C319 
08B2 F3FD 
08B3 1 4C20 0869 

08B5 1 7401 OBAO 
08B7 1000 



08B8 1010 
08B9 D319 

08BA 4350 
08BB A001 



* 

DM LIC 



WAIT1 

# 

* 

DMLXT 

* 

* 

DMLE1 



* 
DMLE2 



* 

# 

* 
DCRTN 



LD 
STO 
BS1 
MDX 

LD 

EOR 
BSC 

LD 

OR 

STO 

BSI 

MDX 

LD 

EOR 

BSC 

LD 
BSC 

BSI 
DC 

DC 
MDX 



DC 



BSI 
DC 
DC 
MDX 

BSI 
DC 

DC 
MDX 



3 -27 

3 13 
3 -88 
DM LEI 

L DCDA62 

DMLXT 
L DMLIC, S- 

3 -40 
3 -7 
3 11 
3 -88 
DMLE2 

L DCDA&2 

3 -57 
L DCTL3.6- 

L SW3 

L DCTL3,Z£ 

3 40 
/AODC 

/30CE 
DMLIC 



/ABCD 



3 52 

/E062 
DMLCK 
DMLIC 

3 52 
/E063 
DMLCK 
DMLIC 



GET WORD COUNT 

SET WORD COUNT 

BR TO READ SUB RT SC 

BR TO ERR RD RTN 

GET SECOND DATA WORD 
TEST FOR D1MAL IND 
BR IF DIMAL PATTERN 

GET BASIC CE ADDR 
SET IN CE SECT ADDR 
SET ADDR IN CTRL TBL 
BR TO READ SUB RT SC 
BR TO ERR RD RTN 

GET SECOND DATA WORD 
TEST FOR CE PACK IND 
BR TO INIT IF CE IND SX 



GET SW 3 FUNCTION 
BR TO INIT IF NEG 

BR TO MSAG FORM 
— MSAG # — 

WAIT FOR CE GO AHEAD 
LOOP TO RE-CHECK 



DIMAL CTRL XTNT 



SX 



MC 



BR TO MSAG FORM 2 

— MSAG # — 
ERR LOOP «)DR 

BR TO CE CTRL WAIT 

BR TO MSAG FORM 2 

— MSAG # — 
ERR LOOP ADDR 

BR TO CE CTRL WAIT 



MC 



MC 



TEST RETURN CONTROL 



DCRHM 

* 






LD 

SRA 

BSC 

BSI 

LD 

BSC 

LD 

EOR 

BSC 

MDX 
NOP 



SLA 
STO 

BSI 
DC 



L SW3 

1 
L DCRHM.E 

3 -12 8 
L SW1 
L DCTL5.Z 

3 25 

3 -3 
L DCTL3,Z 

L DCT£24,1 




16 
3 25 

3 80 
/A001 



GET SW FNC 3 DATA SC 

SHIFT TO CHECK 14 

BR IF BIT 14 IS ON 

BR TO DCARM RT SC 

GET SW FNC 1 DATA 

BR IF FNC NOT ZERO 

GET ROUTINE ID NUM 

TEST FOR LAST RT 

BR TO CONTINUE TESTS 

ADD TO PROG PASS CNT 
SAFTY NOP 



CLR ACC 

CLR RT ID NUMBER 

BR TO MSAG FORM 4 MC 

— MSAG * — 
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80802740 
80802750 
80802760 
80802770 
80802780 
80802790 
80802800 
80802810 
80802820 
80802830 
80802840 
80802850 
80802860 
80802870 
80802880 
80802890 
80802900 
80802910 
80802920 
80802930 
80802940 
80802950 
80802960 
80802970 
80802980 
80802990 
80803000 
80803010 
80803020 
80803030 
80803040 
80803050 
80803060 
80803070 
80803080 
80803090 
80803100 
80803110 
80803120 
80803130 
80803140 
80803150 
80803160 
80803170 
80803180 
80803190 
80803200 
80803210 
80803220 
80803230 
80803240 
80803250 
80803260 
80803270 
80803280 
80803290 
80803300 
80803310 
80803320 
80803330 
80803340 
80803350 
80803360 
80803370 
80803380 
80803390 
80803400 
80803410 
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DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



01JUL66 
415178 



04N0V66 
415233 



010CT67 
411875 



01N0V67 
411875A 



02DEC68 
411961 



PROG ID 
PAGE 



0808-1 
3 



08BC 4328 
088D AEOD 

08BE 1000 
08BF 30ED 



08C0 70FD 



DC EDO 

* 

DCRND 

WAIT2 

* 



BSI 
DC 

NOP 
DC 



MDX 



3 40 

/AEOD 


/30ED 



DCRND 



BR TO MSG FORM 
— MSAG # — 

STOP NOP 
INIT END WAIT 
SEE BEGINNING OF 
LISTING FOR INST 
WAIT BRANCH LOOP 



MC 





1 


6700 


0B88 


* 

*. . . . 






LOST 


INTERRUPT RT 


^ 




08C1 


* 
DLNRT 


LDX 


L3 


OCT 


SET X3 CTRL ADDR 


SE 


08C3 





C31B 






LD 


3 


27 


GET TIMER CNT 






08C4 





83FF 






A 


3 


-1 


ADD 61 TO CNT 






08C5 





D31B 






STO 


3 


27 


SAVE NEW CNT 






08C6 





F31C 






EOR 


3 


28 


TEST FOR LIMIT 






08C7 





4820 






BSC 




Z 


Q. EQ TO LIMIT 






08C8 





700B 




* 


MDX 




DLNRl 


NO, PROCEED 






08C9 





OBBA 






XIO 


3 


-70 


SENSE DSW 






08CA 





D308 






STO 


3 


8 


SET DSW IN OCT 






08CB 





43B1 






BSI 


3 


-79 


BR TO ERR MSAG RT 




SC 


08CC 





4334 






BSI 


3 


52 


BR TO MSAG FORM 2 




MC 


08CD 





E001 






DC 




/E001 


— MSAG # — 






08CE 





0000 




$ 


DC 







NO ERROR LOOP ADDR 






08CF 





1010 






SLA 




16 


CLEAR ACCUM 






08D0 





D31B 






STO 


3 


27 


CLEAR LOST NTRPT CTR 




08D1 





438E 






BSI 


3 


-114 


RELEASE RT 




SC 


08D2 





4386 






BSI 


3 


-122 


BR TO RE-ZERO ARM 




SC 


08 D3 





709B 




* 


MDX 




DCTL4 


BR TO RE-TRY ROUTINE 


SX 


08 D4 





C31D 




DLNRl 


LD 


3 


29 


GET NXT MLN ENTRY 






0805 


1 


4C18 


08DB 




BSC 


L 


DLAND.6- 


BR - NTRPT OCCURED 




08 D7 


1 


6700 


08C1 




LDX 


L3 


DLNRT 


GET LST NTRPT RT ADR 




08D9 


1 


6F00 


0809 




STX 


L3 


LIV 


SET IT IN MLSCF 






08 DB 





4C80 


012D 


DLAND 

*. . . . 


BSC 


I 


START 


BR TO MONITOR 


* 


XM 










* 






DISK 


INTERRUPT ROUTINE 


* 



























08DD 0000 

08DE 0000 

08 DF 1 6700 0B88 

08E1 OBBA 
08E2 0308 

08E3 C31D 

08 E4 1 D400 080B 

08E6 1 4C18 08F0 

08E8 1010 

08 E9 D306 

08EA D.31B 

08EB D31D 

08EC 1 D400 0809 

08EE 1 4C80 08DE 

08F0 70FF 



DC 



ATE 
C NO. 



28FEB66 
415120 



01MAY66 
415120A 



OVA 

NTRPT DC 
LDX 

* 

XIO 
STO 

LD 

STO 

BSC 

NTRST SLA 
STO 
STO 
STO 
STO 

NTRXT BSC 

* 

NTRER MDX 



01JUL66 
415478 



L3 

3 
3 




OCT 



-7 

8 



29 

MLN 
NTRER, £- 

16 

6 

27 
29 
LIV 

NTRPT 

NTRER 



DISK AREA CODE ID PM 



SET X3 CTRL ADDR SE 

SENSE RESET DSW 
SAVE IT IN TBL 

GET RETURN ADDR 
SET IT IN MLSCF 
BR TO ERR RT IF ZERO 

CLR ACCUM 

CLR FUNCTION 

CLR LST NTRPT CTR 

CLR NTRUPT ADDR DCT 

CLR LST NTRPT RT XFR 

EXIT TO MONITOR SX 

NO ML MLSCF ADDR PH 
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04N0V66 
415233 



010CT67 
411875 



01N0V67 
411875A 



02DEC68 
411961 



80803420 

80803430 

80803440 

80803450 

80803460 

80803470 

80803480 

80803490 

80803500 

80803510 

80803520 

80803530 

80803540 

80803550 

80803560 

80803570 

80803580 

80803590 

80803600 

80803610 

80803620 

80803630 

80803640 

80803650 

80803660 

80803670 

80803680 

80803690 

80803700 

80803710 

80803720 

80803730 

80803740 

80803750 

80803760 

80803770 

80803780 

80803790 

80803800 

80803810 

80803820 

80803830 

80803840 

80803850 

80803860 

80803870 

80803880 

80803890 

80803900 

80803910 

80803920 

80803930 

80803940 

80803950 

80803960 

80803970 

80803980 

80803990 

80804000 

80804010 

80804020 

80804030 

80804040 

80804050 

80804060 

80804070 

80804080 

80804090 
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PAGE 



0808-1 
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08F1 0000 
08F2 1 C400 0EA4 
08F4 1 4C18 08FF 
08F6 1 6580 0EA4 
08F8 1 C500 0E87 
08FA F30B 
08F8 1 4C18 0901 



08FD 
08FE 



71FF 
70 F9 



08FF 1 4C80 08F1 



0901 

0902 
09 03 

0904 



43B1 
4334 
E004 
0000 



*. . . . 

* 

* 

* 
RWACK 



RWCKA 



RWCKX 

* 

RWCKT 



READ WRITE ADDR CK RT 



* 



DC 

LD 

BSC 

LDX 

LD 

EOR 

BSC 

MDX 

MDX 




L CYLEX 
L RWCKX.6- 
II CYLEX 
LI CYLET-1 

3 11 
L RWCKT, &- 
1 -1 
RWCKA 



SE 



BSC I 

BSI 3 

BSI 

DC 

DC 



RWACK 

-7 9 

52 

/E004 





0905 C319 

0906 F3FD 

0907 1 4C18 0916 



0909 
09 OA 
090B 
09 OC 
090E 
090F 
0910 
09 11 
0913 
J914 



C30B 

1803 

1003 

4C18 08A7 

93F8 

EBF9 

D30B 

6580 0E31 

71F9 

6400 0E17 



09 16 4328 
0917 E077 
09 18 0000 

09 19 4396 



091A 7004 

0918 40D5 
09 1C 1010 
091 D D3E0 
09 IE D3DE 



091F C323 
09 20 D306 





1 



RWRT3 



LD 

EOR 

BSC 

LD 

SRA 

SLA 

BSC 

S 

OR 

STO 

LDX 

MDX 

LDX 

BSI 

DC 
DC 

BSI 



3 25 
3 -3 
L RWRT3,£- 

3 11 
3 

3 
L DCRTN.S- 

3 -8 

3 -7 

3 11 
II F02XB 

1 -7 
L F02ACS5 

3 40 
/E077 


3 -106 



* 
* 

ENTRY 

GET CYL ERR CNT 

BR OUT IF ZERO 

GET LOOP COUNT 

GET LAST ADDR 

TEST AGAINST DESIRED 

BR IF EQ — BAD ADDR 

DEC CTRL 

LOOP 

EXIT TO CALL RT SX 

BR TO ERR MSAG RT SC 
BR TO MSAG FORM 2 MC 
— MSAG # — 
NO ERR LOOP ADDR 

GET RT EXEQ NUMBER 

TEST FOR RT 3 

BR TO SET RT 3 RETRN SX 

GET CURRENT ADDR 
SHIFT RIGHT HD-SECT 
SHIFT LEFT HD-SECT 
END RT BR IF ZERO 
DEC DISK ADDR BY 1 
SET HI SECT ADDR 
SET IN DESIRED ADDR 
GET CURRENT CTRL CNT 
DEC FOR ONE TOT CYL 
BR TO CONTINUE RT 2 SX 



BR TO MSAG FORM 

— MSAG # — 

NO ERR LOOP ADDR 

BR TO MONITOR END 



MC 



PX 



* 

*. . . , 

* 

DCWR 
* 



DISK WRITE ROUTINE 



* 



0921 
09 22 
092 3 



D3DF 
C30B 
D400 0C56 



092 5 406C 

0926 1 7401 0B99 
09 28 1000 

09 29 1 4400 09B8 
092B 7002 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



MDX 

BSI 
SLA 
STO 
STO 

* 

* 

DCW10 LD 
STO 
STO 
LD 
STO 

* 

BSI 

MDX 
NOP 
* 

BSI 
MDX 



01JUL66 
415178 



DCW10 

RWACK 

16 
3 -32 
3 -34 



3 35 
3 6 
3 -33 

3 11 
L DCDA61 

CDTRT 

- DCT617.1 


CDTSN 
DCWEL 



BR / NOP SWITCH SE 

RD/.WR ADDR CK RT SC 
CLEAR A REG 
RESET SOFT RD ERR 
RESET HARD RD ERR 



GET WRITE FUNCTION 
SET IT IN OCT 
MEM FNC HOLDER 
GET DESIRED ADDR 
SET IT IN I/O ADDR 

CMN DATA XFER RT SC 

ADD TO TOTAL WR CTR 
SAFTY NOP 

BR TO CK DSW SC 
WRITE ERR BR RETURN 



PART NO. 2196374 
PAGE 4 



04N0V66 
415233 



010CT67 
411875 



01NOV67 
411875A 



02DEC68 
411961 



80804100 
80804110 
80804120 
80804130 
80804140 
80804150 
80804160 
80804170 
80804180 
80804190 
80804200 
80804210 
80804220 
80804230 
80804240 
80804250 
80804260 
80804270 
80804280 
80804290 
80804300 
80804310 
80804320 
80804330 
80804340 
80804350 
80804360 
80804370 
80804380 
80804390 
80804400 
80804410 
80804420 
80804430 
80804440 
80804450 
80804460 
80804470 
80804480 
80804490 
80804500 
80804510 
80804520 
80804530 
80804540 
80804550 
80804560 
80804570 
80804580 
80804590 
80804600 
80804610 
80804620 
80804630 
80804640 
80804650 
80804660 
80804670 
80804680 
80804690 
80804700 
80804710 
80804720 
80804730 
80804740 
'80804750 
80804760 
80804770 
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092C 1 7401 0B33 
092E C315 
092F 83DE 

0930 D315 

0931 C314 
09 32 83E0 

0933 D314 

0934 1 4C80 0B33 



0936 7001 



0937 40B9 



DCWEL 



MDX 

LD 

A 

STO 

LD 

A 

STO 



DWR,1 

21 

-34 

21 

20 

-32 

20 



DCWBB BSC 

* 

* 

* 

* 
DCRD 



I DWR 



ADD TO EXIT RTN OK 
GET TOT HRD WR ERRS 
ADD NEW HRD ERRS 
SAVE NEW TOTAL 
GET TOT SFT WR ERRS 
ADD NEW SFT ERRS 
SAVE NEW TOTAL 

EXIT TO CALL RT SX 



DISK READ ROUTINE 



MDX 



0938 
09 39 
093A 
09 3B 
093C 
09 3D 
093E 
09 3F 
0940 
09 42 
0943 



1010 

D3E0 

D3DE 

D3EB 

C324 

D306 

D3DF 

C31A 

4C30 0945 

1010 

D400 0C56 



0945 404C 

0946 1 7401 0B9A 
09 48 1000 

09 49 40 6E 

094A 703F 

094B 1 C400 0C56 

09 4D D30C 

094E F30B 

094F 1 4C18 097D 

0951 C3E8 

0952 1 4C10 0965 

0954 C026 

09 55 F026 

0956 1 4C20 0961 



0958 





4334 


09 59 





E009 


095A 


1 


0936 


095B 





1010 


09 5C 





D3E0 


095D 


1 


7401 0B9B 


09 5F 





1000 


09 60 





7029 


09 61 





4334 


0962 





E015 


09 63 


1 


0936 


0964 





70F8 



0965 4334 



BSI 
* 

DCR10 SLA 
STO 
STO 
STO 

DCR12 LD 
STO 
STO 
LD 
BSC 
SLA 
STO 

0CR16 BSI 

MDX 
NOP 

BSI 
MDX 

LD 
STO 
EOR 
BSC 

LD 
BSC 

LD 

EOR 

BSC 

BSI 

DC 

DC 

SLA 

STO 
DCR19 MDX 

NOP 
* 

MDX 

DCR20 BSI 
DC 
DC 
MDX 

* 

0CR21 BSI 



DCR10 

RWACK 

16 

-32 

-34 

-21 

36 

6 

-33 

26 

DCR16,Z- 

16 

DCDA&l 

CDTRT 



L DCT£18,1 


CDTSN 
DCREL 

L DCDAS1 

3 12 

3 11 

L DCRGA,6- 

3 -21 
L DCR21,- 

DCRE1 

DCRE2 

L DCR20.Z 

3 F0RM2-DCT 
/E009 
DCRD .; 

16 

3 -32 
L DCT&19.1 


DCREL 

3 F0RM2-DCT 
/E015 
DCRD 
DCR19 



* 



BR / NOP SWITCH SE 

RD/WR ADDR CK RT SC 

CLEAR A REG 
RESET SOFT RD ERR 
RESET HARD RD ERR 
RESET RO-SK SW 1 
GET READ FUNCTION 
SET IT IN OCT 
MEM FNC HOLDER 
GET RD / RD-CK MOD 
BR BY ADDR CLR IF 6, 
CLR ACC 
CLR READ I/O ADDR 

CMM DATA XFER RT SC 

ADD TO TOTAL RD CTR 
SAFTY NOP 

BR TO CK DSW & OPCMP SC 
READ ERR BR RETURN 

GET ACTUAL ADDR 
SET ADDR IN OCT 
CK ACTUAL EQ DESIRED 
BR IF ADDR IS OK 

GET SW 1 

BR IF NOT 3RD RE-RD 

GET FIRST E008 AAR 
COMP 2ND E008 AAR 
BR IF E008 RDS UNEQ 



BR TO MSAG FORM 2 

— MSAG # — 
ERROR LOOP ADDR 

CLEAR A REG 
RESET SOFT RD ERR 
ADD ONE TO RESK ERR 
SAFTY NOP 

RD ERR BR RETURN 

BR TO MSAG FORM 2 

— MSAG #' — 
ERROR LOOP ADDR 
RD ERR BR RETURN 



MC 



3 F0RM2-DCT BR TO MSAG FORM 2 



MC 



MC 



0808-1 
4 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



01JUL66 
415178 



04N0V66 
415233 



010CT67 
411875 



01N0V67 
411875A 



02DEC68 
411961 
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80804780 

80804790 

80804800 

80804810 

80804820 

80804830 

80804840 

80804850 

80804860 

80804870 

80804880 

80804890 

80804900 

80804910 

80804920 

80804930 

80804940 

80804950 

80804960 

80804970 

80804980 

80804990 

80805000 

80805010 

80805020 

80805030 

80805040 

80805050 

80805060 

80805070 

80805080 

80805090 

80805100 

80805110 

80805120 

80805130 

80805140 

80805150 

80805160 

80805170 

80805180 

80805190 

80805200 

80805210 

80805220 

80805230 

80805240 

80805250 

80805260 

80805270 

80805280 

80805290 

80805300 

80805310 

80805320 

80805330 

80805340 

80805350 

80805360 

80805370 

80805380 

80805390 

80805400 

80805410 

80805420 

80805430 

80805440 

80805450 
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■f 

r 
L 

t 

f 

v. 

c 

c 

r 
*~ 

V. 

f * 



09 66 E008 

0967 0000 

0968 C3EB 

09 69 1 4C20 0973 

09 6B C30C 
096C DOOE 
09 6D C3CD 
096E D3EB 

096F C3E0 

0970 83FF 

0971 D3E0 

0972 70C9 

0973 C30C 
09 74 D007 

0975 4386 

0976 1 7401 0B9B 
09 78 1000 

09 79 C3BF 
097A 70F3 

097B 0000 
09 7C 0000 

09 70 C3EB 
097E 1 4C10 0985 
09 80 C3E0 
0981 93FE 
09 82 D3E0 

09 83 4328 
0984 A004 



0985 
09 87 
0988 
09 89.. 
098A 
09 8B 
098C 



1 7401 0B30 
C30C 

D30A 

D309 

C317 

83DE 

D317 



098D C316 
098E 83E0 
09 8F D316 

0990 1 4C80 0B30 



0992 0000 

0993 1010 

0994 D30E 

0995 4388 



099 6 
0997 
0999 

09 9A 



C30D 

D400 0C55 
C3DF 
D306 



099B C30B 
09 9C 100D 

099D 180D 



DCR22 



DCR23 



* 

DCRE1 

DCRE2 

* 
DCRGA 



* 
DCROK 



DCREL 



DCRBB 
* 

* 

CDTRT. 



DC 
DC 

LD 

BSC 

LD 
STO 
LD 
STO 

LD 

A 

STO 

MDX 

LD 

STO 

BSI 

MDX 
NOP 

LD 
MDX 

DC 
DC 

LD 

BSC 

LD 

S 

STO 

BSI 
DC 

MDX 

LD 

STO 

STO 

LD 

A 

STO 

LD 

A 

STO 

BSC 



/E008 


3 -21 

L DCR23 f Z 

3 12 

0CRE1 
3-51 
3 -21 

3 -32 
3 -1 
3 -32 

DCR12 

3 12 

DCRE2 
3 -122 

L DCT&19,1 


3 -6 5 

DCR2261 




3-21 
L DCROK, - 
3 -32 
3 -2 
3 -32 

3 FORMO-DCT 
/A004 



DRD, 

12 

10 

9 

23 

-34 

23 

22 

-32 

22 



— MSAG # — 

NO ERROR LOOP ADDR 

GET SW 1 

BR IF 2ND E008 PASS 

GET 1ST AAR OF E008 

SAVE IT 

GET 4000 HEX 

SET SW 1 TO 6 OR - 

GET SFT RD TEMP CNT. 
ADD ONE TO ERROR CNT 
SAVE NEW COUNT 

BR TO RE-READ ADDR 

GET 2ND AAR OF E008 

SAVE IT 

BR TO RE-ZERO ARM £ 

RE-SEEK DESIRED ADR 
ADD ONE TO RESK ERR 
SAFTY NOP 

GET 8000 HEX XTNT 
BR TO SET SW 1 

E008 AAR 1 
E008 AAR 2 

GET SW1 

BR IF RO ADDR OK 
GET SFT RD ERR TEMP 
COUNT 6 CORRECT IT 
SAVE CORRECTED CNT 

BR TO MSAG FORM 

— MSAG * — 

ADD TO EXIT RT OK 
GET ACTUAL DISK ADDR 
SET IT IN OCT PRESNT 
SET IT IN LAST GOOD 
GET TOTL HRD RD ERRS 
ADD NEW HRD ERRS 
SAVE NEW TOTAL 
GET TOT SFT RD ERRS 
ADD NEW SFT ERRS 
SAVE NEW TOTAL 



SC 



MC 



I DRD EXIT TO CALL RT 
COMMON RD / WR ROUTINE 



CDTBC 
* 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



DC 

SLA 

STO 

BSI 

LD 

STO 

LD 

STO 

LD 

SLA 

SRA 



01JUL66 
415178 





16 
3 14 

3 -120 

3 13 
L DC DA 
3 -33 
3 6 
3 11 

13 

13 



04N0V66 
415233 



ENTRY 

CLR ACC 

CLR RETRY CTR 

DCRDY RT 



SX 



SE 



SC 



GET WORD COUNT 

SET IT IN I/O FLO 

GET MEM HLD FNC 

SET IT IN OCT FNC WD 

GET DESIRED ADDR 

CLR CYL NUMBER 

CLR CYL NUMBER 
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010CT67 
411875 



01N0V67 
411875A 



02DEC68 
411961 



80805460 
80805470 
80805480 
80805490 
80805500 
80805510 
80805520 
80805530 
80805540 
80805550 
80805560 
80805570 
808 05580 
80805590 
80805600 
80805610 
80805620 
80805630 
80805640 
80805650 
80805660 
80805670 
.80805680 
80805690 
80805700 
80805710 
80805720 
80805730 
80805740 
80805750 
80805760 
80805770 
80805780 
80805790 
80805800 
80805810 
80805820 
80805830 
80805840 
80805850 
80805860 
80805870 
80805880 
80805890 
80805900 
80805910 
80805920 
80805930 
80805940 
80805950 
80805960 
80805970 
80805980 
80805990 
80806000 
80806010 
80806020 
80806030 
80806040 
80806050 
80806060 
80806070 
80806080 
80806090 
80806100 
80806110 
80806120 
80806130 



PROG ID 
PAGE 



( i < < < ( < ( ( i i ( < < < 



i 
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0808-1 
5 



099E 





EB1A 






OR 


3 


26 


RD/RD CK MODIFIER 


099 F 





D307 






STO 


3 


7 


SET ADJ MOD IN OCT 


09 AO 





C301 






LD 


3 


1 


GET I/O ADDR 


09A1 





D304 




* 


STO 


3 


4 


SET IT IN DCT 


09A2 





4392 




CDTRC 


BSI 


3 


-110 


DCOSW RT 


09A3 





E3C5 


* 




AND 


3 


-59 


TEST BITS 


09 A4 


1 


4C18 


09AD 


* 


BSC 


L 


CDTSE, t- 


BR ZERO TO CONTINUE 


09 A6 





43B1 




BSI 


3 


-7 9 


BR TO ERR MSAG RT 


09A7 





432 E 






BSI 


3 


46 


BR TO MSAG FORM 1 


09 A8 





E005 






DC 




/E005 


— MSAG # — 


09A9 


1 


09A2 




* 


DC 




CDTRC 


ERR LOOP ADDR 


09AA 





OBBA 




XIO 


3 


-70 


SENSE RESET DSW 


09 AB 





D308 




, 


STO 


3 


8 


SET DSW IN DCT 


09AC 





4396 




* 


BSI 


3 


-106 


BR TO MONITOR END 


09AD 





C3B7 




CDTSE 


LD 


3 


-73 


GET RETURN ADDR 


09 AE 





D31D 




* 


STO 


3 


29 


SET IT IN DCT 


09 AF 





4382 




BSI 


3 


-126 


BR TO EXEQ RT 


09 BO 





439C 




BSI 


3 


-100 


MONITOR START RT 


09B1 


1 


6700 


0B88 


CDTNR 


LDX 


L3 


OCT 


SET X3 CTRL ADDR 


09B3 





C300 






LD 


3 





GET ZERO XTNT 


09 B4 





D307 




* 


STO 


3 


7 


CLR MODIFIER 


09 B5 





438E 




BSI 


3 


-114 


RELEASE RT 


09 B6 


1 


4C80 


0992 


* 
* 

CDTSN 


BSC 


I 


CDTRT 


EXIT TO CALL RT 










**** 




** 


:HECK DSW RD/WR ** * 


09 B8 





0000 




DC 







ENTRY 


09B9 





C308 






LD 


3 


8 


GET DSW IN DCT 


09 BA 





E3C5 






AND 


3 


-5 9 


PASS TEST BITS 


09BB 





F3CD 






EOR 


3 


-51 


TEST ALL FOR OK 


09 BC 


1 


4C18 


09DA 


* 


BSC 


L 


CDTGX,£- 


BR ZERO ALL OK 


09 BE 


1 


C400 


0C56 


LD 


L 


DCDAS1 


GET ACTUAL ADDR 


09C0 





D30C 




* 


STO 


3 


12 


SET ADDR IN DCT TBL 


09C1 





43B1 




BSI 


3 


-79 


BR TO ERR MSAG RT 


09 C2 





4334 






BSI 


3 


52 


BR TO MSAG FORM 2 


09C3 





E006 






DC 




/E006 


— MSAG # ~ 


09 C4 





0000 




# 


DC 







NO ERR LOOP ADDR 


09 C5 


1 


C400 


0805 


LD 


L 


SW3 


GET SW FNC 3 DATA 


09C7 





4804 






BSC 




E 


SKIP IF EVEN 


09 C8 





7015 




* 
CDTLK 


MDX 




DSPLA 


BR TO DISPLAY IOA RT 


09 C9 


1 


7401 


0B68 


MDX 


L 


DCT-32,1 


ADD TO SFT ERR HOLDR 


09CB 





1000 






NOP 







SAFTY NOP 


09 CC 





C30E 






LD 


3 


14 


GET ERR TRY CTR 


09CD 





83FF 






A 


3 


-1 


ADD TO TRY CTR 


09 CE 





D30E 






STO 


3 


14 


SAVE CTR TOTAL 


09CF 





F3F6 






EOR 


3 


-10 


TEST FOR TENTH TRY ' 


09 DO 


1 


4C20 


0995 


* 


BSC 


L 


CDTBC, Z 


LOOP TO RETRY AUTO 


09 D2 


1 


7401 


0B66 


MDX 


L 


DCT-34,1 


ADD TO HRD ERR HOLDR 


0904 





1000 




* 


NOP 







SAFTY NOP 


09D5 





43B1 




BSI 


3 


-79 


BR TO ERR MSAG RT 


09 D6 





432E 






BSI 


3 


46 


BR TO MSAG FORM 1 


09D7 





E007 






DC 




/E007 


— MSAG # — 



SC 



SC 
MC 



SX 

SC 
XM 
SE 

SC 
SX 

SE 



SC 
MC 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 

415120A 



01JUL66 
415178 



04N0V66 
415233 



010CT67 
411875 



01NOV67 
411875A 



SC 

MC 



02DEC68 
411961 
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80806140 

80806150 

80806160 

80806170 

80806180 

80806190 

80806200 

80806210* 

80806220 

80806230 

80806240 

80806250 

80806260 

80806270 

80806280 

80806290 

80806300 

80806310 

80806320 

80806330 

80806340 

80806350 

80806360 

80806370 

80806380 

80806390 

80806400 

80806410 

80806420 

80806430 

80806440 

80806450 

80806460 

80806470 

80806480 

80806490 

80806500 

80806510 

80806520 

80806530 

80806540 

80806550 

80806560 

80806570 

80806580 

80806590 

80806600 

80806610 

80806620 

80806630 

80806640 

80806650 

80806660 

80806670 

80806680 

80806690 

80806.700 

80806710 

80806 720 

80806730 

80806740 

80806750 

80806760 

80806770 

80806780 

80806790 

80806800 

80806810 



PROG ID 
PAGE 



0808-1 
5A 



{ t t ( ( ( < ( ( ( < < < ( i < c 



c 

( 
c 

( 
( 
c 
c 
( 
c 
c 
c 
c 
c 
c 
c 

r 






f 
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09 D8 1 0993 

09 D9 7002 

09DA 1 7401 09B8 
09DC 1 4C80 09B8 

09DE 6900 

09 DF 6500 FEBF 

.09 El 1 C400 0805 
09E3 4804 
09 E4 7001 
09E5 7005 

09E6 1 C500 0096 
09 E8 30 DA 



09E9 7101 
09 EA 70 F6 

09 EB 6500 0000 
09ED 70DB 



09EE 4388 



* 
CDTGX 

* 
DSPLA 

DSPLP 



* 



DSPX1 

* 
* 

DCSK 
* 



DC 

MDX 

MDX 
BSC 

STX 
LDX 

ID 

BSC 

MDX 

MDX 

LD 
DC 



MDX 
MDX 

LDX 
MDX 



CDTRTfil 
CDTGXC2 

L CDTSN,1 
I CDTSN 

1 DSPX1S1 
LI -321 

L SW3 
E 

*S1 
DSPX1 

LI DCDAS321 

/30DA 



1 1 

DSPLP 

LI 

CDTLK 



ERR LOOP ADDR 

BR TO EXIT INST 

ADD TO EXIT CTRL 
EXIT GOOD I/O OP 

SAVE XI CONTENTS 
SET XI CONTROL COUNT 

GET SW FNC 3 DATA 
SKIP IF BIT 15 OFF 
GO TO DISPLAY LOGIC 
BR TO RESET XI 

GET I/O AREA WORD 
WAIT TO LOOK AT IT 



DEC XI FOR NXT WORD 
DISPLAY LOOP 

RESTORE XI 

BR OUT TO CONTINUE 



SX 



FAR SEEK SUBROUTINE 



09EF 
09 FO 
09F1 
09 F3 
09F5 



C30B 

93CF 

1 4C30 0A1F 
1 4400 0A82 
7034 



09F6 C30A 
09 F7 F30B 
09F8 1803 
09 F9 1 4C18 0A10 



09 FB 





£30B 


09FC 





1803 


09 FO 





D304 


09FE 





D302 


09 FF 





C321 


OAOO 





D306 


0A01 





D30F 


0A02 





4388 


0A03 





C3B8 


0A04 





D08D 


0A05 





709C 



0A06 1 7401 0B98 
0A08 1000 

0A09 C308 
OAOA E3C5 
OAOB F3CD 
OAOC 1 4C20 0A12 

OAOE C30B 
OAOF D30A 
0A10 1 4C80 OB 3 6 



0A12 1805 



DSKEE 



DSKNR 



DSKCR 

DSKBB 

* 

DSKER 



BSI 

LD 
S 

BSC 
BSI 
MDX 

LD 
EOR 
SRA 
BSC 

LD 

SRA 

STO 

STO 

LD 

STO 

STO 

BSI 

LD 

STO 

MDX 

MDX 
NOP 

LD 
AND 
EOR 
BSC 

LD 

STO 

BSC 



SRA 



3 -120 BR TO DCRDY RT 

3 11 GET DESIRED ADDR 

3 -49 TEST AGAINST MAX ADR 

L DSKIA.Z- BR IF ADDR OVER MAX 

L ADSKC BR TO 13/44 DRTN 

DSK13 BR TO 13 SO SECTION 



SC 



3 10 
3 11 
3 
L DSKBB, S- 



11 

3 

4 

2 

33 

6 

-3 3 

-120 

-7 2 

CDTRT 

CDTRC 

DCT616.1 




3 8 
3-5 9 
3 -51 
L DSKER, Z 



3 11 

3 10 

I DSK 



GET PRESENT ADDR 
TEST AGAINST DESIRED 
DROP BITS 13 TO 15 
BR OUT IF ADDR IS EQ 

GET DESIRED ADDR 
CLEAR HEAD-SECT BITS 
SET ADDR IN OCT 
SAVE ADDR IN HOLDER 
GET SEEK FUNCTION 
SET IT IN DCT 
SET IN MEM FNC HLDR 
BR TO DCRDY RT 
GET RETURN ADDR 
SET IT IN COM SETUP 
BR TO COM I/O OP RT 

ADD +1 TO SK CMPLT 
SAFTY NOP 

GET THE DSW AFTER SK 
PASS VALID BITS 
TEST FOR GOOD 
BR TO SK ERR DSW RT 

GET DESIRED ADDR 
SET IT IN PRESENT 
RETURN TO USER 



SC 



SX 



SHIFT FOR BIT 10 



PART NO. 
PAGE 



80806820 

80806830 

80806840 

80806850 

80806860 

80806870 

80806880 

80806890 

80806900 

80806910 

80806920 

80806930 

80806940 

808069 50 

80806960 

80806970 

80806980 

80806990 

80807000 

80807010 

80807020 

80807030 

80807040 

80807050 

80807060 

80807070 

80807080 

80807090 

80807100 

80807110 

80807120 

80807130 

80807140 

80807150 

80807160 

80807170 

80807180 

80807190 

80807200 

80807210 

80807220 

80807230 

80807240 

80807250 

80807260 

80807270 

80807280 

30807290 

80807300 

80807310 

80807320 

80807330 

80807340 

80807350 

80807360 

80807370 

80807380 

80807390 

80807400 

80807410 

80807420 

80807430 

80807440 

80807450 

80807460 

80807470 

80807480 

80807490 



2196374 
6 



4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 



) 
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) 



I 



* 



> 



>•■• 



r 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



01JUL66 
415178 



04N0V66 
415233 



010CT67 
411875 



01N0V67 
411875A 



02DEC68 
411961 



PROG ID 
PAGE 



0808-1 
6 



0A13 1 4C04 0A1A 



0A15 43B1 



* 



0A16 
0A17 
0A18 
0A19 



432E 
E040 
0000 
70F4 



0A1A OBBA 

0A1B OBBA 

0A1C 1805 

0A1D 1 4C04 0A24 

0A1F 43B1 

0A20 4334 
0A21 E041 
0A22 0000 

0A23 4396 

0A24 43B1 

0A25 432E 
0A26 E042 
0A27 1 09EE 
0A28 4386 
0A29 4399 



0A2A 
0A2B 
0A2C 
0A2D 
0A2E 
0A2F 
0A30 



C30A 
1803 
D302 
C30B 
1803 
9302 
4C18 OA10 



0A32 1 4C08 0A3A 

0A34 D302 
0A35 D304 
0A36 C321 
0A37 D306 
0A38 1 4C00 0A01 



0A3A 





C30B 


0A3B 





1803 


0A3C 





D302 


0A3D 





C30A 


0A3E 





1803 


0A3F 





9302 


0A40 





0302 


0A41 





D304 


0A42 





C322 


0A43 





70F3 



0A44 1 6700 OAOF 
0A46 1 6F00 080B 
0A48 4C80 012D 



BSC 

BSI 

BSI 
DC 
DC 
MDX 



DSKBT XIO 
XIO 
SRA 

BSC 
* 

DSKIA BSI 
* 

BSI 
DC 
- DC 



* 
DSKIS 

* 



* 
DSK13 



BSI 

BSI 

BSI 

DC 

DC 

BSI 

BSI 

LD 

SRA 

STO 

LD 

SRA 

S 

BSC 



D13MR 
D13HM 



STO 

STO 

LD 

STO 

BSC 

LD 

SRA 

STO 

LD 

SRA 

S 

STO 

STO 

LD 

MDX 



* 
* 

*. 
* 



L DSKBT, E 

3-7 9 

3 46 
/EO40 

DSKBB-2 

3 -70 
3-7 
5 
L DSKIS, E 

3-7 9 

3 52 
/E041 


3 -106 

3-7 9 

3 46 

/E042 

DCSK 
3 -122 
3 -103 

3 10 

3 
3 2 
3 11 

3 
3 2 
L DSKBB, £- 



BSC L D13HM,6 



3 2 
3 4 
3 33 
3 6 
L DSKEE 

3 11 

3 
3 2 
3 10 

3 
3 2 
3 2 
3 4 
3 34 

D13MR 



BR TO TEST BIO COND 

BR TO ERR MSAG RT SC 

BR TO MSAG FORM 1 MC 

— MSAG U — 

NO ERR LOOP ADDR 
BR TO FINISH SUBRT 

SENSE-RESET DSW 

DO IT AGAIN 

SHIFT TO TEST BIT 10 

BR IF BIO STILL ON 

BR TO ERR MSAG RT SC 

. BR TO MSAG FORM 2 MC 

— MSAG # — 

NO ERR LOOP ADDR 
INVALID ADDR SEL 
RETURN TO MONITOR PX 

BR TO ERR MSAG RT SC 

BR TO MSAG FORM 1 MC 

— MSAG » — 
ERR LOOP ADDR 

BR TO RESTORE ARM RT SC 
BR TO CTRL COUNT RT SC 

GET PRESENT ADDR 
CLEAR HD-SECT 
SAVE FOR CALC 
GET DESIRED ADDR 
CLEAR HD-SECT 
CALC INCREMENT 
BR RETURN IF ZERO 

BR IF INCR NEGATIVE 

SAVE INCREMENT 

SAVE INCREMENT 

GET INST /X400 

SET IT IN DCT 

BR TO MAIN LINE SEEK 

GET DESIRED ADDR 

CLEAR HD-SECT 

SAVE FOR CALC 

GET PRESENT ADDR 

CLEAR HD-SECT 

CALC INCREMENT 

SAVE INCREMENT 

SAVE INCREMENT 

GET INST /X404 

BR FOR MAINLINE RTRN 



CHANNEL BUSY ROUTINE 



CHNBZ LDX 
STX 
BSC 

* 



L3 CHNRQ 
L3 MLN 
I START 



SE 



GET CHNRQ ADDR 

SET IT IN MLSCF 

EXIT TO MONITOR SX 
* 

. . * 

COMMON MSAG NUM ADJ RT * 
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DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



01JUL66 
415178 



04N0V66 
415233 



010CT67 
411875 



01N0V67 
411875A 



02DEC68 
411961 



808075CO 
80807510 
80807520 
80807530 
80807540 
80807550 
80807560 
80807570 
80807580 
80807590 
80807600 
80807610 
80807620 
80807630 
80807640 
80807650 
80807660 
80807670 
80807680 
80807690 
80807700 
80807710 
80807720 
80807730 
80807740 
80807750 
80807760 
80807770 
80807780 
80807790 
808078C0 

808078 10 
80807820 
80807830 
80807840 
80807850 
80807860 
80807870 
80807880 
80807890 
80807900 

808079 10 
80807920 
80807930 
80807940 
80807950 
80807960 
80807970 
80807980 
80807990 
80808000 
80808010 
80808020 
80808030 
80808040 
80808050 
80808060 
80808070 
80808030 
80808090 
80808100 
80808110 
80808120 
80808130 
80808140 
80808150 
80808160 
80808170 



PROG ID 
PAGE 



0808-1 
6A 
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r 



0A4A 
0A4C 
0A4E 
0A4F 



7401 0B39 
C480 0B39 
E3C4 
83DF 



0A50 1 0480 OB 39 



0A52 
0A54 



0A56 
0A57 
0A58 
0A59 
0A5A 
0A5B 
0A5C 
0A5D 
0A5E 
0A60 
0A62 
0A63 

0A64 
0A66 
0A67 
0A68 
0A69 
0A6A 
0A6B 
0A6D 
0A6E 
0A6F 
0A71 



74FF 0B39 
4C80 0B39 



C3FF 

0302 
0304 
1010 
D30A 
D3E9 
C322 
D306 

1 6500 0A64 
1 6000 0BA5 
4382 

439C 



1 6700 0B88 

438E 

C3E9 

83FF 

03E9 

F3E7 

4C18 0A97 

4392 

1004 

4C28 0A9C 

70EA 



0A72 C30B 
0A73 03E6 
0A74 4380 

0A75 1 4C00 0AD2 



0A77 C30B 
0A78 930C 
0A79 4808 
0A7A 7003 

0A7B C3E2 
0A7C D30B 
0A7D 7002 

0A7E C3E3 
0A7F 030B 
0A80 1 4C00 0AB6 



*. . .. 

* 

EMNRT 



MDX 

LD 

AND 

A 

STO 

MDX 

BSC 



L EMF,1 
I EMF 

3-6 

3 -33 
I EMF 
I EMF,- 
I EMF 



1 



ADJ FOR MSAG NUM SE 

GET BASIC MSAG NUM 
PASS VALID BITS 
ADD IN RD / WR CODE 
SET IT IN MSAG RT 
ADJ FOR RETURN ADDR 
RETURN TO CALL RT SX 



* 
DHOME 



13 SO DCARM ROUTINE 






DHMLE 



* 
DHMNR 



* 
DRASK 



* 
* 
* 
* 

* 

* 
SKADJ 



LD 

STO 

STO 

SLA 

STO 

STO 

LD 

STO 

LDX 

STX 

BSI 

BSI 

LDX 

BSI 

LD 

A 

STO 

EOR 

BSC 

BSI 

SLA 

BSC 

MDX 



LD 

STO 

BSI 

BSC 



3 -1 

3 2 

3 4 
16 

3 10 

3 -23 

3 34 

3 6 
LI DHMNR 
LI 0CT621 

3 -126 

3 -100 



L3 DCT 
3 -114 
-23 
-1 
-23 
-2 5 

DARMC,£- 
-110 
4 

DARMZ, Z£ 
DHMLE 



3 
3 
3 
3 



GET INCR OF ONE 
SAVE INCREMENT 
SAVE INCREMENT 
CLEAR A REG 
SET ADDR TO ZERO 
CLEAR TRY CNTR 
BET INST /X404 
SET IT IN DCT 
GET RETURN ADDR 
SET IT IN DCT 
BR TO EXEQ RT 
BR TO MON START 

SET BASIC CTRL ADDR 

BR TO REL CHANNEL 

GET CNTR 

ADD ONE 

SAVE NEW TOTAL 

TEST FOR MAX 204 CNT 

BR TO MSAG IF ZERO 

BR TO SENSE DSW 

CHECK FOR HOME BIT 

BR IF HOME BIT ON 

BR LOOP 



SC 

XM 



SC 



SC 



13 SD RE-ZERO ARM RTN 

3 11 GET DESIRED ADDR 

3 -26 SAVE IT 

3-12 8 BR TO DCARM RTN 

L DRSKX BR TO RETURN TO USER 



SEEK ADJ CYL 089 / 111 



* 



SKOUT 



LD 
S 

BSC 
MDX 

LD 

STO 

MDX 

LD 
STO 

BSC 



3 11 
3 12 
6 

SKOUT 

3 -30 
3 11 

SK0UTS2 

3 -29 
3 11 
L DCBPR 



GET DESIRED ADDR 
SUB PRESENT ADDR 
SKIP IF POSITIVE 
BR TO NEGATIVE RT 

GET CYL 111 

SET ADDR 

BR TO BR BACK 

GET CYL 089 

SET ADDR 

BR TO USER RT 



SE 



SX 



* 






DATE 
FC NO. 



28FEB66 
415120 



01MAY66 
415120A 



01JUL66 
415178 



04N0V66 
415233 



010CT67 
411875 



01N0V67 
411875A 



02DEC68 
411961 



PART NO. 
PAGE 



80808180 
80808190 
80808200 
80808210 
80808220 
80808230 
80808240 
80808250 
80808260 
80808270 
80808280 
80808290 
80808300 
80808310 
80808320 
80808330 
80808340 
80808350 
80808360 
80808370 
80808380 
80808390 
80808400 
80808410 
80808420 
80808430 
80808440 
80808450 
80808460 
80808470 
80808480 
80808490 
80808500 
80808510 
80808520 
80808530 
80808540 
80808550 
80808560 
80808570 
80808580 
80808590 
80808600 
80808610 
80808620 
80808630 
80808640 
80808650 
80808660 
80808670 
80808680 
80808690 
80808700 
80808710 
80808720 
80808730 
80808740 
80808750 
80808760 
80808770 
80808780 
80808790 
80808800 
80808810 
80808820 
80808830 
80808840 
80808850 



PROG ID 
PAGE 



2196374 
7 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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0808-1 
7 



OATE 

EC NO. 



0A82 0000 
0A83 OBBC 
0A84 100D 
0A85 1 4C90 0A82 
0A87 1 7401 0A82 
0A89 1 4CA8 0A82 



0A8B 1 4400 0A82 

0A8D 70C8 

0A8E C300 

0A8F D30B 

0A90 C3CF 

0A91 D30A 

0A9 2 43AE 

0A9 3 4392 

0A94 1004 

0A9 5 1 4C28 0A9C 

0A9 7 43B1 

0A9 8 432 E 

0A99 E003 

0A9A 1 0A8B 

0A9B 4396 

0A9C 1 4C80 0B08 



0A9E 438A 

0A9F C3B9 
OAAO 1 D400 0809 

0AA2 C305 
0AA3 E806 
0AA4 EB07 
0AA5 1890 

0AA6 C304 

0AA7 D804 

0AA8 0803 

0AA9 1 4C80 OBOA 

OAAC 0002 



OAAE C30B 



* 

* 

ADSKC 



28FEB66 
415120 



DISK CHECK £ SW RTN A OR C 






DC 

XIO 

SLA 

BSC 

MDX 

BSC 




3-6 8 

13 
I ADSKC, - 
L ADSKC, 1 



ENTRY 

GET DSK DSW 

CK BIT 13 FOR TYPE 

BR RTRN IF DSK A 13 

ADV FOR RETURN 



I ADSKC, ZG BR RTRN IF DSK A 44 



* 

* 

* 
DCARM 

DARMA 



FAR ARM TO HOME RT 



01MAY66 
415120A 



* 
DARMC 



DARMZ 

* 
*.. . . 

* 

DEXEQ 
* 



BSI 

MDX 

LD 
STO 

LD 

STO 

BSI 

BSI 
SLA 
BSC 

BSI 

BSI 
DC 

DC 

BSI 
BSC 



L ADSKC 
DHOME 

3 

3 11 

3 -49 

3 10 

3 -82 

3 -110 
4 
L DARMZ, Z£ 

3 -79 

3 46 
/E003 
DCARM 

3 -106 

I ARM 



BR TO 13/44 DRTN SEC 
BR TO 13 SD SECTION 

GET DESIRED DSK ADDR 

SET IT IN DCT 

GET PSEUDO PRESENT 

SET IT IN DCT 

BR TO SEEK SUB RT 

BR TO SENSE DSK DSW SC 
SHIFT TO CK HOME BIT 
BR IF HOME BIT ON 

BR TO ERR MSAG RT SC 

BR TO MSAG FORM 1 MC 
— MSAG # — 
ERROR LOOP ADDR 

BR TO MONITOR END PX 

RETURN TO CALLING RT SX 



COMMON EXEQUTE I/O RT 



* 
DEXIO 

* 

*.. . . 

* 

* 
DCABP 



BSI 

LD 
STO 

LD 
OR 
OR 
SRT 

LD 

STD 

XIO 

BSC 

BSS 



3 -118 REQUEST DEVICE SC 

** ** MAIN LINE MUST RELEASE* 

3 -71 GET NTRPT TIMR ADDR 

L LIV SET IN MLSCF TBL 

3 5 GET AREA CODE 

3 6 SET IN FUNCTION 

3 7 SET IN MODIFIER 

16 PUT XIO IN Q REG 

3 4 GET AD&R / INCREMENT 

DEXIO SET IOCC WORD 

DEXIO DO I/O COMMAND 

I EXO EXIT RETURN SX 

E 2 IOCC WORD PM 



LD 



3 11 



ADDR BYPASS CK RT 

GET DESIRED ADDR 



SE 



01JUL66 
415178 



04NOV66 
415233 



010CT67 
411875 



01NOV67 
411875A 



02DEC68 

411961 



PART NO. 2196374 
PAGE 7A 



80808860 

80808870 

80808880 

80808890 

80808900 

80808910 

80808920 

808089 30 

80808940 

80808950 

80808960 

80808970 

80808980 

80808990 

80809 000 

80809010 

80809020 

80809030 

80809 040 

80809050 

80809 060 

80809070 

80809080 

80809090 

80809100 

80809110 

80809120 

80809130 

80809 140 

80809150 

80809 160 

80809170 

80809180 

80809190 

80809200 

80809210 

80809 220 

80809230 

80809240 

80809250 

80809260 

80809270 

80809280 

80809290 

80809300 

80809310 

80809320 

80809330 

80809340 

80809350 

80809360 

80809370 

80809380 

80809390 

80809400 

80809410 

80809420 

80809430 

80809 440 

80809450 

80809460 

80809470 

80809480 

80809490 

80809500 

80809510 

80809520 

80809530 



PROG ID 
PAGE 



0808-1 
7A 



I ( ( ( 4 ( ( < < A i ( < ( i 4 i A < ( < I i ( i -A ( ( < < < 4 I i 



f 



*■' 

'i 

V 

c 
c 
c 
c 
c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



f 



r 
f 
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DATE 
EC NO. 



OAAF 93EC 

OABO 1 4C28 0AB6 

0AB2 C30B 
0AB3 93EA 
0AB4 4808 

0AB5 70C1 

0AB6 1 4C80 OBOC 



0AB8 .4388 
0AB9 1 4400 0A82 
OABB 70 B6 



OABC 





C30B 


OABD 





D3E6 


OABE 





10A0 


0A8F 





D80A 


OACO 





D304 


0AC1 





C321 


0AC2 





D306 


0AC3 





D3DF 


0AC4 





C3B6 


0AC5 





D31D 


0AC6 





4382 


0AC7 





439 C 



0AC8 1 6700 0B88 
OACA 438E 
OACB C308 
OACC E3C3 
OACD F3CC 
OACE 1 4C20 0C48 

OADO 1010 
0AD1 D3EF 
0AD2 C3E6 
0AD3 D30B 
0AD4 1 4C80 OBOE 



0AD6 4392 
0AD7 180C 
0AD8 1 4C98 0B10 

OADA 43B1 
OADB 432E 
OADC E002 
OADD 0000 
OADE 70F7 



OADF 4480 0131 
0AE1 1 0A44 
0AE2 0000 
0AE3 1 08DD 



S 
BSC 

LO 

S 

BSC 

MDX 

OCBPR BSC 
* 

* 

* ... 

DRESK BSI 
BSI 
MDX 

* 

LD 

STO 

SIT 

STO 

STO 

DRERT LD 
STO 
STO 
LD 
STO 
BSI 
BSI 

DRSKR LDX 
BSI 
LD 

AND 
EOR 
BSC 

SLA 
STO 

DRSKX LD 
STO 
BSC 

* 

*..'. 



3 -20 
L DCBPR,Z£ 

3 11 

3-2 2 

6 

SKADJ 

I ABP 



SUB CYL 90 

BR IF LESS THAN 

GET DESIRED ADDR 

SUB CYL 110 

SKIP IF GREATER THAN 

BR TO GET CYL £/- 

EXIT TO CALL RT SX 






FAR RESTORE ARM RT 



3 -120 
L ADSKC 
DRASK 



11 

-26 

32 

10 

4 

33 

6 

-33 

-7 4 

29 

-126 

-100 



L3 DCT 

3 -114 

3 8 

3 -6 1 

3 -52 
L RSTRT,Z 



BR TO DISK READY RT SEC 
BR TO 13/44 DRTN 
BR TO 13 SD SECTION 

GET DESIRED ADDR 

SAVE DESIRED ADDR 

CLEAR A 6 Q 

SET DESIRED 6 PRSNT 

RESET ADDR 

GET SEEK INST 

SET IT IN DCT 

SET IT IN MEM FNC 

GET NTRPT XFER ADDR 

SET IT IN DCT 

BR TO EXEQ DSK OP SC 

BR TO MONITOR START XM 

RESET X3 CTRL ADDR RM 

BR TO REL CHAN RT SC 

GET DSW 

PASS TEST BITS 

TEST FOR OK PATTERN 

BR HOME BIT NOT ON 



16 

-17 

-26 

11 

RSK 



* 

* 

* 

OCRDY BSI 
SRA 
BSC 

* 

BSI 

BSI 

DC 

DC 

MDX 



CLEAR A REG 
RESET RETRY CNTR 
GET DESIRED ADDR 
SET ADDR IN DCT 
RETURN TO CALLING RT SX 
* 

..........* 

RDY-NOTBUSY-OK CK RT * 

, .......* 

* 
3 -110 DCDSW RT SEC 

12 SHIFT FOR B0-B3 
I RDY,£- EXIT SX 



3 -79 BR TO ERR MSAG RT 

3 46 BR TO MSAG FORM 1 

/E002 — MSAG # — 

NO ERR LOOP ADDR 

DCRDY BR TO PRINT AGAIN 



SC 
MC 



28FEB66 
415120 



01MAY66 
415120A 



* 

*. 

CHNRQ BSI 
DC 

CHNSA DC 
DC 



01JUL66 
415178 



CHANNEL REQUEST RT 






I RE ODV 
CHNBZ 

DVA 



04N0V66 
415233 



CHANNEL REQUEST RT 
BUSY RT ADDR 
DDEF ADDR 
DEVICE REF ADDR 



SEC 



010CT67 
411875 



01N0V67 
411875A 



02DEC68 
411961 



PART NO. 
PAGE 



80809 540 
80809550 
80809 560 
80809570 
80809580 
80809590 
80809600 
80809610 
80809620 
80809630 
80809 640 
80809650 
80809660 
80809670 
80809680 
80809690 
80809700 
80809710 
80809720 
80809730 
80809740 
80809750 
80809760 
80809770 
80809780 
80809790 
80809800 
80809810 
80809820 
80809830 
80809840 
80809850 
80809860 
80809870 
80809880 



2196374 

8 



80809890 
80809900 
80809910 
80809920 
808099 30 
80809940 
80809950 
80809960 
80809970 
80809980 
80809990 
80810000 
80810010 
80810020 
80810030 
80810040 
80810050 
80810060 
80810070 
80810080 
80810090 
8 0810100 
80810110 
80810120 
80810130 
80810140 
80810150 
80810160 
80810170 
80810180 
80810190 
80810200 
80810210 



PROG ID 
PAGE 






0808-1 
8 
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PART NO. 2196374 
PAGE 8A 





0AE4 


1 


080C 




DC 




TERM 


ADDR OF/FFFF 




80810220 






0AE5 


1 


6700 0B88 




LDX 


L3 


DCT 


SET X3 CTRL ADDR 




80810230 






0AE7 


1 


4C80 0B12 


* 

* 


BSC 


I 


REO 


EXIT TO CALL RT 


SX 


80810240 
80810250 
80810260 
80810270 
80810280 






* 






FILL 


I/O AREA RT 


* 
























80810290 
80810300 






* 










* 






0AE9 





6500 FECO 


DFILL 


LDX 


LI 


-320 


SET PASS CTRL 


SE 


80810310 






OAEB 


1 


D500 0D97 




STO 


LI 


DCDAG322 


RESET IOA WITH ACC 


80810320 






OAED 





7101 




MDX 


1 


1 


DEC CTRL 




80810330 






OAEE 





70 FC 




MDX 




DFILLE2 


LOOP 




80810340 






OAEF 


1 


4C80 0B14 


* 


BSC 


I 


FLX 


EXIT 


SX 


80810350 
80810360 
80810370 
80810380 






* 






CHANNEL RELEASE RT 


* 
























80810390 
80810400 






* 










* 






0AF1 





4480 0132 


CHNRL 


BSI 


I 


RELDV 


CHANNEL RELEASE RT SEC 


80810410 






0AF3 





0000 


CHNRA 


DC 







DDEF ADDR 




80810420 






0AF4 


1 


080C 




DC 




TERM 


ADDR OF /FFFF 




80810430 






0AF5 


1 


6700 0B88 




LDX 


L3 


DCT 


SET X3 CTRL ADDR 




80810440 






0AF7 


1 


4C80 0B16 


* 


BSC 


I 


REL 


EXIT TO CALL RT 


SX 

* 


80810450 
80810460 
80810470 
80810480 






* 






DISK 


DELAY ROUTINE 


* 
























80810490 
80810500 






* 










* 






0AF9 





71FF 


DCDLA 


MDX 


1 


-1 


DEC NDX -1 


SE 


80810510 






OAFA 





70FE 




MDX 




*-2 


LOOP IF NOT ZERO 




80810520 






OAFB 





C3C0 




LD 


3 


-64 


GET ADDR OF RETURN SE 


80810530 






OAFC 


1 


D400 080B 




STO 


L 


MLN 


SET ADDR IN MLSCF 


80810540 






OAFE 





439C 




BSI 


3 


-100 


BR TO MON START 


XM 


80810550 






OAFF 


1 


6700 0B88 


DLABB 


LDX 


L3 


DCT 


SET X3 CTRL ADDR 




80810560 






0B01 


1 


4C80 0B18 


* 


BSC 


I 


DLA 


EXIT TO CALL RT 


SX 


80810570 
80810580 
80810590 
80810600 






* 






REAO 


DSW ROUTINE 


* 






















£ 


80810610 
80810620 






* 










* 






0B03 





OBBC 


DCDSW 


XIO 


3 


-68 


READ DSW 


SE 


80810630 






OB 04 





D308 




STO 


3 


8 


SAVE DSW 




80810640 






0B05 


1 


4C80 0B1A 




BSC 


I 


DSW 


RETURN TO CALL RT SX 


80810650 












* 










* 


80810660 












$ 










:£ 


80810670 
80810680 






* 






X3 - 


COMMON XFER TABLE 


* 
























80810690 












* 










* 


80810700 






0B08 




0000 




BSS 


E 









80810710 






OB 08 





0000 


ARM 


DC 









-128 


80810720 






0B09 





7081 


* 


MDX 




DCARM 




SC 


80810730 
80810740 






OBOA 





0000 


EXQ 


DC 




: 


■----•'- 


-126 


80810750 






OB OB 





7092 


* 


MDX 




DEXEQ 




SC 


80810760 
80810770 






OBOC 





0000 


ABP 


DC 









•124 


80810780 






OBOD 





70A0 


* 


MDX 




DCABP 




SC 


80810790 
80810800 






OBOE 





0000 


RSK 


DC 









-122 


80810810 






OB OF 





70A8 


* 


MDX 




DRESK 




SC ' 


80810820 
80810830 






0B10 





0000 


RDY 


DC 









■120 


80810840 






0B11 





70C4 


* 


MDX 




DCRDY 




SC 


80810850 
80810860 






0B12 





0000 


REQ 


DC : 









- 1 18 


80810870 






0B13 





70CB 


* 


MDX 




CHNRQ 




SC 


80810880 
80810890 




DATE 


• 28FEB66 01MAY66 


01JUL66 


04N0V66 010CT67 01N0V67 02DEC68 


PROG ID 


0808-1 


EC NO. 


415120 415120A 


415178 


415233 411875 411875A 411961 


PAGE 


8A 
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L 



DATE 
EC NO. 



OB 14 
OBI 5 

0B16 
OB 17 

0B18 
0B19 

0B1A 
OB IB 

0B1C 
0B1D 

0B1E 
OB IF 

0B21 
0B22 

0B24 
0B25 

0B27 
0B2 8 

0B2A 
0B2B 

0B2D 
0B2E 

0B30 
OB 31 

OB 33 
0B34 

0B36 
OB 37 

OB 39 
0B3A 



0000 
70D3 

0000 
70 D9 

0000 
70DF 

0000 
70 E7 

0000 
70FF 

0000 

4C80 012E 

0000 

1 4C00 0C3B 

0000 

4C80 012D 

0000 

1 4C00 08A7 

0000 

1 4C00 0859 

0000 

1 4C00 08BC 

0000 

1 4C00 0936 

t!ooo 

1 4C00 091A 

0000 

1 4C00 09EE 

0000 

1 4C00 0A4A 



FLX 

* 
REL 

* 
DLA 

* 
DSW 

* 
HNG 

* 
MEND 



* 
STRT 

* 
' RTN 

* 
REST 

DEND 

* 
DRD 

* 
DWR 

* 
DSK 

EMF 



DC 
MDX 

DC 
MDX 

DC 
MDX 

DC 
MDX 

DC 
MDX 

DC 
BSC 

DC 
BSC 

DC 

BSC 

DC 

BSC 

DC 

BSC 

DC 
BSC 

DC 
BSC 

DC 
BSC 

DC 
BSC 

DC 

BSC 




DFILL 


CHNRL 


DCDLA 



DC DSW 


*-l 



•116 



SC 



-114 



SC 



-112 



SC 



-110 



SC 



•108 



SC 





I END 



COUNT 



I START 


L DCRTN 


L DC TRL 


L DCEOD 


L DCRD 


L OCWR 


L DCSK 



L EMNRT 



•106 



PXM 



-103 



SC 



-100 



XM 



-9 7 



SC 



-94 



SC 



-91 



SC 



-88 



SC 



-85 



SC 



-82 



SC 



-79 



0B3C 1 
OB 3D 1 
0B3E 1 
0B3F 1 
0B40 1 
0B41 1 
0B42 
0B43 
0B44 
0B45 
0B46 
OB 47 
0B48 
OB 49 
0B4A 
0B4B 
0B4C 
0B4D 
0B4E 



* 



SC 



X3 - COMMON XTNT REF TBL 



0859 

085F 

0AC8 

09B1 

0A0 6 

08C1 

0000 

0701 

0000 

0700 

0658 

8000 

OAFF 

0100 

FFFF 

FFF8 

FOFF 

F7F8 

E5E5 



28FEB66 
415120 



01MAY66 
415120A 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



01JUL66 
415178 



DCTRL 
DCTL2 
DRSKR 
CDTNR 
DSKNR 
DLNRT 
/OOOO 
/0701 
/OOOO 
/0700 
/06 58 
/8000 
DLABB 
/0100 
/FFFF 
/FFF8 
/FOFF 
/F7F8 
/E5E5 



04 NOV 66 
415233 



PATTERN ZERO 



010CT67 
411875 



01N0V67 
411875A 



-76 

-75 

-74 

-73 

-72 

-71 

-70 

-69 

-68 

-67 

-66 

-65 

-64 

-63 

-62 

-61 

-60 

-59 

-58 



02DEC68 
411961 



PART NO. 2196374 
PAGE 9 



80810900 

80810910 

80810920 

80810930 

80810940 

80810950 

80810960 

80810970 

80810980 

80810990 

80811000 

80811010 

80811020 

80811030 

80811040 

80811050 

80811060 

80811070 

80811080 

80811090 

80811100 

80811110 

80811120 

80811130 

80811140 

80811150 

80811160 

80811170 

80811180 

80811190 

80811200 

80811210 

80811220 

80811230 

80811240 

80811250 

80811260 

80811270 

80811280 

80811290 

80811300 

80811310 

80811320 

80811330 

80811340 

80811350 

80811360 

80811370 

80811380 

80811390 

80811400 

80811410 

80811420 

80811430 

80811440 

80811450 

80811460 

80811470 

80811480 

80811490 

80811500 

80811510 

80811520 

80811530 

808115^0 

80811550 

80811560 

80811570 



PROG ID 
PAGE ' 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2315 DISK INITIALIZER 



0808-1 
9 



PART NO. 2196374 
PAGE 9A 





0B4F CEDC 


DC 


/CEDC 




-57 


80811580 






0B50 OOOO 


OC 


/OOOO 




-56 


80811590 






0B51 0700 


DC 


/0700 




-55 


80811600 




■ 


0B52 7000 
OB 53 6400 


DC 
DC 


/7000 
/6 400 




-54 
-53 


80811610 
80811620 




i 


0B54 4800 


DC 


/4800 




-52 


80811630 






OB 55 4000 
0B5 6 OOOO 


DC 

DC 


/4000 
/OOOO 




-51 
-50 


80811640 
80811650 






0B57 0657 


DC 


/0657 


MAX DISK ADDR 


-49 


80811660 






0B58 1313 


DC 


/1313 


PATTERN ONE 


-48 


80811670 






OB 59 1000 


DC 


/1000 


NOP INST 


-47 


80811680 






0B5A OOOO 


DC 


/OOOO 


BIT PATTERN 


-46 


80811690 






0B5B 07D0 


DC 


/07D0 


TIME CONSTANT 


-45 


80811700 






0B5C OOOO 


DC 





DISK ADDRESSES 


-44 


80811710 




■ 


0B5D OOOO 


DC 





DISK ADDRESSES 


-43 


80811720 






0B5E OOOO 


DC 





DISK ADDRESSES 


-42 


80811730 






0B5F OOOO 


DC 





" DISK ADDRESSES 


-41 


80811740 






0B6O OOOO 


DC 





DISK AODRESSES 


-40 


80811750 






0B61 OOOO 


DC 





DISK ADDRESSES 


-39 


80811760 






0B62 OOOO 


DC 





DISK ADDRESSES 


-38 


80811770 






OB 63 OOOO 


DC 





DISK ADDRESSES 


-37 


80811780 






0B64 OOOO 


DC 





DISK WORK AREA 


-36 


80811790 






OB 65 OOOO 


DC 





DISK WORK AREA 


-35 


80811800 






0B66 OOOO 


DC 





DISK WORK AREA 


-34 


80811810 






OB 67 OOOO 


. DC 





DISK WORK AREA 


-33 


80811820 






0B68 OOOO 


DC 





"DISK WORK AREA 


-32 


80811830 






OB 69 OOOO 


DC 





DLA XTNT HLDR 


-31 


80811840 






0B6A 0378 


DC 


/0378 




-30 


80811850 






0B6B 02CF 


DC 


/02CF 




-29 


80811860 






0B6C OOOO 


DC 







-28 


80811870 






OB 60 0141 


DC 


321 




-27 


80811880 






0B6E OOOO 


DC 







-26 


80811890 






0B6F OOCC 


DC 


204 




-25 


80811900 






0B70 00C8 


DC 


200 




-24 


80811910 






OB 71 OOOO 


DC 







-23 


80811920 






0B72 0377 


DC 


/0377 




-22 


80811930 






0B73 OOOO 


DC 







-21 


80811940 






0B74 02D0 


DC 


/O2D0 




-20 


80811950 






0B75 0018 


DC 


24 




-19 


80811960 






0B76 OOOO 


DC 







-18 


80811970 






OB 77 OOOO 


DC 







-17 


80811980 






0B78 0010 


DC 


16 




-16 


80811990 






0B79 OOOF 


DC 


15 




-15 


80812000 






0B7A OOOE 


DC 


14 




-14 


80812010 






0B7B OOOD 


DC 


13 




-13 


80812020 






0B7C OOOC 


DC 


12 




-12 


80812030 






0B7D OOOB 


DC 


11 




-11 


80812040 






0B7E OOOA 


DC 


10 




-10 


80812050 






0B7F 0009 


DC 


9 




-9 


80812060 






0B80 0008 


DC 


8 




-8 


80812070 






0B81 0007 


DC 


7 




-7 


80812080 






0B82 0006 


DC 


6 




-6 


80812090 






0B83 0005 


DC 


5 




-5 


80812100 






0B84 0004 " 


DC 


4 


•; 


-4 


80812110 






0B85 0003 


DC 


3 




-3 


80812120 






0B86 0002 


DC 


2 




-2 


80812130 






0B87 0001 


DC 


1 




-1 

* 


80812140 
80812150 
80812160 
80812170 
80812180 
80812190 








* 


X3 - DISK CTRL TABLE 


* 








* 






* 






0B88 OOOO 


DCT DC 


/OOOO 


ZERO CONSTANT 





80812200 






0B89 1 0C55 


DC 


DCDA 


READ DATA AREA 


FLD 1 


80812210 






0B8A OOOO 


DC 





SEEK INCR CALC HLD 2 


80812220 






0B8B OOOO 


DC 





SK - WR - RO SWCTL 3 


80812230 






0B8C OOOO 


DC 





I/O AREA / CYL INC 4 


80812240 






0B8D OOOO 


DC 





AREA CODE 


5 


80812250 




DATE 


28FEB66 01MAY66 


01JUL66 


04N0V66 


010CT67 01N0V67 


02DEC68 


PROG ID 


0808-1 


EC NO. 


415120 415120A 


415178 


415233 


411875 411875A 


411961 


PAGE 
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0B8E 





0000 


0B8F 





0000 


0B90 





0000 


0B91 





0000 


0B92 





0000 


089 3 





0000 


0B94 





0000 


0B9 5 





0000 


0B96 





0000 


0B97 





0000 


0B98 





0000 


0B99 





0000 


0B9A 





0000 


0B9B 





0000 


0B9C 





0000 


0B90 





0000 


0B9E 





0000 


0B9F 





0000 


OBAO 





0000 


0BA1 





0000 


0BA2 





0000 


0BA3 





0000 


0BA4 





OFFF 


08A5 





0000 


0BA6 





0000 


08A7 





0000 


0BA8 





0000 


0BA9 





0400 


OBAA 





0404 


OBAB 





0500 


OB AC 





0600 


OBAO 





0608 


OBAE 





0700 


OBAF 





0701 



OBBO 0000 

0BB1 1 6580 OBBO 

0BB3 C300 

0BB4 D07C 

0BB5 7040 

0BB6 0000 

0BB7 1 6580 0BB6 

,0BB9 C3FF 

OBBA D076 

OBBB 700D 



OBBC 
OBBD 
OBBF 
OB CO 
0BC1 
0BC2 
0BC3 
0BC4 
0BC5 
0BC6 
0BC7 



0000 

6580 OBBC 

C3FB 

DO 70 

C302 

DO 75 

C30C 

DO 72 

C30B 

D06F 

C309 



DC FUNCTION 6 

DC MODIFIER 7 

DC LAST DSW READ 8 

DC LAST GOOD CYL READ 9 

DC PRESENT CYL 10 

DC DESIRED CYL HDDR 11 

DC . ACTUAL ADDR READ 12 

DC ■ CURRENT WORD CNT 13 

DC RD-WR ERR TRY CTR 14 

DC SEEK ERR TRY CTR 15 

DC TOTAL SEEKS 16 

DC TOTAL WRITES 17 

DC TOTAL READS 18 

DC TOTAL SEEK ERRORS 19 

DC TOT SFT WR ERRORS 20 

DC TOT HRD WR ERRORS 21 

DC TOT SFT RD ERRORS 22 

DC TOT HRD RD ERRORS 23 

DC TOT PROG PASSES 24 

DC ROUTINE EXEO NUM 25 

DC RD-RDCK MODE CODE 26 

DC LOST TIME DLA CTR 27 

DC /OFFF LOST TIME DLA XNT 28 

DC NTRUPT RTRN ADDR 29 

DC WD NUM OF PAT ERR 30 

DC DESIRED PATTERN 31 

DC ACTUAL PATTERN 32 

DC /0400 DIRECT ACCESS SK 33 

DC /0404 SEEK OUT 34 

DC /0500 DISK WRITE DATA 35 

DC /0600 DISK READ DATA 36 

DC /0608 DISK READ CHECK 37 

DC /0700 DISK SENSE NORSET 38 

DC /0701 DISK SENSE RESET 39 

* * 
* * 

* X3 - MSAG REF TBL * 
*... .....* 

* * 

* * 
* * 

* MSAG FORMAT ROUTINE * 
* * 

* * 

FORMO DC SAVE ENTRY ADDR 

LDX II FORMO SAVE ADDR FOR RTRN 

LD 3 GET WORD COUNT 

STO DCOUT PUT IT IN MSAG OPA 

MDX DCOSW BRNCH TO OUTPUT CALL 

* 

F0RM1 DC SAVE ENTRY ADDR 

LDX 11 F0RM1 SAVE ADDR FOR RTRN 

LD -3-1 GET WORD COUNT 

STO DCOUT PUT IT IN MSAG OPA 

MDX DCFMB BR TO FINISH SETUP 

* 

F0RM2 DC SAVE ENTRY ADDR 

LDX II F0RM2 SAVE ADDR FOR RTRN 

LD 3 -5 GET WORD COUNT 

STO DCOUT PUT IT IN MSAG OPA 

LD 3 2 GET TRACK SEEK CNT 

STO DC0UTS7 SET CNT IN MODIFIER 

DCFMA LD 3 12 FOUND CYL 6 SECT 

STO DC0UT£6 SET CYL IN MODIFIER 

LD 1 3 11 DESIRED CYL E. SECT 

STO DCOUT65 SET CYL IN MODIFIER 

LD 3 9 LAST CYL AND SECT 



SE 



SE 



SE 
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DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



01JUL66 
415178 



04N0V66 
415233 



010CT67 
411875 



01NOV67 
411875A 



02DEC68 
411961 



80812260 

80812270 

80812280 

80812290 

80812300 

80812310 

80812320 

80812330 

80812340 

80812350 

80812360 

80812370 

80812380 

80812390 

80812400 

80812410 

80812420 

80812430 

80812440 

80812450 

80812460 

80812470 

80812480 

80812490 

80812500 

80812510 

80812520 

80812530 

80812540 

80812550 

80812560 

80812570 

80812580 

80812590 

80812600 

80812610 

80812620 

80812630 

80812640 

80812650 

80812660 

80812670 

80812680 

80812690 

80812700 

80812710 

80812720 

80812730 

80812740 

80812750 

80812760 

80812770 

80812780 

80812790 

80812800 

80812810 

80812820 

80812830 

80812840 

80812850 

80812860 

80812870 

80812880 

80812890 

80812900 

80812910 

80812920 

80812930 
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DATE 
EC NO. 



0BC8 D0 6C 

0BC9 C308 

OBCA D069 

OBCB 7037 



OBCC 
OBCD 
OBCF 
OB DO 
0BD1 
0BD2 
0BD3 
0BD4 
0BD5 
0BD6 
0BD7 

0BD8 
0BD9 
OBDB 
OB DC 
08DD 
OBDE 
OBDF 
OBEO 
0BE1 
0BE2 
0BE3 
0BE4 
0BE5 
0BE7 
0BE8 
0BE9 
OBEA 
OBEB 
OBEC 
OB ED 
OBEE 
OBEF 
OBFO 
0BF1 
0BF2 
0BF4 
0BF5 
0BF6 
0BF7 
0BF8 
0BF9 
OB FA 
OBFB 
OBFC 
OBFD 
OBFE 
OBFF 
OCOO 
0C01 
0C02 



0000 

6580 OBCC 

C3F9 

D060 . 

C31E 

DO 65 

C31F 

DO 64 

C320 

0063 

70EB 



0000 

1 6580 0BD8 
C3FD 

DO 54 

C3CB 
DO 49 
C318 
DO 53 . 
C310 
DO 52 
C313 
DO 51 

6600 0BE9 
6A41 
701A 
CO 47 
83C1 
DO 45 
C311 
DO 46 
C314 
DO 45 
C315 
DO 44 

1 6600 0BF6 
6A34 

7021 
C03A 
83C1 
D038 
C312 
DO 39 
C316 
D038 
C317 
0037 
C3D1 
D027 
D027 
7014 



0C03 C100 
0C04 D02E 
0C05 180C 
0C06 F3F2 
0C07 1 4C20 0C16 



STO 
DCFMB LD 
STO 
MDX 

FORM 3 DC 
LDX 
LD 
STO 
LD 
STO 
LD 
STO 
LD 
STO 
MDX 

FORM 4 DC 
LDX 
LD 
STO 
LD 
STO 
LD 
STO 
LD 
STO 
. • LD 
STO 
LDX 
STX 
MDX 

FRM4A LD 
A 

STO 
LD 
STO 
LD 
STO 
LD 
STO 
LDX 
STX 
MDX 

FRM4B LD 
A 

STO 
LD 
STO 
LD 
STO 
LD 
STO 
LD 
STO 
STO 
MDX 

*. . 

* 
* 

* 



DC0UT64 
3 8 

DC0UTS3 
DCOSW 



II F0RM3 
3 -7 

DCOUT 
3 30 

DC0UT67 
3 31 

DC0UTS8 
3 32 

DC0UU9 

DCFMA 



II F0RM4 
3 -3 

DCOUT 
3 -53 

DCELS 
3 24 

DC0UT63 
3 16 

DC0UTS4 
3 19 

DC0UTS5 
L2 FRM4A 

2 DCELS61 
DCOSW 
DCOUT 

3 -63 
DCOUT 

3 17 
. DC0UT63 
* 3 20 

DC0UTS4 
3 21 

DC0UTG5 
L2 FRM4B 

2 DCELS61 
DCLGX 
DCOUT 

3 -63 
DCOUT 

3 18 

DC0UTG3 

3 22 

DC0UTG4 

3 23 

DC0UTS5 
' 3 -47 
DCELS 
DCELS61 
DCLGX 



SET CYL IN MODIFIER 
LAST DSW 

SET DSW IN MODIFIER 
BRNCH TO OUTPUT CALL 

SAVE ENTRY ADDR 

SAVE ADDR FOR RTRN 

GET WORD COUNT 

PUT IT IN MSAG OPA 

WC OF ERROR DATA 

SET WEC IN MODIFIER 

EXPECTED WORD 

SET EXP IN MODIFIER 

ACTUAL WORD 

SET ACT IN MODIFIER 

BR TO FINISH SETUP 

SAVE ENTRY ADDR 
SAVE ADDR FOR RTRN 
GET WORD COUNT 
PUT IT IN MSAG OPA 
GET BR INST 
PUT IN NOP / BR INST 
PROG. EXECUTITIONS 
MODIFIER NO. 1 
TOTAL" SEEKS 
MODIFIER NO. 2 
SEEK ERRORS 
MODIFIER NO. 3 
GET ALTERNATE RETURN 
PUT IN ADDRESS 
BRNCH TO OUTPUT CALL 
LINE NO. £ WORD CT. 
INCREMENT LINE NO. 

TOTAL WRITES 
MODIFIER NO. 1 
SOFT WRITE ERRORS 
MODIFIER NO. 2 
HARD WRITE ERRORS 
MODIFIER NO. 3 
GET ALTERNATE RETURN 
PUT IN ADDRESS 
BRNCH TO OUTPUT CALL 
LINE NO. & WORD CT. 
INCREMENT LINE NO. 

TOTAL READS 
MODIFIER NO. 1 
SOFT READ ERRORS 
MODIFIER NO. 2 
HARD READ ERRORS 
MODIFIER NO. 3 
GET NOP INST 
RESET TO NOP 
RESET TO NOP 
BRNCH TO OUTPUT CALL 



SE 



SET UP OUTPUT AREA 



28FEB66 
415120 



01MAY66 
415120A 



DCOSW LD 
STO 
SRA 

EOR 
BSC 



01JUL66 
415178 



1 

DC0UT62 
12 
3 -14 
L DCLGCZ 



GET MASG CODE # 
PUT MSAG * IN TBL 
SHIFT FOR LOG CK 
TEST FOR ERR IND 
BR TO LOG CALL RT 



SE 



04N0V66 
415233 



010CT67 
411875 



PART NO. 2196374 
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01N0V67 
411875A 



02DEC68 
411961 



8G812940 

808129 50 

80812960 

80812970 

80812980 

80812990 

80813000 

80813010 

80813020 

80813030 

80813040 

80813050 

80813060 

80813070 

80813080 

80813090 

80813100 

80813110 

80813120 

80813130 

80813140 

80813150 

80813160 

80813170 

80813180 

80813190 

80813200 

80813210 

80813220 

80813230 

80813240 

80813250 

80813260 

80813270 

80813280 

80813290 

80813300 

80813310 

80813320 

80813330 

80813340 

80813350 

80813360 

80813370 

80813380 

80813390 

80813400 

80813410 

80813420 

80813430 

80813440 

80813450 

80813460 

80813470 

80813480 

80813490 

80813500 

80813510 

80813520 

80813530 

80813540 

80813550 

80813560 

80813570 

80813580 

80813590 

80813600 

80813610 
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0C09 7101 


MDX 


1 1 


OCOA C100 


LD 


1 


OCOB D005 


STO 


DCERCC4 


OCOC 6923 


STX 


1 DCELX 




********** 


****** ******;, 


OCOD 4480 0130 


DCERC BSI 


I ERROR 


OCOF 1 0C31 


DC 


DC OUT 


0C10 1 0C13 


DC 


DCBSY 


0C11 0000 


DC 







J» J- .1, .1, -J- J. .J. -u j, . 


************;, 


0C12 700A 


MDX 
* 
DCBSY LDX 


DCEC 


0C13 1 6600 OCOD 


L2 DCERC 


0C15 700C 


MDX 
* 
DCLGC STX 


DCBZR 


0C16 6919 


1 DCELX 




********** 


************* 


0C17 4480 012F 


DCLGX BSI 


I LOG 


0C19 1 0C31 


DC 


DCOUT 


0C1A 1 0C20 


DC 


DCBZY 


0C1B 1 0C26 


DC 


DCLR 




****** ***************** 


0C1C 7007 


MDX 


DCBZRS2 


0C1D 1 6600 0C26 


DCEC LDX 


L2 DCLR 


0C1F 7002 


MDX 


DCBZR 


0C20 1 6600 0C17 


DCBZY LDX 


L2 DCLGX 


0C22 1 6E00 080B 


DCBZR STX 

* 


L2 MLN 




********** 


£z & & si ii ;i ■*» ■*• *■- it ■ J - **» -*t 

f~ f~ •*» I* 1- 1*-i- "1* -l* -T- ">"• *V •V' 


0C24 4C80 012D 


BSC 


I START 




********** 

* 

DCLR LDX 


fTi-*v$T tCsJcsJcsJcsJoJ; 


0C26 1 6700 0B88 


L3 DCT 


0C28 1000 


DCELS SLA 





0C29 1000 


SLA 





0C2A 1 6580 0C30 


LDX 


11 DCELX 


0C2C 1010 


SLA 


16 


0C2D D003 


STO 


DCOUT 


0C2E 4D00 0001 


DCRMB BSC 
* 

DCELX DC 

* 

* 


LI 1 


0C30 0000 






ADD TO ADDR CTRL 
GET ERROR ADDR 
PUT IT IN CALL RT 
SAVE XI 
*********************** 

MONITOR ERROR RT * SC 

OUTPUT ADDR * 

BUSY ROUTINE ERR * 

ERROR LOOP * PM 

:********************** 



GET BUSY RETURN ERR 
BR TO SETUP RETURN 

SAVE XI 

: ************* ********* 

MONITOR LOG ROUT * SC 
OUTPUT ADDR * 

BUSY ROUTINE LOG * 
HOLD DURING OUTPUT * 
********************** 

BR TO START EXIT 



GET BUSY RETURN LOG 
BUSY RETURN SETUP 

ENTER MONITOR * 

********** ***********;( 



XM 



RESET X3 TO DCT ADDR SE 

NOP / BR INST PM 

NOP / BR ADDR WORD PM 

GET SAVED XI 

CLEAR ACC 

CLEAR TW OPA FST WD 

RETURN TO ENTRY RT SX 

XI SAVE AREA 



0C31 





0000 


0C32 





0000 


0C33 





0000 


0C34 





0000 


0C35 





0000 


0C36 





0000 


0C37 





0000 


0C38 





0000 


0C39 





0000 


0C3A 





0000 



0C3B C3EE 

0C3C 83FF 

0C3D D3EE 

0-C3E F3E8 

0C3F 1 4C20 O'AOE 

0C41 10A0 



* 




OUTPUT AREA 






* 








* 


DCOUT DC 





BO HOLD 1-7 


LINE 


WC 


DC 





BO DEC IND 






DC 





MESSAGE ID 






DC 





MODIFIER NO. 


1 




DC 







2 




DC 







3 




DC 







4 




DC 







5 




DC 







6 




DC 







7 














* 








* 


.* 


ACCESS 


INOP RETRY RTNS 




* 


* 











DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



COUNT LD 
A 

STO 
EOR 
BSC 
SLT 



01JUL66 
415178 



3 -18 
3 -1 
3-18 
3 -24 
L DSKCR,Z 
32 



GET COUNT 

ADD ONE 

SAVE NEW TOTAL 

TEST FOR 200 RETRIES 

BR IF NOT MAX 

CLR A £ Q REG 



SE 
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04N0V66 
415233 



010CT67 
411875 



01N0V67 
411875A 



02DEC68 
411961 



80813620 
80813630 
80813640 
80813650 
80813660 
80813670 
80813680 
' 80813690 
80813700 
80813710 
80813720 
80813730 
80813740 
80813750 
80813760 
80813770 
80813780 
80813790 
80813800 
80813810 
80813820 
80813830 
80813840 
80813850 
80813860 
80813870 
80813880 
80813890 
80813900 
80813910 
80813920 
80813930 
80813940 
80813950 
80813960 
80813970 
80813980 
80813990 
80814000 
80814010 
80814020 
80814030 
80814040 
80814050 
80814060 
80814070 
80814080 
80814090 
80814100 
80814110 
80814120 
80814130 
80814140 
80814150 
80814160 
80814170 
80814180 
80814190 
80814200 
80814210 
80814220 
80814230 
80814240 
80814250 
80814260 
80814270 
80814280 
80814290 
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PAGE 
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0C42 D3EE 
0C43 1 D400 0809 
0C45 1 DCOO 080A 
0C47 439C 



0C4 8 43B1 
0C49 432 E 
0C4A EOOA - 
0C4B 0000 

0C4C C3EF 
0C4D 83FF 
0C4E D3EF 
0C4F F3F0 
0C50 1 4C20" 0AC1 
0C52 10A0 
0C53 D3EF 
0C54 70EE 



0C55 





0000 


0C56 





0000 


0C57 




0140 


0D9 7 





FFFF 


0D98 





FFFF 


0D99 





FFFF 


0D9A 





FFFF 


009 B 





FFFF 


0D9C 





FFFF 


0D9D 





FFFF 


0D9E 





FFFF 


0D9F 





FFFF 


ODAO 





FFFF 


0DA1 





FFFF 


0DA2 





FFFF 


0DA3 





FFFF 


0DA4 





FFFF 


0DA5 





FFFF 


0DA6 





FFFF 


0DA7 





FFFF 


0DA8 





FFFF 


0DA9 





FFFF 


ODAA 





FFFF 


ODAB 





FFFF 


ODAC 





FFFF 


ODAD 





FFFF 


ODAE 





FFFF 


ODAF 





FFFF 


ODBO 





FFFF 


0DB1 





FFFF 


0DB2 





FFFF 



STO 

CNTND STO 

STD 

BSI 

* 

* 
* 

RSTRT BSI 
BSI 
DC 
DC 

* 

LD 

A 

STO 

EOR 

BSC 

SLT 

STO 

MDX 



3 -18 
L LIV 
L XNR 

3 -100 



RESET COUNTER 
CLEAR 
MLSCF 

BR TO MON - NO ENTRY PX 
* 



MESSAGE £ RETRY ROUTINE 



3 -79 
3 46 

/EOOA 



3 -17 
3 -1 
3 -17 
3 -16 
L DRERT.Z 
32 
3 -17 
CNTND 



SET FNC IN MSAG 
BR TO MSAG FORM 1 
— MSAG # -- 
NO ERROR LOOP ADDR 

GET COUNT 
ADD ONE 

SAVE NEW TOTAL 
TEST FOR 16 
BR IF NOT MAX 
CLR A £ Q REG 
RESET COUNTER 
BR TO END PGM 



SEC 

MC 



* . . . . 

* 

*. . . . 
* 

DCDA 



DISK IOCC AND CE HIST 



* 
DCE 



DC 
DC 
BSS 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

OC 

DC 

DC 





320 

/FFFF 

/FFFF 

/FFFF 

/FFFF 

/FFFF 

/FFFF 

/FFFF 

/FFFF 

/FFFF 

/FFFF 

/FFFF 

/FFFF 

/FFFF 

/FFFF 

/FFFF 

/FFFF 

/FFFF 

/FFFF 

/FFFF 

/FFFF 

/FFFF 

/FFFF 

/FFFF 

/FFFF 

/FFFF 

/FFFF 

/FFFF 

/FFFF 



WORD' COUNT 
DATA FIRST WORD 
REMAINING AREA 



DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 



* 

*#### 

***** 

* 

* 

* 

***** 

*#### 

* 

*. . .. 

* 



HISTORY 

HISTORY 

HISTORY 

HISTORY 

HISTORY 

HISTORY 

HISTORY 

HISTORY 

HISTORY 

HISTORY 

HISTORY 

HISTORY 

HISTORY 

HISTORY 

HISTORY 

HISTORY 

HISTORY 

HISTORY 

HISTORY 

HISTORY 

HISTORY 

HISTORY 

HISTORY 

HISTORY 

HISTORY 

HISTORY 

HISTORY 

HISTORY 



DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



#################################&#####* 

=**************************************** 

** START INITIALIZATION ** * 

:************************************* ;);£* 

#######*##########################&####* 



,* 
* 



PART NO. 2196374 
PAGE 11A 



0808-1 
11 



!DATE 

1 EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



01JUL66 
415178 



04N0V66 
415233 



010CT67 
411875 



01N0V67 
411875A 



02DEC68 
411961 



80814300 
80814310 
80814320 
80814330 
80814340 
80814350 
80814360 
60814370 
80814380 
60814390 
80814400 
80814410 
80814420 
- 80814430 
80814440 
80814450 
80814460 
80814470 
80814480 
80814490 
60814500 
80814510 
80814520 
80814530 
80814540 
80814550 
80814560 
80814570 
80814580 
80814590 
80814600 
80814610 
80814620 
80814630 
80814640 
80814650 
80814660 
80814670 
80814680 
80814690 
80814700 
80814710 
80814720 
80814730 
80814740 
80814750 
80814760 
80814770 
80814780 
80814790 
80814800 
80814810 
80814820 
80814830 
80814840 
80814850 
80814860 
80814870 
80814880 
80814890 
80814900 
80814910 
80814920 
80814930 
80814940 
80814950 
80814960 
808149 70 



PROG ID 
PAGE 



0808-1 
11A 
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I ( < ( < A < I I A A < A < < i A A < i < < I 



4 



\ . 



V 









f 
v 



( 



( 



c 

( 
c 



f 



DATE 
EC NO. 



0DB3 
'00 84 
0DB5 



C3E5 
D30D 
C300 
0400 0EA4 



0086 1 
0D8 8 1 D400 0009 
ODBA C300 
ODBB D30B 



ODBC 4384 
ODBD 43AE 
0D3E 1 4C00 0EA5 
ODCO 43A8 
0DC1 700E 



0DC2 43A8 
0DC3 7010 

0DC4 1 7401 0B93 

0DC6 C3BE 

0DC7 F30B 

0DC8 4820 

0DC9 70F2 

ODCA C3D1 
ODCB 1 D400 091A 
ODCD 1 D400 0936 

ODCF 439F 



ODDO 4334 
0DD1 E060 
0DD2 1 ODCO 
0DD3 70EE 

0DD4 4334 
0DD5 E061 
0DD6 1 0DC2 
00D7 4002 
0DD8 70EB 



0DD9 0000 



ODDA 





0000 


ODDB 





COFD 


ODDC 





F3FD 


ODDD 


1 


4C18 0DF9 


ODDF 


1 


7401 0DD9 



28FEB66 
415120 



01MAY66 
415120A 



BEGIN RT F01 WR ADDR-PAT * 



F01AA LD 
STO 
LD 
STO 
STO 
LD 
STO 



-27 

13 



CYLEX 

CYLEC 



11 



GET WORD COUNT 

SET WORD COUNT 

CLR ACC 

CLR CTR 

CLR CTR 

DESIRED CYLINDER AND 

SECTOR SET TO 000 



SE 



* 
* 

*• ....... , 

F01AB BSI 
F01SK BSI 

BSC 
F01WR BSI 

MDX 
*..«. ..... 

* 
* 
* 



SELECTION OF NEXT SECTOR* 

* 



3 
3 



-124 

-82 

PATRT 

-85 

F01AE 



BR TO CK BYPASS CYL 
SEEK NEXT SECTOR 
BR TO SETUP PATTERN 
WRITE SECTOR ID 
ERROR RETURN ADDRESS 
■ • * 



SC 

sc 
sc 



IF ID IS OK, GEN NEW 
SECTOR ADDRESS AND 
CONTINUE TEST 



F01RD 

* 
F01AC 



BSI 
MDX 

MDX 

LD 

EOR 

BSC 

MDX 



3 -88 
F01AF 

I OCT £11,1 
3 -66 
3 11 
Z 

F01AB 



* 
.* 



LD 3 -47 

STO L JtWR 
STO L OCRD 



BSI 



*. . .. 
* 
* 
* 

F01AE 



-97 



BR TO RD RT 
RD ERR RETURN 

INCREMENT SECTOR ADR 
GET DISK MAX CTRL 
TEST CURRENT ADDR 
BR OUT IF ZERO 
CONTINUE TEST 

GET NOP INST 

SET BR/NOP SW TO NOP 

SET BR/NOP SW TO NOP 

BR TO DCRTN 



SC 



SC 



ERR ANALYSISS £ LOGGING 



* 



* 
F01AF 



BSI 
DC 

DC 
MDX 

BSI 

DC 
DC 

BSI 
MDX 



*. 

* 

* 



3 52 
/E060 
F01WR 
F01RD 

3 52 
/E061 
F01R0 
CETRT 
F01AC 



8R TO MSAG FORM 2 
— MSAG # — 
ERROR LOOP RE-WRITE 
BR TO RD CK 



MC 



BR TO MSAG FORM 2 MC 

— MSAG it — 

ERR LOOP ADDR 

BR TO CYL ERR TBL RT SC 

BR TO CONTINUE 



ERROR CONTROL ROUTINE 



* 



CYLEC DC 
* 

CETRT DC 
LD 
EOR 
BSC 
MDX 

* 



01JUL66 
415178 







CYLEC 
3 -3 
L DSKNG,£- 
L CYLEC, 1 



CYL ERR CTR 

SAVE ENTRY 

TEST 

FOR 

MAX ERR TEST 

CNT 



SE 



04N0V66 
415233 



010CT67 
411875 



01N0V67 
411875A 



02DEC68 
411961 



PART NO. 
PAGE 



80814980 

80814990 

80815000 

80815010 

80815020 

80815030 

80815040 

80815050 

80815060 

80815070 

80815080 

80815090 

80815100 

80815110 

80815120 

80815130 

80815140 

80815150 

80815160 

80815170 

80815180 

80815190 

80815200 

80815210' 

80815220 

80815230 

80815240 

80815250 

80815260 

808 15270 

80815280 

80815290 

80815300 

80815310 

80815320 

80815330 

80815340 

80815350 

80815360 

80815370 

80815380 

80815390 

80815400 

80815410 

80815420 

80815430 

80815440 

80815450 

80815460 

80815470 

80815480 

8081549 

80815500 

80815510 

80815520 

80815530 

80815540 

80815550 

80815560 

80815570 

80815580 

80815590 

80815600 

80815610 

80815620 

80815630 

80815640 

80815650 
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) 



*>■■ 



0808-1 
12 



DATE 
EC NO. 



0DE1 
ODE 3 



C400 0EA4 
4820 



0DE4 7002 
0DE5 6100 



1 



0DE6 
0DE7 



7002 

6580 0EA4 



0DE9 
ODEA 
OOEB 
ODEC 
ODED 
ODEF 
ODFO 
0DF1 
0DF2 
0DF3 
0DF4 
0DF5 
0DF7 



6208 

C30B 

1803 

1003 

0500 0E68 

7101 

83FF 

72FF 

70FA 

93FF 

D30B 
1 7408 0EA4 
1 4C8Q ODDA 



0DF9 C3D1 
ODFA 1 D400 0E63 
ODFC 70E4 



ODFD 0000 
ODFE 4334 
ODFF EOCE 
OEOO 0000 
0E01 1 4C80 ODFD 

0E03 40F9 
0E04 705E 

0E05 40F7 
0E06 7048 



0E07 C3FF 
0E0 8 D30D 
0E09 C3CF 
OEOA D30B 
OEOB 6500 05B0 



OEOD 





6923 


OEOE 





4384 


OEOF 





43AE 


0E10 





43A8 


0E11 





7008 



28FEB66 
415120 



01MAY66 
415120A 



CKCET 



LD 

BSC 

MDX 

LDX 

MDX 

LDX 



SETUP LDX 
LD 
SRA 
SLA 

CSADR STO 
MDX 
A 

MDX 
MDX 
S 

STO 
MDX 
BSC 

* 

* 

* 

*. 



L CYLEX 
Z 
*£2 

1 
*£2 

II CYLEX 

2 8 

3 11 
3 
3 

LI CYLET 
1 1 
-1 
-1 

CSADR 
-1 
11 

CYLEX, 8 
CETRT 



3 

2 

3 

3 



GET ERR CNT 

SKIP IF ZERO 

BR TO SET ERR CTRL 

SET CNT TO ZERO 

BR TO SETUP RT 

SET IN ERR CTRL CNT 

SET X3 CTRL TO 8 
GET INITIAL ADDR 
CLR HD/SECT 
CLR HD/SECT 
PUT SECT ADDR IN CET 
ADV CYL ERR TBL CTRL 
ADV SECT ADDR 
DEC ADDR C-S CTRL 
8R TO LOOP 
RE-ADJ ADDR CTRLS 
SET IN PROPER ADDR 
INCREMENT ERR CNTR 
RETURN TO CALL RT 



SX 



SET BAD PACK ERR SWITCH 



DSKNG LD 
STO 
MDX 

* 

* 

CETYP DC 
BSI 
DC 
DC 
BSC : 

BSI 
MDX 



* 
CESX3 



CESX7 BSI 
MDX 



3 -47 GET NOP INST 
L DNGSW SET BR INST TO NOP 
CKCET BR TO SETUP 



CE DATA ERR ROUT 

SAVE ENTRY 

3 52 BR TO MSAG FORM 2 

/EOCE — MSAG # — 

NO ERR LOOP ADDR 

I CETYP .... ,, RETURN ..TO MAIN LINE 

CETYP BR TO TYPE ERR MSAG 

DNGSW BR TO CONTINUE 

CETYP BR TO TYPE ERR MSAG 

CEXA7 BR TO CONTINUE 



SE 



SX 



MC 



* 
* 
* 



BEGIN ROUTINE 2 






F02AA LD 
STO 
LD 
STO 
LDX 



3 -1 
3 13 
3 -49 
3 11 

LI 1456 



SET WORD COUNT FOR 
READ TO 001 
DESIRED CYLINDER ADR 
SECTOR SET TO 000 
NUMBER OF SECTORS 



TE 



* 

* 

*. . . . 

F02AB 



SELECTION OF NEXT SECTOR* 



STX 1 F02XB SAVE XI XTANT 

BSI 3 -124 DCABP RT 

F02SK BSI 3 -82 DCSK RT 

BSI 3 -88 DCRD RT 

MDX F02AD ERROR RETURN ADDRESS 



SC 
SC 
SC 



*. 

* 

* 

* 

* 



IF ID IS OK, GEN NEW 
SECTOR ADDRESS AND 
CONTINUE TEST 



01JUL66 
415178 



04N0V66 
415233 



010CT67 
411875 



C1N0V67 
411875A 



02DEC68 

411961 



PART NO. 2196374 
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80815660 

80815670 

80815680 

80815690 

80815700 

80815710 

80815720 

80815730 

80815740 

•80815750 

80815760 

80815770 

80815780 

80815790 

80815800 

80815810 

80815820 

80815830 

80815840 

80815850 

80815860 

80815870 

80815880 

80815890 

80815900 

80815910 

80815920 

80815930 

80815940 

80815950 

80815960 

80815970 

80815980 

80815990 

80816000 

80816010 

80816020 

80816030 

80816040 

80816050 

80816060 

80816070 

80816080 

80816090 

80816100 

80816110 

80816120 

80816130 

80816140 

80816150 

80816160 

80816170 

80816180 

.80816190 

80816200 

80816210 

80816220 

80816230 

80816240 

80816250 

80816260 

80816270 

80816280 

80816290 

80816300 

80816310 

80816320 

80816330 



PROG ID 
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4 4 4 4. < ( 4 4 4 4 4 4 4 4 4 4 4 4 4 ( t 



f 






,"" 



DATE 
EC NO. 



0E12 1 74FF 0B93 
0E14 1000 
0E15 1 6580 0E31 
0E17 71FF 
0E18 70F4 
0E19 439F 



0E1A C30B 

0E1B F30C 

0E1C 1803 

0E1D 1 4C20 0E25 

0E1F C30B 
0E20 F30C 
0E21 100C 
0E22 1 4C20 0E29 
0E24 70E0 



L DC T6 11,-1 DECREMENT SECTOR ADR 



* 

F02AC MDX 
NOP 
LDX 
MDX 
MDX 
BSI 



II F02XB 
1 -1 

F02AB 
3 -97 



0E25 





4386 


0E26 





43A8 


0E27 





7005 


0E2 8 





43A2 


0E29 





4334 


0E2A 





E020 


0E2B 


1 


OEOF 


0E2C 





43A2 


0E2D 





4334 


0E2E 





E021 


0E2F 





0000 


0E30 





43A2 



*. 

* 

*. . .. 

F02AD LD 
EOR 

SRA 
BSC 

LD 
EOR 
SLA 
BSC 
MDX 

F02AE BSI 
BSI 
MDX 
BSI 

F02AF BSI 
DC 
DC 
BSI 

F02AG 8SI 
DC 
DC 
BSI 



SAFTY NOP 
GET XI XTANT 
DECREMENT XR1 BY 
CONTINUE TEST 
DCRTN RT 



SX 



ERR ANALYS1SS 6 LOGGING * 



3 11 
3 12 

3 
L F02AE,Z 

3 11 
3 12 

12 

L F02AF.Z 
F02AC 

3 -122 
3 -88 

F02AG 
3 -94 

3 52 
/E020 
F02SK 

3 -94 

3 52 

/E021 


3 -94 



0E31 0000 



0E32 4388 
0E33 4380 

0E34 C3D8 
0E35 D30B 
0E36 C3E5 
0E37 D30D 
0E38 43AE 



0E39 C3D0 

0E3A 438C 

0E3B 1 C400 0EA4 

0E3D 1 4C18 0E41 

0E3F 1 4400 0E99 

0E41 C3F9 
0E42 EBD8 
0E43 Q D30B 



F02X8 
* 

* 

F03AA 
F03AB 
* 

F03AC 






DC 



GET DESIRED ADDR 
CMP WITH ACTUAL 
CLR SECTOR/HEAD 
BR IF CYL NOT EQ 

GET DESIRED ADDR 
CMP WITH ACTUAL 
CLR CYLINDER ADDR 
BR IF SECT/HD NOT EQ 
FALSE ERR CONTINUE 

DRESK RT 
DCRD RT 
ERR RD RETURN 
RESTART EXIT 

BR TO MSAG FORM 2 

— MSAG # ~ 
LOOP ON ERR 
RESTART EXIT 

BR TO MSAG FORM 2 

— MSAG # — 
Nit ERR LOOP ADDR 
RESTART EXIT 

XI XTANT HOLDER 



SC 
SC 

SX 

MC 



SX 

MC 

SX 



ROUTINE 3 WR CE SECTORS * 



BSI 
BSI 

LD 

STO 

LD 

STO 

BSI 



3 -120 ROY NBSY RT 
3 -128 DCARM RT 

GET DISK ADDR 
SET ADDR 
GET WC 
SET WC 
SEEK CYL 

CE SECT 7 SETUP 



3-4 
3 11 
3 -27 
3 13 
3 -82 



SEC 
SC 



SC 



F03XY 



LD 

BSI 

LD 

BSC 

BSI 

LD 
OR 
STO 



3-4 8 

3 -116 
L CYLEX 
L F03XY.&- 
L F I OAX 

3 -7 

3 -40 
3 U 



GET 1313 PATTERN 

DFILL RT 

GET ERR AMT 

BR NO ERR CNT 

BR TO SET ERR IN IOA 

GET SECTOR ADDR 
OR IN ADDR OF CYL 
SET IN SECT-CYL ADDR 



SC 



28FEB66 
415120 



01MAY66 
415120A 



01JUL66 
415178 



04N0V66 
415233 



010CT67 
411875 



01N0V67 
411875A 



02DEC68 
411961 



PART NO. 
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80816340 

80816350 

80816360 

80816370 

80816380 

80816390 

80816400 

80816410 

80816420 

80816430 

80816440 

80816450 

80816460 

80816470 

80816480 

80816490 

80816500 

80816510 

80816520 

80816530 

80816540 

80816550 

80816560 

80816570 

80816580 

80816590 

80816600 

80816610 

80816620 

80816630 

80816640 

80816650 

80816660 

80816670 

80816680 

80816690 

80816700 

80816710 

80816720 

80816730 

80816740 

80816750 

80816760 

80816770 

80816780 

80816790 

80816800 

80816810 

80816820 

80816830 

80816840 

80816850 

80816860 

80816870 

80816880 

80816890 

80816900 

80816910 

80816920 

80816930 

80816940 

808169 50 

80816960 

80816970 

80816980 

80816990 

80817000 

80817010 
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0E44 C3C7 
0E45 1 D400 0C57 

0E47 1 C400 0EA4 
0E49 1 D400 0C58 

0E4B C3E5 
0E4C D30D 

0E4D 43AB 
0E4E 70B6 



0E4F C3C6 
0E50 438C 
0E51 1 C400 0EA4 
0E53 1 4C18 0E57 
0E55 1 4400 0E99 

0E57 C3FD 
0E58 EBD8 
0E59 D30B 

0E5A C3C7 
0E5B 1 D400 0C57 

0E5D 1 C400 0EA4 
0E5F 1 D400 0C58 

0E61 43AB 
0E62 70A0 

0E63 7003 
0E64 4328 
0E65 E066 
0E66 0000 



0E67 C03C 
0E68 1 4C18 0E97 

0E6A C3F8 
0E68 1 D400 0C31 
0E6D 6500 CBAD 
0E6F 1 6D00 0C33 

0E71 C032 
0E72 D025 

0E73 6200 

0E74 6100 

0E75 C3F8 

0E76 1890 

0E77 1 C600 0EB8 
0E79 1 D500 0C34 
0E7B 7101 
0E7C 7201 

0E7D 1090 
0E7E 93FF 
0E7F 4820 *■■ 
OE80 70F5 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



PROGRAM FOR THE 1800 SYSTEM 



* 


LD 
STO 


3-5 7 
L DCDA62 


GET CE ID — CEDC-- 
SET IN IOA 


# 


LD 
STO 


L CYLEX 
L DCDAG3 


GET ERR AMT 
SET IN IOA 


* 


LD 
STO 


3 -27 

3 13 


GET WC 

PUT IN DCT TSL 


* 


BSI 
MDX 


3 -85 
CESX7 


WR CE SECT SEVEN 
BR TO ERR ROUT 


* 




CE 


SECT 3 SETUP 


CEXA7 


LD 
BSI 
LD 
BSC 

BSI 


3-5 8 

3 -116 
L CYLEX 
L F03XZ,£- 
L FIOAX 


GET PATTERN 

FILL IOA WITH SAME 

GET ERR AMT 

BR NO ERR CNT 

BR TO SET ERR IN IOA 


F03XZ 

* 


LD 
OR 
STO 


3 -3 
3 -40 
3 11 


GET ADDR 

OR IN ADDR OF CYL 

PUT IT IN DCT 


$ 


LD 
STO 


3-5 7 
L DCDA62 


GET CE ID — CEDC — 
-PUT ID IN IDA 


* 


LD 
STO 


L CYLEX 
L DCDAS3 


GET ERR AMT 
PUT WC IN IOA 


* 


BSI 
MDX 


3 -85 
CESX3 


WRITE CE SECT THREE 
BR TO ERR ROUT 


DNGSfc 
* 


MDX 
BSI 

DC 
DC 


ETEST 
3 40 
/E066 



BR TO TEST ERR CNT 
BR TO MSAG FORM 
— MSAG # — 
NO ERR LOOP ADDR 


* 




CE 


ERR TBL TEST RT * 


* 
ETEST 


LD 
BSC 


CYLEX 
L DIPND.S- 


* 
GET ERR CNT 

BR IF ZERO ERR CNT 


WRCET 


LD 
STO 
LDX 
STX 


3 -8 
L DCOUT 
LI /CBAD 
LI DC0UT&2 


GET WORD COUNT 
CLEAR LINE CTRL 
BAD CYL ERR HSAG NUM 
SET ERR MSAG NUM OPA 


* 


LD 
STO 


CYLEX 
ETCNT 


GET TBL ERR CNT 
SET IT IN CTRL WD 


WRCPL 


LDX 
LDX 
LD 
SRT 


2 
1 

3 -8 

16 


SET -X2 CNT CTRL 
SET XI CNT CTRL 
GET CNT CTRL 
SHIFT IT TO EXT 


* 


LD 
STO 
MDX 
MDX 


L2 CYLET 
H DC0UT&3 

1 1 

2 1 


GET ERR ADDR 
SET IT IN OPA 
• ADV CTRL XI 
ADV CTRL X2 




SLT 
S 

BSC 
MDX 


16 
3 -1 
Z 

WRCPL 


SHIFT FOR CNT 
DEC CTRL 
SKIP -IF ZERO 
BR LOOP 



SC 



SC 



MC 



SE 



01JUL66 
415178 



04N0V66 
415233 



010CT67 
411875 



01N0V67 
411875A 



02DEC68 
411961 
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80817020 

80817030 

80817040 

80817050 

80817060 

80817070 

80817080 

80817090 

80817100 

80817110 

80817120 

80817130 

80817140 

80817150 

80817160 

80817170 

80817180 

80817190 

80817200 

80817210 

80817220 

80817,230 

80817240 

80817250 

80817260 

80817270 

80817280 

80817290 

80817300 

80817310 

80817320 

80817330 

80817340 

80817350 

80817360 

80817370 

80817380 

80817390 

80817400 

80817410 

80817420 

80817430 

80817440 

80817450 

80817460 

80817470 

80817480 

80817490 

80817500 

80817510 

80817520 

80817530 

80817540 

80817550 

80817560 

80817570 

80817580 

80817590 

80817600 

80817610 

80817620 

80817630 

80817640 

80817650 

80817660 

80817670 

80817680 

80817690 



PROG ID 

PAGE 



0808-1 
13A 
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* 








* 




80817700 












* 












80817710 












* 


PRINT CYL ERR TBL DATA 


* 




80817720 
























80817730 
80817740 












* 






















***********¥« *******************=!! ***««««*** 


** 




80817750 






0E81 


4480 


012F 


PRTBL BSI 


I LOG 




CALL MON LOG RT 


* 


SC 


80817760 






0E83 1 


OC'31 




DC 


DCOUT 




OPA 


* 




80817770 






0E84 1 


0E87 




DC 


LSTRT 




BUSY RT 


* 




80817780 






0E85 1 


0E8D 




DC 


LHOLD 




HOLD CTRL 


* 




80817790 












t V -r 'f-f •c-'fy '£■%!■*£ 


^ r ^pT P .jJ:^ r ^;^:^;^.^;^^;^i^;^t^:^^;^r^:^:3^^:^E^;^;^;^t^;^;^;^;^j 


** 




80817800 












* 












80817810 






0E86 


7004 




MDX 


LSTRT&4 


PROCEED 






80817820 












* 












80817830 












* 












80817840 






OE87 1 


6700 


0E81 


LSTRT LDX 


L3 PRTBL 




GET MLN ENTRY 






80817850 






0E89 1 


6F00 


080B 


STX 

* 


L3 MLN 




SET IT IN MLSCF 






80817860 
80817870 






0E83 


4C80 


012D 


BSC 
* 


I START 




GO TO MONITOR 






80817880 
80817890 






0E8D 1 


6700 


0B88 


LHOLD LDX 


L3 DCT 




SET X3 CTRL ADDR 






80817900 






0E8F 


C008 




LD 


ETCNT 




GET CNT FLD 






80817910 






0E90 


93F8 




S 


3 -8 




DEC LOOP CNT 






80817920 






0E91 


D006 




STO 


ETCNT 




SAVE NEW TOTAL 






80817930 






0E92 1 


4C20 


0E74 


BSC 


L WRCPL- 


-2,Z 


TEST IT - NOP IF ZRO 




80817940 












* 












80817950 






0E94 


1010 




SLA 


16 




CLR ACC 






80817960 






0E9 5 1 


D400 


0C31 


STO 
* 


L DCOUT 




CLR OPA 






80817970 
80817980 






0E9 7 


439F 




DIPND BSI 
* 


3 -97 




BR RETURN 




sx 


80817990 
80818000 






0E9 8 


0000 




ETCNT DC 

* 
* 
* 













80818010 
80818020 
80818030 
80818040 
80818050 






0E99 


0000 




FIOAX DC 







SET IN RETURN ADDR 




SE 


80818060 






0E9A 1 


6580 


0EA4 


LDX 


11 CYLEX 




SET ERR CNT IN XI 






80818070 






0E9C 1 


C500 


0EB7 


FIOAY LD 


LI CYLET- 


1 


GET FIRSTADDR 






80818080 






0E9E 1 


D500 


0C58 


STO 


Ll DCDAC3 




PUT IT IN IOA 






80818090 






OEAO 


71FF 




MDX 


1 -1 




DEC INDEX CTRL 






80818100 






0EA1 


70FA 




MDX 


FIOAY 




BR LOOP 






80818110 






0EA2 1 


4C80 


0E99 


FIOAZ BSC 


I FIOAX 




RETURN TO MAINLINE 




SX 


80818120 






0EA4 


0000 




CYLEX DC 
* 

* 
* 





END 


SECT ERR CNT 
OF WR CE TEST DATA 


* 
* 




80818130 
80818140 
80818150 
80818160 
8.0818170 
80818180 












* 








* 














* 


ALTERNATE PATTERN RT 


* 




80818190 












* 








* 




80818200 












* 












80818210 
80818220 












* 






















* 












80818230 












* 












80818240 






0EA5 


C30B 




PATRT LD 


3 11 




GET ADDR 




SE 


80818250 






0EA6 


100D 




SLA 


13 




B13 TO BO 






80818260 






0EA7 1 


4C28 


0EB4 


BSC 
* 


L TSTIO, 


Zfc 


BR IF HEAD 1 






80818270 
80818280 






0EA9 


C30B 




TSTOO LD 


3 11 




GET ADOR 






80818290 






OEAA 


4804 




BSC 


E 




SKIP IF ADDR EVEM 






80818300 






OEAB 


7004 




MDX 

* 


PATE5 




BR TO SET E5E5 PAT 






80818310 
80818320 






OEAC 


C3D0 




PAT 13 LD 


3 -48 




GET PATTERN 1313 






80818330 






OEAD 


438C 




BSI 


3 -116 




BR TO FILL IOA 




SC 


80818340 






OEAE 1 


4C00 


ODCO 


BSC 


L FOIWR 




BR TO WRITE RT 




sx 


80818350 
80818360 






OEBO 


C3C6 




PATE5 LD 


3 -58 




GET PATTERN E5E5 






80818370 




DATE 


28FEB66 01MAY66 


01JUL66 


04NOV66 


010CT67 01N0V67 02DEC68 


PROG ID 


0808-1 


EC NO. 


41512C 


415120A 


415178 


415233 


411875 411875A 411961 


PAGE 


14 
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OEBl 438C 
0EB2 1 4C00 


ODCO 


BSI 
BSC 

* 

TSTIO LD 
BSC 
MDX 
MDX 


3 

L 


-116 
FOIWR 


0EB4 C30B 
0EB5 4804 
0EB6 70F5 
0EB7 70F8 




3 


11 
E 

PAT13 
PATE5 



BR TO FILL IOA 
BR TO WRITE RT 

GET ADDR 

SKIP IF ADDR EVEN 

BR TO SETUP PAT E5 

BR TO SETUP PAT 13 



SC 
SX 



0EB8 0140 



CYLINDER ERR ACCUM 



0FF8 OOOF 
OFFA 081E 



* 

CYLET BSS E 320 

* 

*.... ........... ..........* 

* * 

* END OF INITIALIZATION * 

* * 
*... * 

OMEGA DC /OOOF 

END EXEQD BR TO BEGIN XFER RT 
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80818380 
80818390 
80818400 
80818410 
80818420 
80818430 
80818440 
80818450 
80818460 
80818470 
80818480 
80818490 
80818500 
80818510 
80818520 
80818530 
80818540 
80818550 
80818560 
80818570 
80818580 
80818590 



DATE 


28FEB66 


01MAY66 


01JUL66 


04N0V66 


010CT67 


01NOV67 


02DEC68 


EC NO. 


415120 


415120A 


415178 


415233 


411875 


411875A 


411961 
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DATE 
EC NO. 



ABP 

ADSKC 

ARM 

BEGIN 

CDTBC 

CDTGX 

CDTLK 

CDTNR 

CDTRC 

CDTRT 

CDTSE 

CDTSN 

CESX3 

CESX7 

CETRT 

CETYP 

CEXA7 

CHNBZ 

CHNRA 

CHNRL 

CHNRQ 

CHNSA 

CKCET 

CNTND 

COUNT 

CSADR 

CYLEC 

CYLET 

CYLEX 

DARMC 

DARMZ 

DC ABP 

DCARM 

DCBPR 

DCBSY 

DCBZR 

DCBZY 

DC DA 

DCDLA 

DCDSW 

DCE 

OCEC 

DCELS 

DCELX 

DCEOD 

DCERC 

DCFMA 

DCFMB 

DCLGC 

DCLGX 

DCLR 

DCOSW 

DC OUT 



DCRBB 

DCRD 

DCRDY 

DCREL 

DCRE1 

DCRE2 

DCRGA 

DCRHM 

OCRMB 

DCRND 

DCROK 

DCRTN 



OBOC 

0A82 

0B08 

012C 

0995 

09 DA 

09C9 

09B1 

09A2 

0992 

09AD 

09B8 

0E03 

0E05 

ODDA 

ODFD 

0E4F 

0A44 

0AF3 

0AF1 

OADF 

0AE2 

0DE1 

0C43 

0C3B 

ODED 

0DD9 

0EB8 

0EA4 

0A97 

0A9C 

OAAE 

0A8B 

0AB6 

0C13 

0C22 

0C20 

0C55 

0AF9 
0B03 
0D97 
0C1D 
0C28 
0C30 
08BC 
OCOD 
0BC3 
0BC9 
0C16 
0C17 
0C26 
0C03 
0C31 



0990 
0936 
0AD6 
098A 
097B 
097C 
097D 
08AD 
0C2E 
08BE 
0985 
08A7 



0AB6 

09F3 

0A9C 

081E 

0900 

09BC 

09ED 

0B3F 

09A9 

0925 

09A4 

0929 

0E62 

0E4E 

0DD7 

0E01 

0E06 

OAPl 

0834 

0B17 

0A44 

0832 

ODFC 

0C54 

0B22 

0DF2 

0DB8 

08F8 

08F2 

0A6B 

0A6F 

OBOD 

0A9A 

0A80 

0C10 

0C15 

0C1A 

0887 

0E5F 

0B19 

0B1B 

0C12 

OBDE 
OCOC 
087C 
OCOB 
0BD7 
OBBB 
0C07 
0BF5 
0C1B 
0BB5 
0BB4 
OBEO 
0C04 
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0A85 0AB7 0A89 0A8B 0AB9 



09D9 



0A05 

0945 09B6 09D8 0A04 



0949 09 DA 09DC 



0DF7 
0E03 0E05 



0B13 



ODDB ODDF 

ODED 0E77 0E9C 

08F6 0DB6 0DE1 0DE7 0DF5 0E3B 0E47 0E51 0E5D 0E67 0E71 0E9A 

0A95 

0B09 
OABO 

0C1C 0C1F 

0891 0923 0943 094B 0997 09BE 09E6 OAEB 0B89 0E45 0E49 0E5B 
0E9E 



0BE7 0BF4 OCOO 0C01 

0C16 0C2A 

0B2E 

0C13 



0C02 0C20 

0C1D 

OBCB 0BE8 

OBBA OBCO 0BC2 0BC4 0BC6 0BC8 OBCA OBDO 0BD2 0BD4 0BD6 OBDC 

0BE2 0BE4 0BE9 OBEB OBED OBEF 0BF1 0BF6 0BF8 OBFA OBFC OBFE 

OCOF 0C19 0C2D 0E6B 0E6F 0E79 0E83 0E95 



095A 0963 0B31 ODCD 
OADE 0B11 
094A 0960 

0954 096C 

0955 0974 
094F 
08AA 

08C0 
097E 
090C 0B28 



28FEB66 
415120 



01MAY66 
415120A 



01JUL66 
415178 



04N0V66 
415233 



010CT67 
411875 



01N0V67 
411875A 



02DEC68 
411961 



PROG ID 
PAGE 



0808-1 
15 



DATE 
EC NO. 



DCR10 

DCR12 

DCR16 

DCR19 

DCR20 

DCR21 

DCR22 

DCR23 

DCSK 

OCT 



OCT LI 

DCTL2 

DCTL3 

DCTL4 

DCTL5 

DCTRL 

DCWBB 

DCWEL 

DCWR 

DCW10 

DOS A 

DEND 

DEPA 

DEXEQ 

DEXIO 

DFILL 

DHMLE 

DHMNR 

DHOME 

DIPA 

DIPND 

DLA 

DLABB 

DLAND 

DLNRT 

DLNR1 

DLPA 

DMLCK 

DMLE1 

DMLE2 

DMLIC 

DMLXT 

DNGSW 

DRASK 

DRD 

DRERT 

DRESK 

DRSKR 

DRSKX 

DSK 

DSKAO 

DSKA1 

DSKA2 

DSKA3 

DSKA4 

DSKA5 

DSK A 6 

DSKA7 

DSKBB 

DSKBT 

DSKCR 

DSKEE 

DSKER 

DSKIA 

DSK IS 

DSKNG 



0938 
093C 
0945 
095D 
0961 
0965 
096D 
0973 
09EE 
0'B88 



085B 

085F 

0869 

086F 

0879 

0859 

0934 

092E 

091A 

091F 

087D 

0B2D 

0853 

0A9E 

OAAC 

0AE9 

0A5C 

0A64 

0A56 

0821 

0E97 

0B18 

OAFF 

08DB 

08C1 

08D4 

084C 

0880 

089F 

08A3 

0896 

089E 

0E63 

0A72 

0B30 

0AC1 

0AB8 

0AC8 

0AD2 

0B36 

0816 

0817 

0818 

0819 

081A 

081B 

081C 

081D 

0A10 

0A1A 

OAOE 

0A01 

0A12 

0A1F 

0A24 

0DF9 



0936 

0972 

0940 

0964 

0956 

0952 

097A 

09 69 

0A27 

0822 

.09 5 D 

0AF5 

085E 

0B3D 

0894 

087B 

086B 

0B2B 



0B37 

0840 0854 085B 085F 086D 086F 08B5 08C1 08DF 0926 0946 0958 

0961 0965 0976 0983 09B1 09C9 09D2 0A06 0A60 0A64 0AC8 0AE5 

OAFF 0C26 0DC4 0E12 0E8D 



0898 08B3 
0803 
08AF 
0B3C 



092B 

0B34 ODCB 
091A 
0873 0877 

0808 0857 

OBOB 

0AA7 0AA8 

OAEE 0B15 

0A71 

0A5E 

0A8D 

0806 084A 
0E68 
0B01 
0B48 
08D5 

08D7 0841 
08C8 

0807 0851 
0867 08A1 08A5 
0886 

0890 

088A 089D 08A2 08A6 

0889 

ODFA 0E04 

0A8B 

0985 0990 

0C50 

OBOF 

0B3E 

0A75 

0A10 

0842 

0844 

0846 

0848 

09F9 0A19 0A30 

0A13 

0C3F 

0A38 

OAOC 

09F1 

0A1D 

ODDD ' 



28FEB66 
415120 



01MAY66 
415120A 



01JUL66 
415178 



04N0V66 
415233 



010CT67 
411875 



01N0V67 
411875A 



02DEC68 
411961 



PROG ID 
PAGE 



0803-1 
15A 



( ( < < < < < < < I < 4 4 < 4 4, 4 4 4 4 < 4 4 < < < < 4 4 I 4 < I 



( 



c 






f 



(. 






r 
V 



I 



r 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2315 DISK INITIALIZER 



PART NO. 2196374 
PAGE 16 





DSKNR 0A06 0B40 




DSK13 0A2A 09F5 




DSPLA 09DE 09C8 




DSPLP 09E1 09EA 




DSPX1 09EB 09DE 09E5 




DSW 0B1A 0B05 




OVA 08DD 0837 0AE3 




DWR 0333 092C 0934 




D13HM 0A3A 0A32 




D13MR 0A37 0A43 




EDTA1 0813 0830 




EDTA2 0814 082D 




EDTA3 0815 082A 




EMF 0B39 0A4A 0A4C OA 50 0A52 0A54 




EMNRT 0A4A 0B3A 




END 012E 0B1F 




EPA 0808 




ERROR 0130 OCOD 




ETCNT 0E98 0E72 0E8F 0E91 




ETEST 0E67 0E63 




EXEQD 081E OFFA 




EXO OBOA 0AA9 




FIOAX 0E99 0E3F 0E55 0EA2 




FIOAY 0E9C 0EA1 




FIOAZ 0EA2 




FLX OB 14 OAEF 




FORMO OBBO 0983 0BB1 




F0RM1 0BB6 0BB7 




F0RM2 OBBC 0958 0961 0965 OBBD 




F0RM3 OBCC OBCD 




F0RM4 0BD8 0BD9 




FRM4A 0BE9 0BE5 




FRM4B 0BF6 0BF2 




-FD1AA 0DB3 087D 




F01AB ODBC 0DC9 




F01AC 0DC4 0DD8 




F01AE ODDO 0DC1 




F01AF 0DD4 0DC3 




F01RD 0DC2 0DD3 0DD6 




F01SK ODBD 




F01WR ODCO 0DD2 OEAE 0EB2 




F02AA 0E07 087E 




F02AB OEOD 0E18 




F02AC 0E12 0914 0E24 




F02AD 0E1A 0E11 




F02AE 0E25 0E1D 




F02AF 0E29 0E22 




F02AG 0E2D 0E27 




F02SK OEOF 0E2B 




F02XB 0E31 0911 OEOD OE 15 




F03AA 0E32 087F 




F03AB 0E33 




F03AC 0E34 


- 


F03XY 0E41 OE30 - .. ;. - 




F03XZ 0E57 QE53 




HALT 0133 




HNG 0B1C 




IPA 0806 




LHOLD 0E8D 0E85 




LIV 0809 08D9 08EC OAAO 0C43 




LOG 012F 0C17 0E81 ■= 




LPA 0807 




LSTRT 0E87 0E84 0E86 




MEND 0B1E 




HLN 080B 0841 0850 08E4 0A46 OAFC 0C22 0E89 




NTRER 08F0 08E6 08F0 7001" 




NTRPT 080E 08EE 




NTRST 08E8 


DATE 


28FEB66 01MAY66 01JUL66 04N0V66 010CT67 01N0V67 02DEC68 


EC NO. 


415120 415120A 415178 415233 411875 411875A 411961 
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NTRXT 


08EE 






OMEGA 


0FF8 


080D 




PATE5 


OEBO 


OEAB 0EB7 




PATRT 


0EA5 


ODBE 




PAT 13 


OEAC 


0EB6 




PEND 


080D 






PID 


07FF 


0820 




PRTBL 


0E81 


0E87 




RAD 


0801 


0875 




RDY 


0B10 


0AD8 




REL 


0B16 


0AF7 




RELDV 


0132 


0AF1 




REO 


0B12 


0AE7 




REODV 


0131 


OADF 




REST 


0B2A 






RID 


0800 


0871 




RSK 


OBOE 


0AD4 




RSTRT 


0C48 


OACE 




RTN 


0B27 






RWACK 


08F1 


08FF 091B 0937 




RWCKA 


08F8 


08FE 




RWCKT 


0901 


08FB 




RWCKX 


08FF 


08F4 




RWRT3 


0916 


0907 




SETUP 


0DE9 






SKADJ 


0A77 


0AB5 •' 




SKOUT 


0A7E 


0A7A 0A7D 




START 


012D 


08DB 0A48 0825 0C24 


0E8B 


STRT 


0B24 






SWO 


0802 






SW1 


0803 


0869 08AD 




SW2 


0804 


0824 




SW3 


0805 


0896 08A7 09C5 09EI 




TERM 
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1810 A/B FU.KTION TEST 

1 . PURPCSE 

THE 1SI0A/B (13SD/44SD) FUNCTION TEST IS DESIGNED TO TEST EACH 
FUNCTION OF THE OISK FljR COMPLIANCE WITH TKE PRODUCT 
SPECIFICATIONS. 

THIS TEST IS WRITTEN TO ACCCMMCDATE SYSTEMS WITH ONE OR MORE 

13SD I1810A) OR 44SD llalOBl DISK DRIVES. THIS PROGRAM IS DE- 

SIGNE9 TO RUN ANY CNE OF THREC OISK DRIVES WHICH MAY BE ON THE 
SYSlt-«. 

SEE SECTION 3.2 IPATCH OPTIONS) FOR INFORMATION ON RUNNIHS MULTIPl* 
DRIVES. IN OVERLAP MCCE. 

2. PRERE5UISITES 

13SD II810AJ OR 44SD 1181031 DISK ORIVES. THIS PROGRAM IS DE- 
THE DIAGNOSTIC MONITOR I'RCGRAM USES 2,047 STORA y, WORDS, AND 
THIS PROGRAM USES r,047 STORAGE WORDS. 

THIS PROGRAM REQUIRES THAT A PREVIOUSLY INITIALIZED OISK PACK BE 
INSTAILEO ON THE DISK DRIVE TO BE TESTED AND THE DISK DRIVE BE 
MADE PEADV. ANY DISK PACK 'WHICH HAS BEEN PROPERLY INITIALIZED 
BY Tlf 2315 DIAGNOSTIC DISK INITIALIZATION PROGRAM MAY BE USED 
FOR THIS TEST. 

3. USE PROCEDURE 

3.1 PROGRAM LOADING 

PLACE THE INITIALIZED DISK PACK IN THE 1810 TO BE TESTED 
AND FOLLOW THE STEPS BELOW. 

1. DEPRESS START BUTTON. 

2. WAIT FOR THE M ".CHINE TO BECOME READY PRIOR TO 
EXECUTING THIS PROGRAM. 

TO LOAD THE PROGRAM DECK, USE THE STANDARD LOADING PROCEDURE 
AS DESCRIBED IN THE DIAGNOSTIC MONITOR USE PROCEDURE. 

3.2 PROGRAM OPERATION 

STANDARD MONITOR OPERATING PROCEDURES APPLY. THESE PRO- 
CEDURES ARF SUMMARIZED HERE. SEE OM USE PROCEOURE FOR 
, DETAILS OF PARTS 1-4 BELOW. 
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CLE AX STORAGE TO 7CFF. 
LCAO DIAGNOSTIC MONITOR 
SELECT MODE OF EXECUTION 
SELECT MONITOR CONTPGl OPTIONS 
SELECT PROGRAM OPTIONS FROM. 

TABLE - PROGRAM CONTROL FUNCTION 
TABLE 1 - ROUTINE SELECT FUNCTION 
TABLE 2 - OEVICE SEL'-CT FUNCTION 
PATCH - RANOCM PATTERN SCLECTION ANO 
MULTIPLE DRIVE OVERLAP 

SET CHECK STOP SWITCH TO 'OFF' ANO WRITE STORAGE WHJTECT 

SWITCH TO 'YES'. 

INSTRUCT MONITOR TO EXECUTE THIS PROGRAM. 
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TABLE - PROGRAM CONTROL FUNCTION (PROGRAM OPT IONS > 



******************* 

* SENSE/PROGRAM * 

* 01234567* 

* • 

* 00001001* 

* * 



IN SENSE/PROGRAM SWITCHES C AND 1 



1. SET FUNCTION 00 
(AS SHOWN). 

2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH 7 
(AS SHOWN). 

3. SET DESIRED CCNTRCL OPTIONS IN DATA ENTRY SWITCHES 0-15. 

4. PRESS CONSOLE INTERRUPT. 



*••*•******•*•**•*••*, *»*****♦*«♦»******»*»♦*»#«*»***»»«»«»»«*«»,»„»,»„„»,,„ 



DATA ENTRY SWITCHES 
2 3 4 5 6 7 8 9 10 11 12 13 14 15 



•DESCRIPTION 
1.... .TERMINATE PROGRAM 



* 

♦ 1 

* 
* 

* 

* 

****»*•*••••****«*••*•********•***,*,*„ *•«**♦*******♦•***«*»♦»»*««*««««**,..»»* 



• I BYPASS ALL PRINTOUTS EXCEPT ERROR 

MESSAGES (NOTE. .ERROR MESSAGES MAY 
BE BYPASSEO BY DM OPTION! 

* • 

1 LOCK ON ERROR-IF THIS SWITCH IS ON 

ANY ERROR WILL CAU^F TriE PROGRAM 
TO LOOP IN THAT SECTION UNTIL THIS 
SWITCH IS CLEARED 

• 

1 RFOUEST • ROUTINES TO PRINT ALL 

ERRORS (ROUTINES NORMALLY 
PRINT ONLY FIRST fRRORI 



TABLE 1 - ROUTINE SELECTION 

1. THFSE SWITCHES CAN BE CHANGED AT ANY TIME. 

2. IF ZERO IS ENTERED, THE PROGRAM WILL NfT LOOP BUT WILL RUN ALL ROUTINES 



•********•*«»****** 
• SENSE/PROGRAM * 



10 10 1 



< 1 ? 3 4 i 6 7 

* 
* 



1. SET FUNCTION 01 IN SENSE/PROGRAM SWITCHES AND 1 

(AS SHOWN). 
/. SET PID IN SENSE/ PROGRAM SWITCHES 2-7. 

(AS SHOWN) 

3. SET DESIRED ROUTINE NUMBER (IN H v x) IN DATA ENTRY SWS. 

4. PRESS CONSOLE INTERRUPT. 

5. TO SELECT A STARTING ROUTINE 

A. ENTER STARTING ROUTINE NUMBER (IN HEXI 

B. START -PROGRAM RUNNING 

C. ENTER ROUTINE NUMBER 



*♦♦♦**♦*******♦***********♦****************«******«**»«**«« 



* 

♦ 01 

* 



DATA EN'RY SWITCHES 
3 4 5 6 7 8 9 10 11 12 13 14 15 
X X X X 



***•••••••••••••••*• 



♦DESCRIPTION 
• . 

ENTER DESIRED ROUTINE NUMBER 
IN HEXADECIMAL. ROUTINE NITERS 
0-E HEX ARE LEGAL ENTRIE*. 
NOTE- ENTRY OF AN ILL^GAi ROUTINE 
WILL CAUSE PROGRAM TERMINATION 
*••*•***•**•****•*•»* »♦****♦****»**»«*****•*♦*•»»♦«»*»»*»»«»»„»,.»„,»,»*,»,,» 
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TABLE 2 - DEVICE SELECTION 

i~ii:iv/ P ™i:r: i 'v^vj: io ,n ™«»™** etches » N o i 

* , , , . * 2. SST ?ID IN SENSE/PROGRAM SWITCHES 2-7. 
♦01234567* (AS SHOWN) 

* * 3. SELECT OtSIREO DEVICE 
•10001001* 4. PRESS CONSOLE INfE RUPT 
•*•♦♦*••****♦*♦♦*»*•*•..♦♦♦♦♦**•*♦»»♦,»»♦,«,«,,,„,»,„„,,,,„.,. 

! « , , , 0AT * ENTRV PITCHES *0ESCRIPT10N 

* I 2 3 4 5 6 7 8 9 10 11 12 13 14 15 * 

* ° ° ° RUN THE DISK DRIVE ASSOCIATED WITH 

THE FIRST DDEF ON THE E01T Card 

I l ° ° RUN THE OISK ORIVE ASSOCIATED WITH 

* THE FIRST DDEF ON THE EDIT CARD 

* ' ' ° * * * * RUN THE DISK DRIVE ASSOCIATED WITH 

THE SECOND DDEF Of. THE EDIT CARD. 

* ° ° l - . RUN THE OISK DRIVE ASSOCIATED WITH 

* THE THIRD DDEF ON THE EDIT CARD. 

•CAUTION. ANY BIT ON IN THIS FUNCTION OTHER THAN SITS 1 OR 2 WILL SELECT THE 

* DISK DRIVE ASSOCIATED WITH THE FIRST DCEF. * 

PATCH OPTIONS 

THERE ARE SIX PATCH OPTIONS AVAILABLE WITH THIS PROGRAM Tn 
USE ONE OR ALL OF THESE OPTIONS MAKE UP PATCH CARD Is) AS SHOWN BELOW ANP 
INSERT INTO THE OECK BEFORE THE BINARY END CARO. PUNCH THFCARdT 

^OrA'luMM^Y'TA^Lr'pRtNTOUTr' ^^ " " "'"" " ™""> « TAKEN 

Nr "' E ~ Jr^!^.? P I , ?^ S MAV Bt ,NSERT E0. AFTER PROGRAM LOAD, THRU THE 
CONSOLE SWITCHES BUT GREAT CARE MUST BE TAKEN TO COMPUTE 
CORRECTED PATCH ADDRESSES USING NECESSARY RELOCATION FACTORS. 

THESE TWO OPTIONS MAY BE USED IN THE CASE.OF A OISK WHICH IS 
«c hIvcn2^. S0ME S " PATTFRN - T HE BEGINNING NUMBER DFSIRED MAV 
SUMMARY PR?N?0^. E,TH(ra """ PRIW0UTS OBTAINED OR FROM THE 

1. SELECTION OF FIRST RANDOM NUMBER TO BE USED BY THE RANDOM SFFr 
ROUTINE 14). THIS NUMBER WILL BE USED AS THE FIRST RANDOM 
NUMBER ON EVERY ROUTINE PASS. TO SELECT THIS OPTION, PUNCH THE 
• »TCH CARD STARTING IN COLUMN ONE AS SHOWN. 

♦081DBXXXX <B« BLANK) 

XXXX- HEXADECIMAL NUMBER WHICH IS USEO ~J DETERMINE 
THF FIRST SEEK. 

NOTE- A FULL FOl R DIGITS ARE ENTERED TO ALLOW 

PROPER RANDOM GENERATION BUT ONLY THF LEFT 
TWO DIGITS ARE USED BY THE SEEK RC IT1NE. 

2. SELECTION CF FIRST RANDCM NUMBER TO EE USEO BY I HE TWO RANDOM 
PATTERN WRITE-REAO ROUTINES 19 AND 10). TH.S NUMBER WILL BE 
USEO AS THE FIRST RANDCM NUMBER ON EVERY ROUTINE PASs! 

♦081E8XXXX (B> BLANK) 

XXXX» HEXAOECIMAL NUMBER WHICH IS THE DESIRED 
START OF THE PATTERN. 
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OPTIONS 3,* AND 5 BELOW ALLOW CONTINUATION OF RANOCM GENERV- 
TION FROM A PREVIOUS LOAO OF THE PROGRAM. VALUES TO 3E ENTERED 
CAN BE FOUNO IN Tt-E LAST SUMMARY TABLE PRINTED. 

3. SELECTION OF F1»ST RANDOM NUMBER TO BE USED BY THE RANDOM 
SEEK ROUTINE. THIS OPTION WILL CAUSE THE RANOOM PATTERN 
GENERATION TC CONTINUE FRCM THE LAST NUMBER USED ON PRE- 
VIOUS LOAD OF THE PROGRAM. 

♦0875BXXXX IB= BLANK) 

4. SELECTION OF FIRST RANDOM NUMBER TO Br USED B> THE RANDOM 
WRITE-READ ROUTINE 19». THIS OPTION KILL CAUSE THE RANDOM 
PATTERN GENERATION TO CONTINUE FRCM THE LAST NUMBER USED 
ON PREVIOUS LCAD OF THE PROGRAM. 

♦0877BXXXX IB» BLANK) 

5. SELECTION OF FIRST RANDOM NUMBER TO BE USED BY THC RANDOM 
WRITE-READ ROUTINE (10). THIS OPTION WILL CAUSE THE RANDOM 
PATTERN GENERATION TO CONTINUE FRCM THE LAST NUMBER USED ON 
THF PREVIOUS LCAD OF THE PROGRAM. 

♦0879BXXXX IB' BLANK) 

6. RUNNING MULTIPLE DRIVES. 

TO RUN TWO OR TORE DRIVES IN OVERLAP PERFORM THE FOLLOW- 
ING STEPS. 

A. DUPE THE PROGRAM CECK ONCE FOR EACH ACDIT IONAL DRIVE 
TO BE RUN. 

B. PATCH A PROGRAM ID INTO THE ADDITIONAL DECKS AS FOLLOWS 
tUSE A PID IN THE RANGE 02-3F, WHICH WILL NOT BE IN- 

/ CLUOEO Ik IHIS LOAD). PIOS 09,19, AND 39 ARE SUGGESTED. 

♦07FFBXXC0 IB« BLANK) 

EXAMPLE TO PATCH PID-19. 
♦07FF 1900 

C. MAKE UP EDIT CARDS FOR THE ADDITIONAL DECKS USING 
THE PATCHEO PID. 

D. LOAO ALL CECKS IN OVERLAP MODE AND EXECUTE THEM. 

, SELECT A OIFFERENT DISK DRIVE FOR EACH EXECUTION. 

NOTE- THE PATCHED PID MUST BE USED IN PLACE OF PID 09 FOR 
FUNCTION SELECTION AND PROGRAM EXECUTION. 

7. SELECTION OF ALTERNATE CYLINDERS FOR READ/WRITE ROUTINES. 
THIS OPTION WILL CAUSE THE REAO/WRITE ROUTINES (5, 6,8, 9, A, 
B,C,D,E) TC USE THE PATCHED CYLINDER NUMBER IN PLACE OF THE 
NORMALLY USED CYLINDER NUMBER. 

♦0816 XXXX NORMALLY CYLINDER 001 (0008 HEX) 

♦0817 XXXX NORMALLY CYLINDER 002 (0010 HEX) 

♦0819 XXXX SCRMALLY CYLINDER 199 (0638 HEX) 

♦081B XXXX NORMALLY CYLINDER 201 (0648 HEX) 

♦08IC XXXX NORMALLY CYLINOER 202 (0690 HEX) 
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3.3 PROGRAM HALTS 

THIS PROGRAM HAS NO NORMAL WAITS, UNLESS .HE DIAGNOSTIC MONITOR 
OFTION OF HALT ON ERROR IS SELECTED, AND AN ERROR OCCURS. SEE DM 
USE PROCEDURE FOR THIS HALT. 

3.4 PRCGRAM TERMINATION 

THE PROGRAM WILL NORMALLY TERMINATE AFTER ONE COMPLETE PASS, 
UNLESS THE DIAGNOSTIC MONITOR OPTION OF LOOP ALL PROGRAMS IS 
, SELECTED. SEE DM USE PROCEOURE FOR THIS OPTION. 

THE PROGRAM CAN BE MANUALLY TERMINATED IN ONj OF TWO WAYS. 

1. BY THE MONITOR DE-EXECUTE OPTION. 

NOTE- IF THE PROGRAM IS TERMINATED WITH AN INTERRUPT 
PENDING THE INTERRUPT WILL BE HANDLED BY THE MONITOR AND 
TREATEO AS A SPURIOUS INTERRUPT. 
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BY THE USE OF THE TERMINATE PROGRAM OPTION IN SWITCH 
FUNCTION 0. 
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THE PROGRAM WILL ALSO BE TERMINATEC WHEN CERTAIN ERRORS OCCUR. 
SEE SECTION 4.2 (ERROR MESSAGES) FOR ERRORS WHICH 
CAUSE PRCGRAM TERMINATION. 

3.5 PROGRAM RESTART 

THE PRCGRAM CAN BE RESTARTED FOLLOWING ANY TERMINATION BY PER- 
FORMING A 'DE-EXECUTE' FOLLOWED BY AN 'EXECUTE' OPERATION THRU THE 
MONITOR. 

PRINTOUTS 

THE F". LOWING SYMBOLS ARE USED IN ALL PRINTOUTS AND HAVE THE SAME 
MEANING IN ALL PRINTOUTS. 

XXXX - THIS HEXADECIMAL WORD INDICATES THE TEST ROUTINE BEING 
RUN AT THE TIME OF THE PRINTOUT. (ROUTINE ID-RID) 

YYYY - THIS HEXADECIMAL WORO INDICATES THE ACTUAL BEGINNING AD- 
DRESS OF THE TEST ROUTINE. (ROUTINE ADDRESS-RADI 

DODO - THIS HEXADECIMAL WORD CONTAINS THE LAST DSU WORO RECEIVED 
FROM THE DISK 

OOTF - FILE BEING RUN BY THIS PROGRAM. 
T ■ FILE TYPE (A OR B) 
f « FILE NUMBER (1,2 OR 3) 



NOTE- 



O 
O 

o 
o 
o 
o 

o 

o 
o 

• 



ANY MESSAGE MOOIFIER WHICH IS DESIGNATED AS DECIMAL WILL BE 
PRINTED IN DECIMAL ONLY IF THE NUMBER IS POSITIVE. IF ANY 
NUMBER SHOULD eE NEGATIVE (DUE TO SOME HARDWARE ERROR) THAT 
MOOIFIER IS PRINTEO IN HEXADECIMAL. 
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OATE 
EC NO. 



4.1 



STATUS MESSAGES 



0900 A000 XXXX YYYY DOOD OOTF 

MODEL DETERMINATION. 

THE PROGRAM HAS DETERMINED (FRC* THE DSW FAST ACCESS BIT AND THE 
SELECTED DEVICE'S AREA COOE) THAT THE DISK BEING RUN IS AS SHOWN 
BY 'OOTF'. THIS PRINTOUT OCCURS ONLY ONCE EACH TIME THE PROGRAM 
IS "EXECUTED. 

0900 A001 XXXX YYYY DODO OOTF AAAA , 

AAAA- NUMBER OF RETRIES BEFORE RECOVERY. (DECIMAL) 

RECOVEREO SEEK ERROR. THIS PRINTOUT WILL ALWAYS BE PRECEEDEO BY 
ONE OR MORE ERROR MESSAGES (UNLESS BY-PASS ERROR MESSAGES OPTION IS 
SELECTED) WHICH INDICATE THE ERROR OR ERRORS WHICH CAUSED THE SEEK 
RETRY. THIS PRINTOUT INDICATES THAT OSW ERRORS WERE NOT 
FOUND AFTER THE COMPLETION OF THE LAST SEEK OPERATION. 

0900 A002 .*XXX YYYY DDDD OOTF AAAA BBBB 

AAAA » NUMBER OF DSW ERRORS BEFCRE RECOVERY. (OECIMAL) 
BB6B- NUMBER OF COMPARE ERRORS BEFORE RECOVERY (DECIMAL) 

RECOVERED READ ERROR. DATA FAILED TC CCMPARE ONE CR MORE TIMES BUT WAS 

CORRECT AFTER THE NUMBER OF RETRIES PRINTEO. THIS MESSAGE WILL ALWAYS 

BE PRECEEDEO BY CNE CR MORE ERROR MESSAGES IUNLESS BYPASS ERROR CPTUN 

IS SELECTED) WHICH INDICATE THE ERROR OR ERRORS WHICH CAUSED ThE RETRIES. 

0900 A003 XXXX YYYY DDDD OOTF AAAA 

AAAA- NUMBER OR RETRIES BEFORE RECOVERY. (DECIMAL) 

RECOVERED WRITE ERROR. THIS MESSAGE WILL ALWAYS BE PRECEEDEO 
BY ONE OR MORE ERROR MESSAGES IUNLESS BYPASS ERROR MESSAGES OPTION IS 
SELECTED) WHICH INDICATE THE ERRCR OR ERRORS WHICH CAUSED THE RETRIES. 
THIS MESSAGE INDICATES THAT NO OSW WCRD ERRORS WERE FOUNO AFTER THE 
LAST WRITE. 



0900 A004 XXXX YYYY DDDD OOTF 



/ 



DFT TERMINATED. THE ERRORS WHICH CAUSE TERMINATION OF OFT PRECEDE 
THIS PRINTOUT. THE OFT MUST BE OE-EXECUTEO AND RE-EXECUTED TO 
RERUN THE PROGRAM. 

0900 A005 XXXX YYYY DDDD OCTF AAAA BBBB ' 

AAAA- NUMBER OF OSW ERRORS ENCOUNTERED. OECIMAL) 
BBBB- NUMBER OF CMP ERRORS ENCOUNTERED. (OECIMAL) 

REAO RETRY TERM!NATEC. 

THE READ ROUTINE RETRY PROCEDURE HAS BEEM TERMINATED, OUE TO COM- 
PARE ERRORS. THIS PRINTOUT WILL BE PRFr-lrOEO BY ONE OR MORE ERROR 
MESSAGES (UNLESS BYPASS ERROR MESS...fc> OPTION IS SELECTED) WHICH 
INDICATE THE ERRCR OR ERRORS WHICH CAUSED THE RETRIES. 

0900 AOOo XXXX YYYY DDDD OOTF 

ATTEMPTS TO SEEK A CYLINDER AND VERIFY THE SEEK BY REAOING SECTOR ID'S 
RESULTED IN CNE OR MCRE FAILURES BUT THE LAST RETRY ATTEMPT WAS 
SUCCESSFUL. 
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4.2 COMMAND MESSAGES 

0900 COCO XXXX YYYY SSSS FFFF 

SSSS- CONTENTS OT SWITCH FU CTION TWO (HEXADECIMAL) 
FFFF- ALWAYS FFFF (HEX ADEC U AL ) 

OPERATOR ERROR. 
_ SELECTED A OEVICE TKRU SWITCH FUNCTION TWO WHICH IS NOT EDITED. 

0900 C001 XXXX YYYY DODO OOTF 

OPERATCR fcPRCR. 
•HE DEVICE SELECTED TO BE RUN DOES NOT HAVE A PROPERLY INITIAL- 
IZED PACK INSTALLED. 

0900 C002 XXXX YYYY DOOD OOTF 

XXXX- CONTENTS OF SWITCH FUNCTION ONE (HEXADECIMAL) 

OPERATOR ERROR. 

AN INVALID ROUTINE HAS BEEN SELEC TED FOR LOOPING. 

4.3 OATA MESSAGE 

0900 0001 XXXX YYYY DDOD OOTT PSCT SKCT SSKE HSKE 
DDOD OOTF PSCT ROCT SRDE HROE 
DODD OOTF PSCT WRCT SWRE HWRE 
DDDD OOTF PSCT RECL 
ODDD OOTF PSCT FRNS LRNS 
ODDD OOTF PSCT FRN1 LRN1 
DDCD OOTF PSCT FRN2 LRN2 
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PSCT. 



FRNS- 

LRNS* 

FRNI- 
LRNI- 
FRN2- 
LRK2- 



PiSS NUMBER (THIS REMAINS THE SAME FOR ALL SEVEN 
LINES) ICECIMAL) 

SEEKS ISSUED EXCLUSIVE OF RETRIES! DECIMAL ) 

SOFT SEEK ERRORS (DECIMAL) 

HARD SEEK ERRORS (DECIMAL) 

READS ISSUED EXCLUSIVE OF RETRI ESIDECIMAL I 

SOFT READ ERPORS (DECIMAL) 

HARD READ EHRORS (CECI»AL> 

WRITES ISSUED EXCLUSIVE CF RETRIES (DECIMAL I 

SOFT WRITE ERRORS (DECIMAL) 

HARD WRITE ERRORS (CECIMAL) 

WRITTEN ON A SECTOR BY A WRITE USING 

400. (OECIMAL) 
FIRST RANOCM SEEK ISSUEC BY THE RANDOM SEEK 
ROUTINE (HEXADECIMAL) 

LAST RANDOM SEEK ISSUED BY THE RANDOM SEEK 
ROUTINE (HEXADECIMAL) 

FIRST RANOCM DATA WORD UtED BY ROUTINE 9 (HEXADECIMAL) 
LAST RANCOM OATA WCRD USED BY ROUTINE 9 (HEXAOECIMAL J 
FIRST RANDOM DATA WORD USED BY ROUTINE 10 (HEXADECIMAL) 
LAST RANDOM DATA WORO USEO BY ROUTINE 10 (HEX/ ^ EC I MALI 



SKCT- 


TOTAL 


NUMBER 


CF 


SSKE- 
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SUMMARY PRINTOUT. OCCURS AT THE END OF EACH COMPLETE PROGRAM 
PASS. ALL COUNTS ARE INITIALIZED TO ZERO WHENEVER THE PROGRAM IS 
EXECUTED. ANO WILL CONTINUE TC AOVANCE UNTIL THE PROGRAM IS DE-EXFCUTED. 
ALL COUNTS WILL ADVANCE FROM 0000 THRU 9999 AND THEN RESET TO 0300. 
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4.4 ERROR MESSAGES 

09C0 ECC1 XXXX WW 0000 OCTF AAAA BBBB 
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DATE 
EC NO. 



AAAA 

BBBB 



DATA WCRD OF LAST IOCC ISSUED (HEXADECIMAL! 
CCNTRCL WORD OF LAST ICCC ISSUED ( HcXAOEC IMAL ) 



LOST INTERRUPT. FOLLOWING EACH SEEK, REAOt CR WRITE 

THE PKCGRAM SETS UP A LOOP THRU THE MONITOR WAITING FOR INTERRUPT. I c THE 
INTERRUPT HAS NOT CCCURED WITHIN A SPECIFIC NUMBER OF LOOPS THIS 
PRINTOUT HILL OCCUR. 

IF THIS PRINTOUT IS FOLLOWEO BY A MONITOR PRINTOUT INDICATING 
UNEXPECTED INTERRUPT IFOR THE DISK) THEN THE INTERRUPT OCCURED, BUT WAS 
AT LEAST ONE SECOND LATE. 

0900 E002 XXXX WW DDDO OOTF AAAA BBBB 
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AAA.. 
B&iiS 



DATA WCRD OF LAST ICCC ISSUED.. I HEX ADEC IMAL 1 
CCNTROL WORD OF LAST IOCC ISSUED (HEXAOEC IMAL I 



IS NOT 



SPURIOUS INiER^UPT. THIS PRINTOUT CAN ONLY CCCUR 

WHEN THIS PROGRAM HAS REQUESTED THE DISK FROM THE MONITOR, BUT 

CURRENTLY EXT-ECTRG AN INTERRUPT. 

0900 EC03 XXXX VYYY ODDD OOTF 

INCORRECT DSW. 

THE DISK IS BUSY AND/OR NOT READY .(HEN IT SHCULO BE BOTH READY 
AND frf)T BUSY, THIS CHECK IS MADE PRIOR TO ISSUING ANY SEEK, PEAO, 
CR WRITE. AS LONG AS THE DISK REMAINS PUSY AND/OR NOT REAOY THIS 
PRINTOUT WILL RfPEAl APPROXIMATELY EVErtY 12 SECONDS UNLESS THE PRO- 
GRAM IS DE-EXECUTED. 

0900 1004 XXXX YYW ODDD OCTF AAAA BBBB 



AA«* 

BBSB 



' DATA WCRD CF ICCC JUST ISSUED (HEXADECIMAL) 
* CONTROL WORD OF IOCC JUST ISSUED (HEXADEC IMAl ) 



INCORRECT DSh. 

1HE DISK IS NOT BUSY AND/OR REAOY WHEN IT SHCULD BE BOTH BUSY 

AND NOT READY. THIS Cl-ECK IS MADE IMMEDIATELY AFTER EXECUTION OF 

EVERY SEFK, READ. CR WRITE. THIS MESSAGE IS PRINTED ONLY ONCE, 

FOLLOWING WHICH THE PROGRAM ENTERS A LCOP THRU THE MONITOR CHECKING 

F3R LCST INTERRUPT. 

O9C0 EC05 XXXX YYW DDDD OOTF AAAA BBBB 

AAAA* CATA WCRD OF LAST IOCC ISSUEO IHEXADEC IMAL ) 
BBBB» CONTROL WORD 0* LAST IOCC ISSUED (HEXADEC1MALI 

INVALID SEEK ADDRESS 11P10B CNLY). AFTER A SEEK THE DSW INDICATED 
A SEEK ERROP. WHICH WAS AN INVALIO ADDRESS EPROR. THIS OPERATION 
MILL BE RETRItO A MAXIMUM CF SEVEN TIMES. NOTE- IF THE LOCK ON ERROR 

OPTION IS SELECTED THIS ROUTINE WILL LOOP UNTIL THE SWITCH IS CLEAREO. 
0900 E006 XXXX VYYY DDDD OOTF AAAA BBBB 

AAAA'DECIMAL CYLINDER NUMBER SEEKEO FRUM. 
BBBB-DECIMAL CYLINOER NUMSER SEEKED TO. 

HARO SEEK ERROR. (1810B CNLY) EIGHT SEEKS HAVE ALL RESULTED IN 
SEEK ERRORS WHICH ARE INVALIO ADDRESS ERRORS. 
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0900 COOT XXXX WYY DDDO OOTF AAAA BBBB 

AAAA- CATA WORD CF LAST IOCC ISSUED IHEXAOEC IMAL I 
BBBB- CCNTROL WOP.D OF LAST IOCC ISSUEL IHEXADFCI MAD 

SEEK INCOMPLETE I181PB CNLY). AFTER A SEEK THE OSW WORD INDICATES 
A SEEK ERROR WHICH IS A SEEK INCCMPLL.'E ERROR ON THE 1810B. SFEK 
OPERATION WILL BE RETRIED A MAXIMUM CF SEVEN TIMES. 

090C E008 -THIS MESSAGE 10 IS NOT USED. 

CJCO E009 XXXX YYW CDSD COTF 

OSW READ ERROR. THE DATA READ WILL BE CHECKED FOLLOWING THIS 
PRINTOUT. THE ROUTINE WILL THEN ENTER A RETRY OPERATION. UP TO 
A MAXIMUM OF SEVEN RETRIES WILL BE EXECUTED. 

NOTE- IF THE LOCK CN ERROR OPTION IS SELECTED THE ROUTINE HILL LOOP 
IN THIS REAO UNTIL THE SWITCH IS CLEARED. 

0900 EOOA XXXX VYYY DODO OOTF AAAA BBBB 

AAAA* NUMBER OF TIMES DSW ERRORS WERE FOUND (OECIMALI 
BBBB» NUMBER OF TIMES COMPARE ERRORS WERE FOUND (DECIMAL) 

HARD DSW READ ERRCR. REAC OPERATION WAS UNSUCCESSFUL AFTER EIGHT 
TRIES. 

0900 E005 XXXX WW DODO OOTF 

DSW WRITE ERRCR. THE RETRY PROCEDURE WILL BE INITIATED FOR THE WRITE. 
NOTE- IF THE LOCK CN ERROR CPTION IS SELECTED THE ROUTINE WILL LOOP 
IN TPIS WRITE OPERATION UNTIL THE SWITCH IS CLEARED. 

090C EOOC XXXX WW ODOO OCTF AAAA 

AAAA» NUMBER OF WRITE DSW ERRORS (DECIMAL) 

HARO WRITE ERROR. THE OSW WORD INDICATED AN ERRCR ON ALL OF EIGHT WRITES. 

0900 EOOD XXXX YYW DDDO OOTF AAAA BeBB CCCC 

AAAA- CYLINDER NUMBER SEEKED FROMIHEXADECIMAL ) 
BBBB- CYLINDER NUMeF* EXPECTED (HEXADECIMAL! 
CCCC- CYLINDER NUMBER READ FRCM DISK (HEXADECIMAL) 

SEEK ERROR OCCURRED. ATTEMPTEO TO SEEK CYLINOER BBBB FRC* CY- 
LINDER AAAA, BUT WHEN SECTOR ID'S WERE READ AFTER THE SEEK. THEY 
INDICATED THAI THE DISK ACTUALLY REACHED CYLINOER CCCC. THIS WAS 
DETERMINED BY READING ALL EIGHT SECTOR IO'S AND THEN CHECKING FOR THEM 
CONTAINING THE SAME CYLINDER NUMBER. SEEK RETRY WILL BE INITIATED 
USING THE CYLINDER NUMBER READ AS THE PRESENT ARM POSITION. NOTE IF 
THE LOCK CN ERROR OPTION IS SELECTED THIS ROUTINE WILL LCOP UNTIL THE 
SWITCH IS CLEARED. 

0900 EOOE XXXX WW COOO OOTF AAAA BBBB CCCC EEEE 
0000 OOTF FFFF GGGG HHHH JJJJ 

MODIFIERS, AAAA THRU JJJJ CONTAIN THE SECTOR ID'S IN HEXADECIMAL IN THE 
ORDER READ. 

REAO ERRCR. 

ISSUED A SEEK OPERATION AND ATTEMPTEO TO VERIFY THE SEEK. HOWEVER, 
WHEN SECTOR IO/S WERE READ FROM THE CYLINDER, THEY DID NOT CONTAIN THE 
SAME CYLINOER 10 OR WERE NOT SE3UENTIAL ON ALL OF EIGHT READS. THE 
1810 A/B FUNCTION TEST IS TERMINATED. IF A RERUN IS DESIRED, THE 
PROGRAM MUST BE OE-EXECUTEO AND RE-EXECUTED. 
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0900 EOCF- THIS MESSAGE ID IS NOT USED. 

0900 E010 XXXX YVYV OOOD COTF AAAA BeBB CCCO OOEF G< GG (LINE II 
DOOD OOTF HHHH JJJJ KKKK (LINE 21 

ODDD OOTF LLLL ILINE 31 

AAAA- CYLINDER NUMBER EXPECTED IOECIMAL) 
-BB3B- CYLINDER NUMBER READ FROM THE DISK {DECIMAL! 
COCO- SECTOR ID EXPECTED 

C- HEAD NUMBER (0 OR 1) 

0- SECTCR NUMBER (0 THRU 3) 
OOEF- SECTOR ID REAC FROM THE DISK 

E- HEAD NUMBER (0 OR 1) 

F- SECTCR NUMBER (0 THRU 31 
GGGG- NUMBER OF WORDS EXPECTED IN OECIMAL 

HHHH- WORD NUMBER IN RECORD IN OECIMAL II THRU NUMBER OF WORDS READ) 
JJJJ- CATA EXPECTEO 'HEX AOEC IMAL I 

KKKK- DATA RECEIVED I HE XAOECI MAD -NOTE-I/0 A^.EA IS PRESET TO FFFF 
LLLL- TOTil NUMBER OF BAO CATA WORDS (DECIMAL) 

DATA CCMPARE ERRCRIS). 

THE ROUTINE ID (RID) IS AN IMPORTANT CI UE AS TO THE MEANING OF THIS 
MESSAGE. CHECK Tt E ROUTINE DESCRIPTION {SECTION 5- 11 BEFORE CON- 
TINUING k!TH THIS «ESSAGE. 

PRICR 10 ISSUING * READ XIO, THE I/O AREA (STARTING AT C8C0 HEXI IS 
SET TO HEXADECIMAL 'FFFF'. AFTER THE READ INTERRUPT HAS OCCURRED, 
THE DATA IS CHtCrED FOR ERRORS. THE FIRST LINE CF THE ERROR MESSAGE 
KILL INDICATE IF THE SECTOR ID JUST READ WAS AS EXPtfTED. THIS LINE 
IS PRINTED ,N OECIMAL AND IF THE StCTCR ID IS IN ERi<OR, THE SECOND 
WILL REPEAT THE SAMF INFORMATION, ONLY IN HEXADECIMAL FOR BIT BY BIT 
CCMPARISCN. 

NOTE THIS ROUT INT NCPMALLY PRINTS ONLY THE FIRST ERROR UNL C SS 
THE OPTION PRINT-ALL-ERRORS IS SELECTED. 

LINE 2 IS REPEATED FOR THE WORD PPECEEDING TH! BAD WORD, THE 
BAD WORO AND THE WORD FOLLOWING THE BAD WORD. FOR LXAMPCE, ASSUME 
THAT WORD I (SECTOR ID) IS INCORRECT. ASSUME WE EXPECTED CYLINDER 1, 
SECTOR 00 AND THE OATA BEING READ WAS E5E5. THE PRINTOUT WOULD LOOK 
LIKE THE FOLLOWING. 

•••♦•SAMPLE PRINTOUT SAMPLE PRINTOUT SAMPLE PRINTOUT SAMPLE PRINT0UT»»*»»*»»**«. 
0900 E01C XXXX VYVY ODOD OOTF 0001 OCOO 0000 0000 0321 

PDDD COTF 0301 0008 0000 

ODDD OOTF 000? E5E5 E5E5 

ODDD OOTF 0001 
•♦•••SAMPLE PRINTOUT SAMPLE PRINTOUT SAMPLE PRINTOUT SAMPLE PRINTOUT***.*......* 

THIS PRINTOUT SHOWS THAT THE CYLINOER NUMBER WAS READ WRONG. 
IT FURTHER SHOWS THAT WORD 1 CONTAINED THE INCORRECT CYLINDER NUMBER, 
BUT THE CORRECT SECTCS 10. WORO 2 CONTAINED THE CORRECT OATA. THE 
NUMBER OF WO»DS PEAD t AS 321 ANO TOTAL ERRORS WAS 1, THEREFORE ONLY 
THE CYLINDER N'JNBER WAS IN ERROR. 
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??. *„5 ECCV) EX * MPLE ASSUME THAT WORDS 3 ANO 5 REA . INTO CORE BAD. »UT 
ALL OTHER -OROS WERE REAC CORRECTLY. ASS.'t ALSO THAT TH 0PTI3N 
FOR PRINT ALL ERRORS IS SELECTED. (CVLINDF* 1. SECTOR AND MIA. 

•••♦•SAMPLE PRI1TCUT SAMPLE PRINTOUT SAMPLE PRINTCUT SAMPLE PRINTOUT.*..*....... 

0900 E010 xxxx vvyv nnnn nnri: nr.n. r. -,. r--, „»„-" 1:5 KK, " , "-UI"****.».**** 



0900 E010 XXXX YYYY ODDD OOTF 0001 

ILINE 1) 

ILINE 2) 

ILINE 31 

ILINE 4) 

ILINE 5) 

(LINE 6) 



TT CCCO 0300 0321 
ODDD COTF 0302 1?13 1313 
DDDD CC1F 0003 1313 0313 
ODDD OOTF 000<> 13li 1313 
ODDO OOTF 0005 1S13 0313 
OCCD OOTF 0006 1313 1313 
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OATE 
EC NO. 



ODOD OOTF C002 
'♦••♦SAMPLE PRINTCUT SAMPLE PRINTOUT SAMPLE PRINTOUT SAMPLE PRINTOUT.*....*.*... 

^,„-„.I HE , ' 8INT0UT SHOWS ? TOTAL ERRCRS AN3 WORDS 3 ANO 5 HAVE 
OROPPEO BIT 3. ALl CTHER wn»DS ARE COa»ECT. IF THE PRINT-All- 

J^f ^ PUCN H *° N0T BEEN SELECTED THEN LIVES 4 AND 5 WOULD 
NOT HAVE APPEARED IN THIS PRINTOUT. 

THE WCRD PRECEEOING ANO WCRC FOLLOWING . r-E ERROR WCPC ARE PRE- 
SENTED IN THE PRINTOUT TO PROVIOF AS MUCH CF THE PATTERN USED AS " 
PRACTICAL, ESPECIALLY FCR THE RANOCM PATTERN ROUTINES. 

0900 ECU XXXX YYYY OOOD OOTF AAAA BB3B CCCO CCEF GGGG 

AAAA- CECIMAL CYLINDER NUMBER EXPECTFC. 
BB99- OECIMAL CYCINOER MjMdER READ FROM DISK. 
OOCD- SECTOR IC EXPECTED. 

C- HEAD NUMPER (0 CR 1 ) 

0- SECTOR NUMBER (0-31 
OOEF- SECTOR ID RFAD FROM DISK. 

i- HEAD NUMBER (0 OR II 

F- SECTOR NUMBEH 10-3) 
GG5G- NUMBER OF WURDS THAT ShPulO have BEEN READ. (DECIMALI 

INPUT TABLE OVERFLOW. 

PROBABLY TRANSFERRFO MORE WC.RDS THAN THE «0»f> COUNT CALLED FOR 0* 

i« ?Z: ." UAS1 0NE 0F " HF TW0 l,C005 rr; ' LOWING THE RFAO RFCORD 
WAS NOT THE SAME AS THE ?RE.5i VALUE CF HEXADECIMAL 'FFFF'. 

0900 E012 XXXX YYYY COCO CCTf AAAA 

AAAA- PRESEi.T CYLINDER N' "BER IDEfl>ALI 

THE HOME I«I,.ATOR IN THE DSW ?S INCORRECT. I' I S OFF WHEN PRESFNT 
CYLINOER IS 0000 CR CN WHEN PRFSFNf CYLINDER IS NOT 0000. THIS 
CHECK IS MAJE AFTFR EVERY SEEK. 

0900 EOli- THIS MESSAGE ID IS NOT US D. 

0900 fC14 IXXX YYYY DDOO COTF 

r?.!g ^ff^or s a b : t 8i^: t w ,s ,nccoect - ™ e bit ,s ™ «» 

0900 E015 XXXX YYYY OOOD COTF 

A WRITE WITH A WCPO COUNT OF 400 FAILEO TC CAUSE TH«= OSM 
•ANY ERROR* ANO/CR 'DATA ERROR' BITS TO BE SET. 

09C0 EC16 XXXX YYYY ODOD OCTF 

A REAC WITH A WCRO COUNT OF 370 FAILEO TO CAUSE THE OSW 
•ANY £RRO«» ANO/OR 'DATA ERROR' BITS TO BE SET. 
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0900 E017 XXXX YYYY DODO OOTF AAAA 

AAAA* CECIMAL KUMBER CF WORDS WRITTEN 

SECTOR GAP TEST. 

A WRITE WITH A WORD COUNT OF 400 WROTE LESS THAN 331 WORDS. OR MORE 

THAN 358. 

0900 C018 XXX YYY OOD OOTF 

WRITING 400 WORDS CN CYLINDER 2-SECTCR ZERO DESTROYED DATA CN 
CYLINDER 2-SECTOR ONE. 

0900 E019- THIS MESSAGE ID IS NOT USED. 

0900 E01A XXXX YYVY DDDD CCTF AAAA B8BB 

AAAA' NUMBER OF TIMES DSW ERRORS WERE FOUND DURING READ- 

CHECMOECIMALI 
BBBE* NUMBER OF TIMES DATA WAS TRANSFERRED BY A READ CHECK 

ICECIMALI 

ROUTINE 8 SUMMARY. 

THIS PRINTOUT WILL OCCUR ONLY IF ROUTINE 8 ENCOUNTERED AN ERROR. 

0900 E01B XXXX YYYY OODD CCTF 

INVALID SEEK ERROR. 

A SEEK CYLINDER 203 WAS ISSUED AN^ THE INTERRUPT DSW DID 

NOT CONTAIN THE SEEK ERROR INDICATION. 

THIS PRINTOUT OCCURS ONLY IF PUNNING A 18I0B 

0900 EC1C XXXX YYYY DODO CCTF 

C.E. MODE ERROR. 

THE DIS.X WAS PLACED IN C.E. MODE ANO THE DSW SENSED WITHOUT RE- 
SET. THE C.E. BUSY ANO/OR C.E. NOT READY BITS WERE FOU\0 TO 
BE ON AT THIS TIME. 

NOT 1 :- THIS ROUTINE IS ALWAYS BYPASSED IF RUNNING THE PROGRAM AS AN 
ON LINE FUNCTION TEST. 

0900 EC10 XXXX YYVY ODDD OCTF 

STORAGE PROTECT ERROR. 

CNE WORD WAS READ FROM THE DISK INTO A STORAGE PROTECTEO WORD 

AND THE STORAGE PROTECT VIOLATION BIT WAS NOT FOUND ON IN THE 

DSW WORD. THIS PRINTOUT WILL ALWAYS OCCUR IF THE WRITE STORAGE 

PROTECT SWITCH IS IN THE 'NC» POSITION. 

NOTE- THIS ROUTINE IS ALWAYS BYPASSED IF RUNNING THE PROGRAM AS 

AN ON LINE FUNCTION TEST. 

0900 EOIf XXXX YYYY DODO OOTF AAAA 

AAAA" HEXADECIMAL CONTENTS CF STORAGE PROTECTEO 

LOCATION FOLLOWING THE READ. ITHIS WORD WAS PRESET TO 
•FFFF" PRIOR TO THE READ) 

STORAGE PROTECT ERROR. 

ONE WORO WAS REAO FROM THE DISK INTO STORAGE PROTECTED LOCATION. «08C l» . 

AND DATA WAS TRANSFERRED ! hiTO THE PROTECTED WORO. THIS PRINTOUT 

WILL ALWAYS OCCUR IF THE WITE STORAGE PROTECT SWITCH IS IN THE 

•NO' POSITION. THIS ROUTIhE IS ALWAYS BYPASSED IF RUNNING THE 

PROGRAM AS AN ON LINE FUNCTION TEST. 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1810 A/B FUNCTION TEST • 

0900 EOIF XXXX YYYY ODDD OOTF ABCD 

ABCD- 

A» FIRST SECTOR COUNT FOUND CS/9=0) 

&» SECOND SECTOR COUNT FOUND IS/BMI 

C» THIRO SECTOR COUNT FCUMO «S/e=2) 

D- FOURTH SECTOR COUNT FOU.:0 «S/B=3» 

SECTOR HIGH LOW ERROR. 

THE DSW WORD IS CHECKED FOR PROPER SECTOR COUNT STEPPING, STARTING 

WITH SECTOR ZERU. THE ROUTINE THEN CHECKS THE FOUR DIFFERENT COUNTS 

OBTAINED AND PRINTS IF STEPPING IS INCORRECT. THIS ROUTINE IS ALHAVS 

BYPASSED IF RUNNING THE PROGRAM AS AN ON LINE FUNCTION TEST, OR IF RUN- 
ING IN OVERLAP. 

5. COMMENTS 

5.1 DESCRIPTION CF TEST ROUTINES • 
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DECIMAL HEXADECIMAL 
ROUTINE ROUTINE 
NUMBER NUMBER 



DESCRIPTION 

THIS IS A ROUTINE WHICH IS RUN ONCE EACH TIME 
THE PROGRAM IS EXECUTED. THIS ROUTINE IS 
ALWAiS RUN REGARDLESS OF ANY OPTIONS. THE 
ROUTINE WILL.- 

A. CHECK THE. SECTOR COUNT IN THE OSW FOR PROPER 
STEPPING. 

NOTE- THIS ROUTINE IS ONLY RUN IF RUNNING OFF 
LINE ANO IN NON-OVERLAP MODE. 

B. SENSE DISK OSW ANO USE FAST ACCESS BIT TO 

OETE»MINE DISK MODEL. ISSUE A SEEK TO HOME 
THROUGH THE XEO ROUTINE. THE •MODEL' IN- 
DICATOR SWITCH IS SET FGR 1810B, CLEARED FOR 
1810A. THT FILL ID I Al , A2.A3.B1 .B2.X3) USED 
FOR PRINTOUTS IS CREATEO ALSO. 

C. RFAD 321 WORDS OF HEXADECIMAL •1311» FORM 
CYLINOEP 0, SECTOR 0. VERIFY ALL DATA. 

0. SEEK CTLINDti 199 THRU THE VERFY ROUTINE. 
READ SECTOR i TO GET THE BAD CYLINDER 
TABLE. CHECK frA* THE ScCONO WORD OF 
THIS SK.TOR IS HlXADE("IMAL •CEDC*. IF 
NOT, TERMINATE HE DFT TO PREVENT POS- 
SIBLE CUSTOMER tACK CAMAGE. 

THIS ROUTINE WILL TEST THE DISK DSW INDICATORS. 



SHOULO 
A 1810A. 
18103, ISSUE 



A. TEST THE FAST ACCESS DSW BIT. 
BE ON FOR A 181CB AND OFF FOR 

B. IF THE MOOEL SWITCH INDICATES 
AN INVALIO SFEK AND CHECK I HE 3SW SEEK 
ERROR BIT FOR BEING ON. 

C. PLACE THE DISK IN CE MODE ANO CHECK THAT 
NEITHER CE OSW BIT IS ON. 

NOTE- C ABOVE IS BYPASSED IF THE PROGRAM 

IS RUNNING AS AN ON LINE FUNCTION TEST 
LOOP THIS ROUTINE 50 TIMES. 
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REA3 ONE WCRO INTO A STORAGE PROTECTED WORC AND 
CHEW THE DSW SPV BIT FOR BEING CN. CHECK 
ALSC THAT NO DATA WAS TRANSFERRED INTO THE 
PROTECTED WORD. 
N0T£- TKIS ROUTINE IS BYPASSED IF PUNNING THE 

PROGRAM AS AN CN LINE FUNCTION TEST. 
LOO» THIS ROUTINE 50 TIMES. 

EXECKTE SEEKS OF 2 IN, 1 OUT FROM »-C«E TC CY- 
LINDER 202 IEXCEPT CYLINOEPS 90-110) EXECUTE 
SEE*S OF 2 OUT, 1 !N FROM CYLINDER 202 TO HOME 
<E*£EPT CYLINDERS 90-110). VERIFY AH SEEKS BY 
REA2ING ALL EIGHT SECTOR IU'S. 
SEE* CUT « SEEK TOWARD HOME. 
SEEK IN » SEEK AWAY FRCM HOME. 

EXECUTE 100 RANDOM SEEKS WITHOUT SEEKING HOME 
BElwEEN SEEKS. IF THE GENERATED VJMBER WOULD 
CAME AN INVALID SEEK OR A SEEK TC CYLINDERS 
90-ltO IT WILL BE REJECTED AND A ME* NUMBER 
IS SENERATED. VERIFY EACH SEEK EY *EADING ALL 
EJ«rT SECItiR 1C«S. THE RANDOM N(J»5ER GENERATOR 
Witt NOT BE RESET EXCEPT BY RE-LCiDING THE OFT 
TO ESTABLISH A WIDE VARIETY OF RA>OCM 
Sf£<S. PROVISION IS MADE FOR EXECUTING THl 
SA»£ SEQUENCE OF SEEXS THRU THE LCCK ON 
EKTM OPTION, OR THE PATCH START 1*5 SEE< CPT 'ON. 
«*f*.SEC. 3.2-PATCH OPTION) 

*£*3 320 WORDS OF HEXAOECIKAL 1313 FROM CY- 
tl«OER 1, SECTOR AND VERI r V THE DATA READ. 
LOCP THIS ROUTINE 50 TIMES. 

t£*J 320 WORDS OF HEXADECTMAL E5E5 FROM CVLIN- 
DE* 201, SECTOR 6 AND VERIF> CORRECT DATA. 
LOO* THIS ROUTINE 50 TIMES. 

fc£»0 WITH A WCSD COUNT OF ZERO AM) CHECK THE 
1/W AREA TO SEE THAT NO WORDS ARE TRANS- 
FERRED. LOOP THIS ROUTINE 50 TIMES. 

*F*J-CHECK CYLINDER 1, SECTOR 0, AND MAKE SURE 
*C WORDS ARE TRANSFERRED. IF ERRCRS ARE 
fmnO ONLY THE FIRST SUCH ERROR IS PRINTED ALONG 
WITH TOTAL NUMBER OF ERRORS. IUM.ESS THE PRINT 
AIL ERRORS OPTION IS SELECTED.) LCOP THIS 
ROUTINE SO TIMES. 

«%ERATE 320 WORDS OF RANDOM DATA AND WRITE 
f+CSE WOROS ON CYLINDER 2, SECTOR 0. READ THE 
MIA WRITTEN AND CHECK THE DATA. IF ANY COM- 
PARE OATA ERRORS ARE FOUND, RETRY THE READ 
tVZI THE WRITE) UP TC StiVEN TIMES. IF LOCK 
CA ERROR OPTION IS SELECTS LOOP THE RCUTINF 
Uf ERRORS WERE FOUND) USING THE SAME DATA 
JATIL THE SWITCH IS CLEAf'FD. IF LCCK CN ERROR 
OPTION IS NOT SELECTED, CR IF NO ERRORS EXIST, 
ttCP THE ROUTINE FIFTY TIMES WITf FIFTY 
DIFFERENT RANOCM PATTERNS. 
•CTS- PROVISION IS MADE FOR ALWAYS USING 

THE SAME PATTERN THRU THE PATCH OPTION. 

IREF.SEC. 3.2-PATCH OPTION) 

$*»f ROUTINE AS ROUTINE 9 EXCEPT THAT CYLINDER 
2592, SECTOR 6 IS USEO. 
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l * B WRITE CYLINDER 2, SECTOR USING A WORD COUNT 

OF I AND DATA OF E5E5. READ THE SECTOR AND 
SEE THAT ALL WCRDS EXCEPT THE FIRST ARE 
ZERO. LOOP THE ROUT.NE 50 TIMES. 

12 C WRITE CYLINDER 2, SECTOR WITH A WORO COUNT OF 

400 AND DATA Uf HEXADECIMAL 1313. READ SECTOR 

AND DETERMINE HOW MANV WORDS WERE WRITTEN 
AND SAVE FOR THE SUMMARY. IF LESS THAN 331 
OR MORE THAN 358 WORPS WERE WRITTEN, PRINT AN 
ERROR MESSAGE. CHECK THAT THE SECTOR 

10 IN CYLINDER ?, SECTOR 1 IS MOT DESTROYEn. 
CHECK THAT BOTH ANY ERROR AND OATA ERROR 
BITS IN THE DSW ARE ON. 1 OOP THIS ROUTINE 
50 TIMES. 
NOTE- IF THE SECTOR 10 IN CYLINOER 2, SECTOR 

1 IS DESTROYED IT WILL BE RESTORED BY THE 
ROUTINE. 

I* WRITE 320 WOROS OF HfcX'^DEClMAL 1313 IN CYLINDER 

2, SECTOR 0. READ ANO VERIFY CORRECT DATA. 
LOOP THIS ROUTINE 50 TIMES. 

1* C WRITE 320 WOROS OF HEXADECIMAL E5E5 IN CY- 

LINDER 20.", SECTOR 6. READ ANO VERIFY COR- 
RECT CATA. 
tCOP THI5 ROUTINE 50 TIMES. 

5.2 DESCRIPTION OF SUB-ROUTINES 

ALL THE SUBROUTINES DESCRIBED PROVIDE ANY NECESSARY ERROR ANO 
STATUS PRINTOUTS. IPEFERENCE SECTION 4.) 

ALL SUBROUTINES WHICH REQUIRE THE OPTION ARF PROVIOED WITH THE 
•LXK CN ERROR* OPTION. THIS OPTION WILL LOOP THE SUBROUTINE IN 
THE SMALLEST POSSIBLE LOOP WHICH CAUSED THE ORIGINAL ERROR. 
OfiCE AN ERROR OCCURS, AND THE CPTION IS SELECTED, THE ROUTINF WILL 
REMAIN IN THE LOUP AS LONG AS THE 'LOCK ON ERROR" SWITCH IS ON, 
WHETHER THE ERROR PfCURRS CR NOT. IF NO ERROR OCCURS THEN THE 
OPTION HAS NO EFFECT. 

CALL 

BS1 2 STHLS-TB 

THIS SUBROUTINE IS USED TO SET MLSCF ENTRIES WHEN EXITING TO 
THE MONITOR. 

THE ROUTINE WILL SAVE INDEX REGISTERS I AND 2, SET AN MLSCF 
ENTRY, AND EXIT TO THE MCNITOR 'START' ROUTINE. 

UPON RETURN FROM T« MONITOR THE SUBROUTINE WILL RESTORE INDEX 
REGISTERS 1 AND 2 AND BRANCH TO CALL+l. 

BSt 2 ZRQDV-TB 

THIS ROUTINE IS USEO TO REQUEST USE OF THE DISK FROM I ME DIAG- 
NOSTIC MONITOR. 

THE ROUTINE WILL FIRST CHECK TO SEE IF THE DISK IS ALREADY 
REQUESTED. 

IF NOT, THEN A CALL IS MADE TO THE DIAGNOSTIC MONITOR ROUTINF, 
REOOV, AND UPCN RETURN EXIT IS TO CALL+1. 

IF ALREAOV REQUESTED THE ROUTINE MERELY EXITS TO CALL*1. 



t 

it 








c 







OATE 
EC NO. 
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OATE 
EC NO. 





o 



BSI 2 XEO-TB 

THIS SUBROUTINE BUILDS ANO EXECUTES AM XIO INSTRUCTION. THE 
ROUTINE THEN LOOPS THRU THE DIAGNOSTIC MONITOR WAITING FOR AN INTER- 
RUPT. 

IF THE INTERRUPT DOES KCT CCCUR WITHIN A SPECIFIC NUMBER OF 
LOOPS. THE MESSAGE ID FOR LOST INTERRUPT IS PRINTED AND THE FUNCTION 
TEST IS TERMINATED. 

IF THE INTERRUPT CCCURS IN TIME THE ROUTINE EXITS DIRECTLY TO 
CALL»l WITH THE CSW SENSEP AT INTERRUPT STOREO IN L0CAT1CNS ZSNS ANO TBDSW. 



BSI 



ZRLOV-TB 



THIS ROUTINE IS USED TO RELEASE THE DISK TO THE MONITOR. THE 
ROUTINE FIRST CHECKS TO SEE IF THE DISK IS ALREADY RELEASED. IF NOT, 
THE ROUTINE CALLS THE DIAGNOSTIC MCNITOR ROUTINE, RELDV. UPON RETURN 
FROM THE MCNITCR THE ROUTINE EXITS TO CALL*1. IF THE OISK IS ALREADY 
RELEASED, THE ROUTINE MERELY EXITS TC CALL*1. • 

BSI 2 CK.K-TB 
DC RETURN 1 

THIS SUBROUTINE IS USEO TO CHECK FOR THE LOCK ON ERROR OPTION 
SELECTED. IF THE SWITCH IS ON THE ROUTINE RETURNS INDIRECTLY VIA 
THE ADDRESS RETURN1 IN CALL*l. IF THE SWITCH IS OFF THE ROUTINE 
RETURNS OIRECTLV TC CALL*2. 

BSI 2 SETV-TB 

IA REGISTEP CONTAINS DATA TO SET) 

THIS SUBROUTINE SETS THE 1/0 AREA TO THE CCNTENTS OF THE A 
REGISTER. THE NUMBER OF WORDS TO BE SET MUST oE STORED IN L0CAI10N 
COMA PRIOR TC THE CALL. 

BSI 2 RNOCM-TB 

IA REGISTER MUST CONTAIN 

A NUMBER I 

• 

THIS ROUTINE USES THE NUMBER IN THE A REGISTER TO GENERATE A 
RANOOM NUMBER, ANO RETURNS TO CALL* I WITH THE NEW NUMBER IN THE A 
REGISTER. THE NUMBER IN THE A REGISTER AT THE TIME OF THE CALL IS 
NORMALLY THE LAST RAKDCM NUMBER USEO. 



BSI 

DC 



J STMSG-TB 
FMMH 
F« 

MHM 
NOTE 



FORM NUMBER • 

MESSAGE 10. 
IF BIT ZERO OF THE CALL EQUALS 1 
THIS MESSAGE IS PRINTED AS AN ADDITIONAL 
LINE MESSAGE AND P ID-MID-RID-RAD WILL 
NOT APPEAR IN THE LINE CF PRINT. 

THIS *OUTINc WILL SET UP THE MESSAGE SPECIFIED BY THE FORM 
NUMBER. THE MESSAGE 10 IS THEN CHECKED TO SEE IF HEX CHARACTER ONE 
IS AN E. IF IT IS AN E THE DIAGNOSTIC MCNITCR ERROR ROUTINE IS CALLEO. 
OTHERWISE THE LOG ROUTINE IS CALLED, UNLESS THE BYPASS LOG MESSAGES 
OPTION 13 SELECTED. IF THE CALL WAS TO THE ERROR ROUTINE THE 
DIAGNOSTIC MONITOR OPTION CF LOOP CN ERROR IS CHECKED AND IF SELECTED 
THE TEST ROUTINE CAUSING THE ERROR WILL BE LOOPED. THIS ROUTINE 
NORMALLY EXITS TO CALL*2. 
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BSI 2 VERFY-TB 

DC CVL.NO.OESIRED 

DC ERROR RETURN 

THIS ROUTINE WILL SEEK THE DESIRED CYLINDFR BY CALL- 
ING ROUTINE SEEK. UPON RFTURN FROM THE SEEK ROUTINE, THIS 
ROUTINE WILL REAO SECTCP ID'S. IF At„ SECTOR IDS 

ARE FROM THE SAME CYLINDER AND THE SECTOR ADDRESSES A»E SEQUENTIAL THE 
ROUTINE THEN CHECKS FOR DESIRED CYLINDER. IF THIS IS THE CES1RED 
CYLINDER THE ROUTINE EXITS TC CALL*3. 

IF ALL ID'S ARE NOT FROM THE SAME CYLINDF?, CR SECTOR ADDRESSES 
ARE NOT SEQUENTIAL, THE ROUTINE ENTERS A RETRY PROCEDURE. IF THE 
kOUTINE CANNOT VERIFY THE CYLINDER REACHED CN ALL OF EIGHT TRIES 
THE FUNCTION TEST IS TERMINATED. IUNLESS THE LOCK ON ERROR OPTION 
IS SELECTED.) 

ISC L SEEK 

U REGISTER MUST CONTAIN THE OESIREJ 

CVLINOER NUMBER, RIGHT Jt'STIFIEOl 

THIS SUBROUTINE BUILDS THE CORRECT IOCC WORDS FOR THE OISK 
TYPE 11810 A OR 8» BEING RUN, AND ISSUES THE COMMAND, THRU THE 
XEQ SUBROUTINE. 

IF OSW ERRORS ARE FOUND AFTER THE INTERRUPT, UP TO SEVEN RETRIES 
HILL OCCUR. 

IF THE DISK IS A 1810B AND ALL EIGHT TRIES RESULTED IN SEEK 
INCOMPLETE OSW ERROR, THE FUNCTION TEST WILL BE TERMINATED. 

IF THE ERRORS WERE NOT SEEK INCOMPLETE, eUT DIC PERSIST THROUGH 
ALL 8 TRIES THE ROUTINE EXITS BACK TC VERIFY ROUTINF TO AN ERROR 

RETURN. IF ANY TRY RESULTED IN NC DSW ERRORS THEN THE 

ROUTINE EXIT IS NORMAL. 

BSI 2 READ-TB 

DC WORD COUNT 

OC NUMBER (USED IN CALL TO CMP ROUTINE I 

DC ERROR RETURN 1 

IA REG. CONTAINS SECTOR OESIRED.) 

THIS ROUTINE WILL BUILD THE READ IOCC, PRESET THE I/O AREA TO 
FFFF, SET THE WORD COUNT INTO THE 1/0 AREA ANO ISSUE THE REAO COMMAND 
THRU SUBROUTINE XEQ. 

UPCN RETURN FRCM XEC THE DSW IS CHECKED FOR ANY REAO ERRORS. 

WITH OR WITHOUT DSW ERRORS THIS ROUTINE WILL THEN CALL THE 
CMP SUBROUTINE, TO CHECK OATA READ. 

IF ALL EIGHT TRYS FAIL THEN THE ROUTINE EXIT MCOLO BE INDIRECT- 
LY ON ERROR RETURN 1. 

IF ANY REAO TRY WAS SUCCESSFUL THE RETURN IS TO CALL**. 

BSI CMP 

NOX ERROR RETURN 

THIS ROUTINE WILL MAKE A WCRO "V WORD COMPARISON OF THE DATA 
REAO AGAINST THE DATA EXPECTEO. THE ROUTINE WILL ALSO MAKE A CHECK 
OF THE WORD CCUNTER BY COMPARING TG SEE IF MORE WORDS WFRE TRANS- 
FERRED THAN EXPECTED. 

IF NO ERRORS APE FCUNO THE ROUTINE EXITS DIRECTLY TO 
CALL+2, OTHERWISE THE EXIT IS TO CALLM. 
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BS1 2 WRITE-TB 

DC NUMBER CF WCRCS (IF BIT - 1, 00 NOT PRESET I/O AREAI 

DC OATA TO BE PRESET IN I/O AREA 

DC ERROR RETURN 

(A REG. CONTAINS THE SECTOR NUMBER! 

THIS ROUTINE WILL PRESET THE I/C AREA WITH OATA TO BE 
WRITTEN. THE ROUTINE WILL THEN PLACE THE SECTOR ID AT I/O 
AREA PLUS 1 AND WORD CCUNT AT I/O AREA. THE ROUTINE WILL BUILD 
THE 10CC AND ISSUE THE WRITE COMMAND, THRU THE XEO ROUTINE. 

UPON RETURN FRCM XEO THE DSW IS CHECKED FOR ERRORS. 

IF ANY ERRORS EXIST THE ROUTINE WILL RcTRV v "> TO A MAXIMUM OF 
• T I n£5 • 

•IF ALL 8 WRITE TRIES FAIL THE ROUTINE WILL EXIT INOIRECTLY 
TO ERROR RETURN ADDRESS. 

IF ANY WRITE TRY IS SUCCESSFUL THE ROUTINE WILL EXIT DIRECT- 
LY TO CALL+4. 
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6.1 EDIT PROCEDURE 

THE FOLLOWING EDIT PROCEDURE IS FOR CARD INPUT.. THE EDIT PROCEDURE FOR PAPER TAPE INPUT IS LOCATED IN THE PAPER TAPE EDIT UTILITY FROGRA:. DCCUMENTATION. THE PROPER EDIT CARDS 
MUST BE THE LAST CARDS IN THIS PROGRAM DECK. THE FOLLOWING FORMS ARE PROVIDED TO AID IN MANUALLY PREPARING THESE EDIT CARDS OR UPDATING EXISTING EDIT CARDS. IF IT IS NECESSARY 
TO PREPARE OR MODIFY EDIT CARDS, FILL IN THE NECESSARY DATA. IN THE FORMS PRIOR TO PUNCHING THE CARDS. CARD COLUMNS THAT ARE SHADED SHOULD 5E LEFT BLANK. 

DDEF STANDS FOR DEVICE DEFINITION EDIT FIELD. IT INCLUDtS: 1. THE INTERRUPT LEVEL ASSOCIATED WITH THIS DEVICE. (USE HEX NOTATION, 00-17). 

2. THE ILSW BIT POSITION ASSOCIATED WITH THIS DEVICE (USE HEX NOTATION, 0-F) . 

3. THE CHANNEL ASSIGNED TO THIS DEVICE (0-8). IF THIS IS A DPC DEVICE, PUNCH AN F IN THE CARD COLUMN. 

THE LAST EDIT CARD IS THE " END EDIT CARD*. THE INFORMATION IN THIS CARD INCLUDES: 1. AnV|N COLUMN 1. 2. T HE PID FOR THIS PROGRAM (COL 2-3). 3- A TERMINATOR WORD OF*FFFF*(COL 7-10) 



DRIVE 1 

DDEF 
ENTRY 1 



o 
o 



CO CC 
LU 

O CO. 

0£ X. 

< 3 
o z 



u_ at 

O H- 

Z 

at lu 

$t 
3 O 

Z L.J 



OQ 

I 



3 —^ 
at 

01 -I 
LU 111 
h- => 
Z LU 



DRIVE 2 

DDEF 
ENTRY 2 



3 — 
at 
at -I 

LU LU 



DRIVE 3 

DDEF 
ENTRY 3 



ALTERNATE FILE ADDRESSES 



ENTRY U 



o 
co z 

CO LU 

LU at 
at LU 
O LU 

a Lu 
< ec 



o 
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o 
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ENTRY 5 



(S 

LU 

O OO 

CO 7Z O 

CO LU O 

LU OC O 

at LU 
O U. 
QUI At 

<.at M 



ENTRY 6 



77i 



o o 

CO z — 

SI Hi o 

UJ CC O 
at lu 
o lu 

o lu * 

< at -5 



ENTRY 7 



ENTRY 8 



cj oo 

CO z — 
CO uj o 
iu at o 
ci LU 

o u. 

Q LU 
< OL 
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O CO 

CO Z <*•» 

CO LU vO 

LU VC O 

oe lu 
a ix. 
a lu 
< oe 
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ui 
u 

CO z 
«/> LU 

lu at 
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ENTRY A 



LU 

O 00 

</1 Z -J 

CO LU SO 

lu at o 
at lu 
o Lu 

Ci lu •!; 

< os -!« 



ENTRY 3 



ao 

LU 
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CO Z 

CO LU 

LU CC 

at iu 

Q U. 
O IU 
< OS 




am 
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? 3 
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C£ 
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7q 
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£3 



CARD 



£2 
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J_^ 
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II 



££ 



Sis 



^T 
j^ 
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ei 






3T 






^T 



NT 



E3 



JS3 



END 
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■a — r 
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CARD CONTAINS THE DDEF'S FOR THE 1810 FILES. REFER TO NOTE AT BOTTOM OF PAGE. 
CARD END IS THE "END EDIT CARD". PUNCH EXACTLY AS IS SHOWN. 

** ADDRESSES NORMALLY USED. THESE ADDRESSES NEED NOT BE PUNCHED UNLESS AN ADDRESS IS BEING CHANGED. THEN, ALL ADDRESSES TO THE LEFT OF SAID 
. CHANGE MUST BE PUNCHED. AND THE TOTAL NUMBER OF ALL ENTRIES INDICATED (COL. 15). SEE SEC. 2.2.1.B 

IF SYSTEM HAS Al OR A2 FILE. THE UNUSED DRIVE FIELDS MUST BE PUNCHED 0000 WHENEVER AN ADDRESS REFERENCE FIELD IS PUNCHED. 
(OTHERWISE LEAVE UNUSED DRIVE FIELDS BUNK.) SEE SEC. 2.2.1.B 
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*nnnnnnnnnannnnnnnnnDnaannDonnnnpnnnnnnnnDnnnnnDnnnn80900020 

•~ , 8 0900030 

THIS PROGRAM USES A, WEW -CODING 
CALLED EXTENDED MNEMONIC 
CODING. 



THIS CODING IS SUMMARIZED HERE 
FOR CONVENIENCE. 



80900040 
80900050 
80900060 
80900070 
80900080 
80900090 
80900100 

*nnnnDDnnnnnnnnnnnDBDnnnnanDnnnnDDnnnDnnDDDnnnnnnnnn80900110 

80900120 

* EXTENDED STANDARD MEANING 

* MNEMONIC MNEMONIC OF CODE 

* CODING EQUIVALENT 
* + 



SKIP IF A 
PLUS. 



IS 



— +- 



SKIP IS A IS 
PLUS OR MINUS. 



SKIP IF A 
ZERO. 



IS 



P 



*... __. _ 

* .„_ 

* BNP 

* :. 

* '■ 
*- 

* BC 

*■ 



80900130 

80900140 

80900150 

-80900160 

80900170 

80900180 

-8 0900190 

80900200 

80900210 

-80900220 

80900230 

80900240 

+ 8 09 00 25 

SKIP IF OVERFLOW 80900260 
IS OFF. 80900270 

+ ■ — 80900280 

C SKIP IF CARRY IS 80900290 

OFF 80900300 

.___ + _ g 09 00 3 j 

E-C SKIP IF A IS 80900320 
PLUS OR MINUS OR 80900330 
IF CARRY IS OFF. 80900340 

+ 8 0900350 

EXIT BRANCH TO EXIT 80900360 
WHERE EXIT IS 80900370 
WITHIN NORMAL 80900380 
DISPLACEMENT. 80900390 

+ 80900400 

ALPH BRANCH TO ALPH. 80900410 

+ 80900420 

BETA, 6- BRANCH TO BETA 80900430 
IF A IS ZERO. 80900440 

+ 80900450 

BETA,Z BRANCH TO BETA 80900460 
IF A IS NON-ZERO 80900470 

+ 80900480 

BETA,Z BRANCH 80900490 

INDIRECTLY TO 80900500 
BETA IF A IS 80900510 
NON-ZERO. 80900520 

+■ 80900530 

BSC L RTNA,ZS BRANCH TO RTNA 80900540 
IF A IS MINUS. 80900550 

+ 80900560 

BSC L RTNB,- BRANCH TO RTNB 80900570 

IF A IS 80900580 

-" •"- NOT MINUS. 80900590 

SUBO BSC L SUBOtZ- BRANCH TO SUBO 80900610 

- :-.;,-■.—•. ■->-;. '■-.■-•* IF A IS PLUS. 80900620 - 

— — -+— — ^--+ — __ —80900630 

SOB BSC L SUB r C BRANCH TO SUB 80900640 
..- _ IF A IS NOT 80900650 

PLUS. 80900660 

-+ — -+ . _ 8 9 006 70 

ENTR BSC L ENTR.C . BRANCH TO ENTR 80900680 
, .-\* IF CARRY IS ON. 80900690 
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15FEB68 


02DEC68 
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30JAN70 


20MAR70 
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411875 


411913 
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431319 
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0809-2 
1 



--- - - + + 80900700 

* B0 2 5 B SC L2 5tO BRANCH TO ADRS. 80900710 

SPECIFIED BY 80900720 

* CONTENTS OF IX. 80900730 

* 2 PLUS 5 IF 80900740 
* _ OVERFLOW IS ON. 80900750 

* BOD SAFE BSC L SAFE.E BRANCH TO SAFE 80900770 
* IF A IS ODD. 80900780 

+ + 80900790 

* MOM AVA,5 MDX L AVA,5 INCREMENT ADRS. 80900800 

* AVA BY 5. 80900810 

1~Z7Z + ~IZZ + 80900820 

* XCH RTE 16 EXCHANGE THE 80900830 

* CONTENTS OF A 80900840 

* AND Q. 80900850 

*~ _ '-+ + 8 0900860 

~ ~ .-— 80900870 

* 8 09008 80 

80900890 

*QnnnDnnnnnnnnnnnnnDDDnnnnnnDnnQnDDDannnDnnDQnnnann 80900900 

* 80900910 
^nnnnQQannnnnnnnnnnnDnnonDnnnnDnnnnnnnnnnnnnnnnnnnn 80900970 

* SUBROUTINE CALLS 80900930 

* D »,„^- 80900940 
BN0EC 80900950 

* A REG.=HEX NUMBER (0-9999 BASE 10) 80900960 

* BSI BNDEC CONVERT HEX TO DECIMAL 80900970 

* A REG. CONVERTED DEC. NUMBER 80900980 

* 80900990 

Z orr o ,. 80901000 

* BSI 2 CKLK-TB CHECK BIT 12 SWO 80901010 

* DC RETURN ADRS IF BIT 12 SET 80901020 

* 80901030 

Z oct r.„ n 80901040 

* BSI CMP COMPARE DATA WITH NUMBER 80901050 

* MDX CMP ERR BRANCH 80901060 
Z ,-„ , • 80901070 

* C0UNT 80901080 

* IX1=P0INTER FOR SUMMARY TABLE 80901090 

* BSI 2 COUNT-TB INCR COUNT MODULO 10,000. 80901100 
■ * 80901110 

* PRSUM 80901120 

* BSI 2 PRSUM-TB PRINT SUMMARY TABLE 80901130 

* 80901140 

* R EA 80901160 

* A REG.= SECTOR COUNT 80901160 

* BSI 2 READ-TB READ SECTOR AT PRESENT 80901170 
** * CYL. COMPARE DATA IF 80901180 
** * NOCK ZERO. 80901190 

* DC NO. OF WORDS-BIT EQUAL 1 MEANS USE 80901200 
** RANDOM NUMBERS FOR CMP 80901210 

* -BIT 1 MEANS TO READ AND 01211 
■* RETURN WITHOUT CHECKING 

* THE DSW OR THE DATA 

* DC NUMBER USED IN COMPARE 80901220 

* DC ADRS OF CMP ERROR RETURN 80901230 

* 80901240 

* RND0M 80901290 

A REG.= NO. USED TO BUILD NEXT RANDOM NO. 80901300 

* BSI 2 RNDOM-TB GENERATE NO. 80901310 

* A REG.= NEW RANDOM NO. •- 80901320 - 

* 80901330 

* SECT 80901340 

* A REG.=SECTOR ID IN HEX 80901350 

* BSI SECT CONVERT SID FOR PRINT 80901360 

* OOCC OOHS CC=CYL# IN DECIMAL 01370 
** H = HEAD (0-1! 80901380 



DATE 
EC NO, 



04N0V66 
415233 



010CT67 
411875 



15FEB68 
411913 



02DEC68 
411961 



14N0V69 
431319 



30JAN70 
431319A 



20MAR70 
431320 



PROG ID 
PAGE 



0809-2 
1A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2310. A/B FUNCTION TEST 



S - SECTOR (0-3) 



* SETV 

* A REG.=NO.TO BE SET IN COMA AREA 

* COMA = WORD COUNT 

* BSI 2 SETV-TB 



* 

* STMLS 

* BSI 

** 
** 
* 

* STMSG 

* BSI 
** 

* DC 

* 

* VERFY 

* BSI 
** 

** 

* DC 

* DC 

* 

* WRITE 

* 

* 



2 STMLS-TB 



PRESET COMA+1 TO COMA+N+2 
TO VALUE IN A REG. 



SAVE IX 1, IX 2 AND EXIT 

* MONITOR. RETURN IS TO 

* CALL+1. 



2 STMSG-TB PRINT MESSAGE 
DSW ERRORS. 
MESSAGE ID 



2 VERFY-TB 



SEEK A CYLINDER AND VER- 

* IFY CYL. BY READING AT 

* LEAST TWO SECTOR ID'S. 
CYL # DESIRED 

RETURN ADRS IF CYL # INVALID OR 
BAD FROM 2315 DISK INITIALIZER. 



A REG.=SECTOR COUNT 

BSI 2 WRITE-TB WRITE IN PRESENT CYLINDER 
NO. OF WORDS TO BE WRITTEN 

IF BIT 0=1, DONT PRESET 
THE I/O AREA 

IF BIT 1=1 DON'T CHECK DSW 
FOR ERRORS AFTER THE WRITE 
DATA TO BE WRITTEN 
ADRS OF DSW ERROR RETURN 



DC 



DC 

DC 



XEO 



BSI 2 XEO-TB 

2 ZRLDV-TB 
2 ZRQDV-TB 



EXECUTE I/O AND WAIT 
* FOR INTERRUPT 

RELEASE DEVICE 

REQUEST DEVICE 



07FF 



012C 





012D 





012E 





012F 





0130 





0131 





0132 





0133 





0134 






* 

* 
* 

* 

* 

* ZRLDV 

* BSI 

* ZRQDV 

* BSI 

* 
, * 

snannnnnnrmnDnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnDD 

* MONITOR INTERFACE 

* 

♦nnnDDDnnnnnnanDDnDDnnnnanannnnnnnDDDnnDnnnoDpnnnnn 

one 

* 
* 

BEGIN ECU 
START EOO 
END EOU 
LOG EOU 
ERROR EOU 
REQDV EOU 
RELDV EOU 
CRCK EOU 
MATO EOU 



*+2047 

EQUATE TABLES 

300 

BEGIN+1 

START+1 

END+1 

LOG+1 

ERROR+1 : 

REQDV+1 

RELDV+1 - 

CRCK+l 



PART NO. 
PAGE 



80901390 
80901400 
80901410 
80901420 
80901430 
80901440 
80901450 
80901460 
80901470 
80901480 
80901490 
80901500 
80901510 
80901520 
80901530 
80901540 
80901550 
80901560 
80901610 
80901620 
80901630 
80901640 
80901650 
80901660 
80901670 
80901680 
80901690 
80901700 
80901710 
80901720 
80901730 
80901740 
01741 

80901750 

80901760 

80901770 

80901830 

80901840 

80901850 

80901860 

80901880 

80901890 

80901900 

80901910 

80901920 

80901930 

80901940 

80901950 

80901960 

80901970 

80901980 

80901990 

80902000 

80902010 

80902020 

80902030 

80902040 

80902050 

80902060 

80902070 

80902080- 

80902090 

80902100 

80902110 

80902120 

80902130 

80902-140 



2196378 
2 
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EC NO. 
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010CT67 
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2310 A/B FUNCTION TEST 



0809-2 
2 



ATE 
C NO. 



07FF 


0900 


0800 


0000 


0801 


0000 


0802 


0000 


0803 


0000 


08 04 


0000 


0805 


0000 


08 06 


1 0A38 


0807 


1 0A6D 


0808 


1 0A7B 


0809 


0000 


080A 


0000 


080B 


FFFF 


080C 


1 OFFF 


080D 


D 0000 


080E 


0000 


080F 0000 


0810 0000 


0811 0002 


0812 C 


FFFF 


0813 C 


FFFF 


0814 C 


FFFF 


0815 


0000 


0816 


0008 


0817 


0010 


0818 


0018 


0819 


0638 


081A 


0640 


08 IB 


0648 


081C 


0650 


081D 


0000 


081E 


0000 


081F 


FFFF 


0820 


FFFF 


0821 


FFFF 



0822 2 4480 012C 
0824 1 07FF 



0825 0000 

0826 0000 

0827 0000 

0828 COFC 

0829 1 6700 0833 
082B 4818 
082C 6BDC 
082D 1010 
082E D0F6 

08 2F 0816 

0830 D015 

0831 1 4C80 0827 



08 33 C012 



04NOV66 
415233 



010CT67 
411875 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



* 

PID 

RID 

RAD 

SWO 

SW1 

SW2 

SW3 

I PA 

LPA 

EPA 

* 

MLSCF DC 

DC 

TERM DC 

DC 

DC 

DC 

DC 

0NL1N DC 

COMPT DC 

* 

* 

DDEF DC 
DC 
DC 
CYOOO DC 
CY001 DC 
CY002 DC 
CY003 DC 
CY199 DC 
CY200 DC 
CY201 DC 
CY202 DC 
RNDSK DC 
RNDWR DC 
BADCY DC 
DC 

DC 

* 

* 

BEG BSI 
DC 

*nnnnnnnn 
* 

* 

* 

*nannnnan 
INTSW DC 
OVA DC 
DC 
LD 
LDX 
SKP 
STX 
SLA 
STO 



/0900 













ZIPA 

ZLPA 

ZEPA 





/FFFF 

PEND 









2 



MONITOR INTERFACE TABLES 

1810 A/B OFT 
ROUTINE ID 
ROUTINE ADRS 
SWITCH FUNCTION 00 
SWITCH FUNCTION 01 
SWITCH FUNCTION 10 
SWITCH FUNCT-ION 11 
INITIALIZATION ADRS 
LOOP PROGRAM ADDRESS 
END PROGRAM ADDRESS 

MAIN LINE SEQUENCE 

* CONTROL FIELD 
TERMINATOR 

LAST PROGRAM ADDRESS 
WORDS FOR MONITOR 

* USE 
* 

NON-ZERO MEANS ON-LINE 
COMPATIBILITY SWITCH 



/FFFF 

/FFFF 

/FFFF 

/OOOO 

/0008 

/0010 

/0018 

/0638 

/0640 

/0648 

/0650 





-1 

-1 

-1 



EDIT FIELD 
DDEF 



CYL 
CYL 
CYL 
CYL 



ENTRY ONE 
ENTRY TWO 
ENTRY THREE 



CYL 199 
CYL 200 
CYL 201 
CYL 20? 

PATCH OPTION-RANDOM SEEK 
PATCH OPTION RANDOM WRT 



BEGIN ROUTINE 



I 



BEGIN EXIT TO MONITOR 
PI ADRS OF PID 
□□nonD Q aD n nnnn Qn nnnn Q nnn D nn Q nDn n n QnDnn Dno n 

INTERRUPT ROUTINE 
nDDannnnnnnnDnnnnnnnnnnnDnannnDQnnnnnDnnDQ 



PART NO. 2196378 
PAGE 2 A 



INTR 



;. XIO 

STO 

BSC 

* 

* 

INTRB LD 



15FEB68 
411913 







INTSW 
L3 INTRB 
+- 
3 MLSCF 
16 
INTSW 

ZSNS . 
ZSNS 
I INTR 



INTERRUPT SWITCH 

AREA CODE STORAGE 

INTRPT ENTRY 

GET INTRPT SWITCH 

SET RETURN IN CASE 

SKIP IF EXPECT INTERRUPT 

ELSE SET IN RETURN ADDRESS 

CLEAR INTERRUPT SWITCH 

# 

SENSE OSW 

STORE DSW IN TEMP LOC'N 

EXIT ROUTINE 



PRINT ERROR - MAINLINE 
ZSNS GET INTRPT DSW 



80902150 
80902160 
021-70 
80902180 
80902190 
80902200 
80902210 
80902220 
80902230 
80902240 
80902250 
80902260 
80902270 
80902280 
80902290 
80902300 
80902310 
80902320 
80902330 
80902340 
80902350 
02360 
80902370 
80902380 
80902390 
80902400 
80902410 
80902420 
80902430 
80902440 
80902450 
80902460 
80902470 
80902480 
80902490 
80902500 
80902510 
80902520 
80902530 
80902540 
80902550 
80902560 
80902570 
80902580 
80902590 
80902600 
80902610 
80902620 
80902630 
80902640 
80902650 
80902660 
80902670 
80902680 
80902690 
80902700 
80902710 
80902720 
80902730 
80902740 
80902750 

8 0902760 

8 0902770 
80902780 
80902790 
£0902800 
80902810 
80902820 



02DEC68 
411961 



14N0V69 
431319 



30JAN70 
431319A 



20MAR70 
431320 
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2A 
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PART NO. 2196378 
PAGE 3 



c 


0834 D01B 


STO 


TBDSW 


STORE FOR PRINT 




80902830 




0835 1 6600 087F 


LDX 


L2 TB 


SET POINTER TO TABLE 




80902840 


c 


0837 4230 


BSI 


2 STMSG-TB 


PRINT ERROR MESSAGE 




80902850 


0838 0E02 


DC 


/0E02 


MESSAGE ID 




80902860 


c 


0839 2 4C80 012D 


BSC 

* 


I START 


BRANCH TO MONITOR 




80902870 
• 80902880 






















80902890 


c 




*nnnn anon nnnnnnnnnnnnQnnnnnnnisnQEmnoonnonnnnnnci none 


80902900 




* 








80902910 




# 


TABLE OF COMMON PROGRAM 




80902920 






* 


CONSTANTS 




80902930 


r~ 




* 








80902940 


v_. 




fcnnnnonn anno noon nnonnannnQDnnnnanonoDDnnnnnnnnnnnnn 


80902950 




087F 2 


TB EQU 


PID+128 


POINTER USED TO REACH 




02951 


c 




* 




* TABLE BY SHORT FORM 






083B 0000 


DDEFX DC 


*-* 


DDEF SELECTED BY SW FNC 2 


80902960 




083C 0404 


XSKBK DC 


/0404 


FNC/MOO-SEEK OUT 




80902970 


.?*"■ 


083D 3000 


H3000 DC 


/3000 


FORM NUMBER FOR PRSUM 


. 


80902980 




083E 1313 


H1313 DC 


/1313 


CONSTANT HEX 1313 




80902990 




083F 0123 


MASK DC 


/0123 


ORDER OF SECTOR COUNTS 


80903000 


c 


0840 0103 


K259 DC 


259 


RANDOM GENER. MULTIPLIER 


80903010 


'V,..' 


0841 0500 


WRMOD DC 


/0500 


WRITE FUNCTION 




80903020 




0842 0600 


DSKMD DC 


/06 00 


READ FNC/MOD 




80903030 




0843 0680 


RDCHK DC 


/0680 


READ-CHECK IOCC 




8Q903040 


^ 


0844 0700 


SNRES DC 


/0700 


SENSE/RESET CONSTANT 




80903050 




0845 0080 


H00 80 DC 


/0080 


MASK USED BY STMSG RTN 


03060 


y*~ 


0846 0000 


BSS 


E 






80903070 


V--- 


0846 0000 


ZSNS DC 


*-* 


USED AS TEMP LOC'N 


EVEN 


80903080 




0847 0000 


DC 


*-* 


SENSE-RESET IOCC 


ODD 


80903090 


<~ 


0848 0000 


ZXIO DC 


*-* 


COMMON IOCC STORAGE 


EVEN 


80903100 


v_ 


0849 0009 


DC 


*-* 


* 


ODD 


80903110 




084A 0000 


SNXIO DC 


*-* 


IOCC-STORAGE-SENSE 


EVEN 


80903120 


•""'. 


084B 0000 


DC 


*-* 




ODD 


80903130 


^ 


084C E5E5 


HE5E5 DC 


/E5E5 


CONSTANT HEX E5E5 




80903140 




084D 0000 


MS GO DC 


*-* 


MESSAGE STORAGE 


ODD 


80903150 


/*" 


084E 0000 


DC 


*-* 


HEX/DEC FLAG 


EVEN 


03160 


•*_ 


084F 0000 


MSGID DC 


*-* 


MESSAGE ID 


ODD 


80903170 




0850 0000 


TBDSW DC 


*-* 


DSW 


EVEN 


80903180 


/■" 


0851 0000 


FILE* DC 


*-* 


FILE NUMBER 


ODD 


80903190 


V_ 


0852 0000 


M0D3 DC 


*-* 


MODIFIERS 


EVEN 


80903200 




0853 0000 


M0D4 DC 


*-* 


* 


ODD 


80903210 


x~~ 


0854 0000 


M0D5 DC 


*-* 


* 


EVEN 


80903220 


■> 


0855 0000 


M0D6 DC 


#-* 


* 


ODD 


80903230 




0856 0000 


M0D7 DC 


#-* 


* 


EVEN 


80903240 


^~ 


0857 0000 


BNTMP DC 


*-* 


TEMP STORAGE 


ODD 


80903250 


w 


0858 0000- 


PCYL# DC 


*-* 


PRESENT CYLINDER 


EVEN 


80903260 




0859 0000 


NCYL# DC 


*-* 


NEXT DESIRED CYLINDER 


ODD 


80903270 


< — 


085A 0000 


ERSK1 DC 


*-* 


SEEK RTN ERROR SW 


EVEN 


80903280 


n_ 


0858 0000 


CNTB DC 


*-* 


SEEK RTN-RETRY CTR B 


OOD 


80903290 




085C 0000 


RTRYA DC 


*-* 


RETRY CTRS 


EVEN 


80903300 




085D 0000 


RTRYB DC 


*-* 


* 


ODD 


80903310 


— 


085E 0000 


RDDSW DC 


*-* 


ERROR CTRS 


EVEN 


80903320 




085F 0000 


RDCMP DC 


*-* 


* 


ODD 


80903330 




0860 0001 


Kl DC 


1 


CONSTANT 1 




80903340 


— 


0861 0002 


K2 DC 


2 


CONSTANT 2 




80903350 




0862 0003 


K3 DC 


3 


£ONSTANT 3 




80903360 


**■- 


0863 0004 


K4 DC 


4 


CONSTANT 4 




80903370 


«.•■■ 


0864 0007 


K7 DC 


7 


CONSTANT 7 




80903380 




0865 0008 


K8 DC 


8 


CONSTANT 8 


ODD 


80903390 


<**. 


0866 OOCA 


K202 DC 


202 


CONSTANT 202 




80903400 


^ .■•-". 


0867 OOCB 


K203 DC 


203 


CONSTANT 203 




80903410 




0868 014B ... 


K331 DC 


331 


CONSTANT „- 




80903420 


"■?-■ 


0869 2710 


K10TH DC 


10000 


CONSTANT 10000 DEC 




80903430 


»,;■■ ;-' • 


086A r 


SUMRY EQU 


* - 


SUMMARY TABLE ORIGIN 




80903440 




086A 00000 


PRSH DC 


*-* 


IF NON ZERO-BYPASS PRT 




80903450 


*~ ■.■"-. ' -,_, 


086B 0000 


PSSCT DC 


- *-* 


PASS COUNT 




80903460 


-■ - ' . -;■■" 


086C 0000 


SKCNT DC 


*_* 


NUMBER OF SEEKS 




80903470 




086D 0000 


SFTSK DC 


*-* 


NUMBER SOFT SK ERRORS 




80903480 
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DATE 


04N0V66 


010CT67 


15FEB68 
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14N0V69 
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PROG ID 


0809-2 


EC NO. 


415233 


411875 


411913 


411961 


431319 


431319A 


431320 


PAGE 


3 



086E 0000 


HRDSK DC 


*-* 


086F 0000 


RDCNT DC 


*-* 


0870 0000 


SFTRD DC 


*-* 


0871 0000 


HRDRD DC 


*-* 


0872 0000 


WRCNT DC 


*-* 


0873 0000 


SFTWR DC 


*-* 


0874 0000 


HRDWR DC 


*-* 


0875 0000 


WRLNG DC 


*-* 


OOOC 


SMLNG EOU 


*-SUMRY 


0876 0000 


FRNSK DC 


*-* 


0877 0000 


PRNSK DC 


*-* 


0878 0000 


FRN1 DC 


*-* 


0879 0000 


LRNl DC 


*-* 


087A 0000 


FRN2 DC 


*-# 


087B 0000 


LRN2 DC 


*-# 


087C 0000 


CNTA DC 


*-* 


087D 0000 


RNDCK DC 


*-# 


087E 0000 


NOCK DC 


*-* 


087F 0000 


LNGTH DC 


*-# 


0880 0000 


INDEX DC 


*-* 


0881 0000 


ERCT DC 


*-# 


0882 0000 


DC 


*-* 


0883 0000 


S#B DC 


*-# 


0884 0000 


DC 


*-* 


0885 0000 


IDS#B DC 


*-* 


0886 0000 


LPRNT DC 


*-* 


0887 0000 


ZCNT DC 


*-* 


0888 0000 


RTCNT DC 


*-* 


0889 0000 


WRRTY DC 


*-* 


088A 0000 


WRERR DC 


%-* 


088B 0000 


RTNER DC 


*-* 


088C 0000 


CMPTM DC 


*-* 


0880 0000 


MODEL DC 


*-* 


088E OOAO 


HOOAO DC 


/OOAO 


088F OOBO 


HOOBO DC 


/OOBO 


0890 OOOA 


TEN DC 


10 


0891 0064 


HUNDR DC 


100 


0892 03E8 *" 


THOUS DC 


1000 


0893 1 0814 


ADDEF DC 


DDEF+2 


0894 1 08C4 


ADCMA DC 


COMA 


0895 FFF3 


ADDIF DC 


ZIPB-ZIPD 


0896 1 0A68 


ADZIP DC 


ZIPD 


0897 0000 


CKLK DC 


*-* 


0898 1 4C00 OF 12 


BSC L 


CKLKE 


089A 0000 


CKPRT DC 


*-* 


089B 1 4C00 0F20 


BSC L 


CKPRE 


089D 0000 


CNTLE DC 


#-* 


089E 1 4C00 0AE1 


BSC L 
COUNT DC 


CNTL 


08A0 0000 


*-* 


08A1 1 4C00 0F64 


BSC L 


COUNE 


08A3 0000 


READ DC 


*-* 


08A4 1 4C00 0DD3 


BSC L 

- * 
RNDOM DC 


RDEN 


08A6 0000 


*-* 


08A7 1 4C00 0F09 


BSC L 


RNDME 


08 A9 0000 


SETV DC 


*-* 


08AA 1 4C00 0F2A 


BSC L 
* 
STMLS DC 


SETVE 


08AC 0000 


*-* 


08AD 1 4C00 0CF7 


BSC L 
* 
STMSG DC 


STMLE 


08AF 0000 


*-*' 



NUMBER HARD SK ERRORS 
NUMBER OF READS 
NUMBER SOFT RD ERRORS 
NUMBER HARD RD ERRORS 
NUMBER OF WRITES 
NUMBER SOFT WR ERRORS 
NUMBER HARD WR ERRORS 
AVG SECT LNGTH/WRT 400 
LENGTH OF SUMMARY TABLE 
FIRST RANDOM SK ISSUED 
LAST RANDOM SK ISSUED(FXD) 
FIRST RANDOM il RTN 9 
LAST RANDOM # RTN 9<FXD) 
FIRST RANDOM # RTN 10 
LAST RANDOM # RTN 10(FXD) 
SEEK RTN-RETRY CTR 
TEMP STORAGE 
BYPASS RD CKS IF NON 
RECORD LENGTH STORAGE 
INDEX POINTER 
CMP RTN ERROR CTR 
TEMP STORAGE-CMP RTN EVEN 
* 

* . 

PRESENT SECT/CYL ID ODD 

LAST WORD PRINTED 

DELAY COUNT 

RETRY COUNTER 

RETRY COUNTER 

ERROR SWITCH 

RTN ERROR COUNTER 

TEMP STORAGE 

NON ZERO FOR FAST ACCESS 

MODEL A 

MODEL B -FAST ACCESS 

CONSTANTS USED TO CONVERT 

* HEX TO DECIMAL 

* * 

USED TO CREATE DEVICE DDEF 
ADRS OF COMA 

USED TO CREATE MLSCF ADDR. 
INIT. RE-ENTRY ADRS 
ENTRY TO CK LOCK OPTION 

* RTN 

CHECK PRINT-ALL-ERRORS OPT 
ENTRY POINT 

BRANCH TO CONTROL 

* ROUTINE 

ENTRY TO INCR SUMMARY 

* COUNT RTN 

ENTRY TO DISK READ 

* RTN 

ENTRY TO GENERATE 

* RANDOM NUMBER RTN 

ENTRY TO SET I/O AREA 

* RTN 

ENTRY TO SAVE INDEXING 

* AND EXIT =T0 MONITOR 

ENTRY TO SET UP AND 



80903490 

80903500 

80903510 

80903520 

80903530 

80903540 

80903550 

80903560 

80903570 

80903580 

80903590 

80903600 

80903610 

80903620 

80903630 

80903640 

80903650 

80903660 

80903670 

80903680 

80903690 

80903700 

80903710 

80903720 

80903730 

80903740 

80903750 

80903760 

80903770 

80903780 

80903790 

80903800 

03810 
80903820 

03830 



DATE 


04N0V66 


010CT67 
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14N0V69 
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415233 


411875 


411913 


411961 


431319 


431319A 


431320 



80903840 
80903850 
80903860 
03870 
80903880 
80903890 
80903900 
80903910 
80903920 
80903930 
80903940 
80903950 
80903960 
80903970 
80903980 
80903990 
80904000 
80904010 
80904020 
80904030 
80904040 
80904050 
80904060 
80904070 
80904080 
80904090 
80904100 
8D904110 
80904120 
80904130 
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0809-2 
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c 
c 

c 

c 



r 
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08 BO 


1 


4C00 


OF 60 


* 
TEXIT 

VERFY 

* 
WRITE 


BSC 


L 


STMSE 


08B2 
08B3 




1 


0000 
4C00 


0F33 


DC 
BSC 


L 


*-* 
DFTXT 


08B5 
08B6 




1 


0000 

4C00 


0D03 


DC 

BSC 


L 


*-* 
VRFYE 


08B8 
08B9 




1 


0000 
4C00 


OECO 


DC 
BSC 


L 


*-* 
WRTEN 


08BB 
08BC 




1 


0000 
4C00 


0CB9 


XEQ 

* 
ZRLDV 

* 
ZRQDV 


DC 
BSC 


L 


*-* 
XEOE 


08BE 
08BF 




1 


0000 
4C00 


OCEE 


DC 
BSC 


L 


*-* 
RLDVE 


08C1 
08C2 




1 


0000 
4C00 


OCAC 


DC 
BSC 


L 


*-* 
RODV 



* PRINT A MESSAGE 

ENTRY OF CALL 
TO TERMINATE DFT 

ENTRY TO SEEK A CYL AND 

* VERIFY THE SEEK 

ENTRY TO WRITE DATA 

* ON THE DISK 

ENTRY TO EXECUTE AN 

* XIO INSTRUCTION 

ENTRY TO RELEASE 

* A DEVICE 

ENTRY TO REQUEST 

* A DEVICE 

*nnnnnnnnnnnnnaaDQDaannnaannnnnnnannnnnnDnnac3aaaonn 

* 

*nnnnDnaannnnnnnnnnnDannnannnDnnnQnnnnnDnnnnDQnpnnn 





* 








08C4 0174 
0A38 


COMA BSS 
ENDCM EOU 
* 


E 


372 

* 


THIS SETS BDCYL EVEN IF 
* BSS NUMBER IS EVEN 













0A38 0000 
0A39 4033 



0A3A 630C 
0A3B 1 D700 0869 
0A3D 73FF 
0A3E 70FC 



*ncnnnnnDnnnn 

* 

ftaciaa an QDannn 
ZIPA DC 
BSI 



nnannnnanQnaannnnannnnnnnnannaaannDnnn 

INITIALIZATION ROUTINE 

nDnnnndnnnnnnnnnnanannnnDDnonnnnnDnnnn 
ENTRY POINT 

ZLPA CLEAR SAME THINGS AS LOOP 



* 
* 

ZIPL 



CLEAR SUMMARY TABLE 



0A3F 


C283 


0A40 


1801 


0A41 


1001 


0A42 


D283 


0A43 


C285 


0A44 


D2D1 


0A45 


6302 


0A46 


4820 


0A47 


1340 


0A48 


1001 


0A49 


4820 


0A4A 


6302 


0A4B 


6B21 


0A4C 


C214 


0A4D 


901F 


0A4E 


D2BC 


0A4F 


1 C480 083B 


0A51 


D2BC 


0A52 


D2D2 


0A5 3 


82E1 


0A54 


4820 


DA55 


C216 


0A56 


8217 


0A57 


D28B 



LDX 
STO 

MDX 

B 

LD 

SRA 

SLA 

STO 

LD 

STO 

LDX 

SKP 

SLCA 

SLA 

SKP 

LDX 

STX 

LD 

S 

STO 

LD 

STO 

STO 

A 

SKP 

LD 

A 

STO 



3 

L3 

3 



SMLNG LENGTH OF SUMMARY TABLE 

SUMRY-1 CLEAR SUMMARY TABLE 

-1 DECR POINTER 

ZIPL LOOP 

SWO-TB CLEAR TERMINATE DFT BIT 

1 CLEAR BIT 15 

1 * 

SWO-TB PUT BACK IN SWO 

SW2-TB GET SW FNC 10 

TBDSW-TB IN CASE PRINT 

2 INITIAL VALUE 

Z SKIP IF NO BITS SET 

ELSE SHIFT LEFT AND COUNT 

1 GET RID OF SIGN BIT 
Z SKIP IF ZERO 

2 ELSE USE INITIAL VALUE 
ZLPA TEMP STORAGE 
ADDEF-TB ADRS OF DDEF+2 

ZLPA CREATE DDEF ENTRY 

DDEFX-TB TEMPORARY 

DDEFX PICK UP DDEF ENTRY 

DDEFX-TB STORE FOR REQ/REL ROUTINES 

FILE#-TB IN CASE PRINT 

Kl-TB TEST FOR /FFFF 

Z : -SKIP IF VALID EDIT 

ADDIF-TB POINT TO ZIPD 

ADZIP-TB IF SKIP-POINT TO ZIPB 

MLSCF+1-TB SET MLSCF ENTRY FOR RETURN 
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80904140 

80904150 

80904160 

80904170 

80904180 

80904190 

80904200 

80904210 

80904220 

80904230 

80904240 

80904250 

80904260 

80904270 

80904280 

80904290 

80904300 

80904310 

80904320 

80904330 

80904340 

80904350 

80904360 

80904370 

80904380 

80904390 

80904400 

80904410 

80904420 

80904430 

80904440 

80904450 

80904460 

80904470 

80904480 

80904490 

80904500 

80904510 

80904520 

80904530 

80904540 

80904550 

80904560 

80904570 

80904580 

80904590 

80904600 

80904610 

80904620 

80904630 

80904640 

80904650 

80904660 

80904670 

80904680 

80904690 

80904700 

80904710 

80904720 

80904730 

80904740 

80904750 

80904760 

80904770 



2196378 
4 



DATE 


04N0V66 


010CT67 


15FEB68 


02DEC68 


14N0V69 


30JAN70 


20MAR70 


EC NO. 


415233 


411875 


411913 


411961 


431319 


431319A 


431320 
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, IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2310 A/B FUNCTION TEST 



I < 



0809-2 
4 



0A58 D282 
0A59 1 4C80 0A38 



0A5B 1 6600 087F 
0A5D 4242 
0A5E 423F 



0A5F C2A7 
0A60 EAC5 
0A61 D2CC 
0A62 EAE1 
0A63 D2C8 



0A64 8000 

0A65 188D 

0A66 D2D2 
0A67 7021 

0A68 1 6600 087F 
0A6A 4230 
0A6B 5C00 
0A6C 4233 



0A6D 0000 
0A6E 1 6600 087F 
0A70 C283 
0A71 1 4C04 0A76 
0A73 C220 
0A74 D28B 
0A75 0282 

0A76 1010 
0A77 D281 
0A78 D2EB 
0A79 1 4C80 0A6D 



0A7B 0000 
0A7C 1 6600 087F 
0A7E 1 2C40 08C5 

0A80 6300 
0A81 7301 
0A82 70FE . 

0A8 3 423F 
0A84 1010 
0A85 02A6 
0A86 1 4C80 0A7B 



* 
* 
* 

ZIPB 



STO 
BSC 



LDX 
BSI 
BSI 



LD 

OR 

STO 

OR 

STO 



2 RAD-TB 
I ZIPA 



SET RTN ADDRESS 
EXIT INITIALIZATION 



REQUEST/RELEASE DEVICE TO 
GET AREA CODE IN DVA 



L2 TB 
2 ZRODV-TB 
2 ZRLDV-TB 



SET UP TABLE POINTER 
REQUEST DEVICE 
RELEASE 



CREATE IOCC'S FOR SENSE DSW 



* 

ZIPC 
* 



* 
ZIPD 



SRT 

STO 
MDX 



DVA-TB 

SNRES-TB 

SNXIO+1-TB 

Kl-TB 

ZSNS+1-TB 

AREA CODE = 

DVA 

A REGISTER= 

ZIPC 

SUM TOTAL = 

13 

FILE#-TB 
PRECN 



GET DEVICE AREA CODE 
SENSE DSW IOCC 

* 

SENSE-RESET DSW 

* FOR INTERUPT RTN 



4 
2000 
2701 
188D 
3E8E 
0001 



8 
4000 
4701 
188D 
5E8E 
0002 



9 
4800 
4F01 
188D 
678E 
0003 



SET FILE NUMBER 
GO TO PRE-CONTROL 



RTN 



LDX L2 TB GET TABLE ADRS TO 1X2 

BSI 2 STMSG-TB PRINT MESSAGE 
DC /5C00 FORM NUMBER/MIO 
BSI 2 TEXIT-TB TERMINATE DFT 
snoonunannnnnHnaccnnnnnnnnnanannnDannonnnnannDDannn 



LOOP PROGRAM ENTRY 



* 

*nnna on ana aa ana □□□nan nnDnnunaiJti nan an nnnann nana nan nn 

ZLPA DC ENTRY POINT 

LDX L2 TB INDEX EQUAL ADRS COMMON TB 

LD 2 SWO-TB GET FNC SW 00 

BOD ZLPB BRANCH # BIT 15 SET 

LD 2 CNTLE+2-TB SET ADRS CONTROL ROUTINE 

STO 2 MLSCF+1-TB SET IN MLSCF 

STO 2 RAD-TB SET FOR MESSAGES AND ERROR 



* 
ZLPB 



SLA 16 

STO 2 RID-TB 

STO 2 PRSW-TB 

BSC I ZLPA 



CLEAR A REG 

CLEAR RID 

CLEAR NO-PRINT SWITCH 

EXIT 



* an n na on nan □ naannan □□□□□ aaa a □□□□a an annnanan nan nan an 

* 
* 

♦ nan 
ZEPA 



END PROGRAM ROUTINE 



innnannnnnnnDnaannnnnnnaaannnaanonnnnnnnnnnnnann 
DC ENTRY POINT 

LDX L2 TB IX=TABLE ADRS 

STS L COMA+1,/40 CLEAR STORAGE PROTECT BIT 





LDX 


" 3 







MDX 


3 


+ 1 




MDX 




*-2 


* 


■-. ■-■ 








BSI 


2 


ZRLDV-TB 




SLA 




16 




STO 


2 


INTSW-TB 




B 


I 


ZEPA 


* 








*- 


—- .— «— .- . — 


— — 


— — ._ — ; — 



SET DELAY COUNTER 

ADV DELAY 

LOOP UNTIL ZERO 

RELEASE DEVICE 
CLEAR A REG. 
CLEAR INT SWITCH 
EXIT TO MONITOR 



DATE 


04N0V66 


010CT67 


15FEB68 


02DEC68 


14N0V69 


30JAN70 


20MAR70 


EC NO. 


415233 


411875 


411913 


411961 


431319 


431319A 


431320 
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80904810 
80904820 
80904830 
80904840 
04850 

80904860 
80904870 
80904880 
80904890 
80904900 
80904910 
80904920 
80904930 
80904940 
80904950 
80904960 
80904970 
80904980 
80904990 
80905000 
80905010 
80905020 
80905030 

80905080 
80905090 
80905100 
80905110 
80905120 
80905130 
80905140 
80905150 
80905160 
80905170 
80905180 
80905190 
80905200 
80905210 
80905220 
80905230 
80905240 
8090525.0 
80905260 
80905270 
80905280 
80905290 
80905300 
80905310 
80905320 
80905330 
80905340 
80905350 
80905360 
80905370 
80905380 
80905481 
80905482 
80905383 
80905384 
80905390 
80905400 
80905410 
80905420 
80905430 
80905440 
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- 80905450 






AnannnnnnnnnnnnDnancndnnnnnnnnnnnannnnnnnnnnnDDDnnn 80905460 






* 








80905470 






* 


PRE- 


-CONTROL ROUTINE 


80905480 






* 








80905490 






* 








80905500 






* 


THIS ROUTINE DETERMINES WHICH MODEL (A OR B)' 


05510 






* 


IS BEING TESTED. 


IF FAST ACCESS, THE VARIABLE 05520 






* 


•MODEL* IS SET NON-ZERO. THE PROPER FILE 


80905530 






* 


ID 


IS CREATED ALSO ( Al, A2, A3,B1, B2,B3 ) . 


05540 






* 


THE 


SECTOR COUNT 


IN BITS 14-15 IN THE DSW 


80905550 






* 


ARE 


CHECKED FOR SEQUENTIAL STEPPING. 


80905560 






* 








80905570 






♦nnnnnnnnnnnnnnnannnnnnnnnnDDnnnonnoDnnonnnnannDEmn 8 0905580 


OA88 CEDC 




* 
HCEDC 


DC 


/CEDC 


CE DISK PACK 


80905590 
80905600 


0A89 40F1 




PRECh 


BSI 


ZEPA 


INITIALIZE PROGRAM 


80905610 


0A8A OACB 






XIO 


2 SNXIO-TB 


SENSE DSW 


80905620 


0A8B D2D1 






STO 


2 TBDSW-TB 


SAVE FOR PRINT 


80905630 


0A8C E2E4 






AND 


2 K4-TB 


GET BIT 13 


80905640 


0A80 D20E 






STO 


2 MODEL-TB 


NON-ZERO MEANS FAST ACCESS 


05650 


0A8E 4820 






SKP 


Z 


SKIP IF ZERO 


80905660 


0A8F C210 






LD 


2 HOOBO-TB 


ELSE GET FILE TYPE 


05670 


0A90 4808 






SKP 


+ 


SKIP FOR FAST ACCESS 


05680 


0A91 C20F 






LD 


2 HOOAO-TB 


GET FILE TYPE 


80905690 


0A92 EAD2 






OR 


2 FILE#-TB 


COMBINE WITH UNIT DESIRED 


80905700 


0A93 D2D2 






STO 


2 FILE#-TB 


SET FOR PRINT 


80905710 


0A94 4230 






BSI 


2 STMSG-TB 


PRINT A MESSAGE 


80905720 


0A95 5A00 






DC 


/5A00 


FORM NUMBER/MID 


80905730 


0A96 C291 






LD 


2 ONLIN-TB 


CHECK ON LINE SWITCH 


80905740 


0A97 1 4C20 


G3.B9 




BNZ 


PRECH 


BRANCH IF ON LINE 


80905750 


0A99 6780 


QH2E 




LDX 


13 END 


CHECK OVERLAP SWITCH 


80905760 


0A9B C780 


oe>DF 




LD 


13 15 


* 


80905770 


0A9D 1 4C20 


CAB9 




BNZ 


PRECH 


BRANCH IF IN OVERLAP 


80905780 


0A9F 63FC 






LDX 


3 -4 


FOUR SECTORS 


80905790 


OAAO 6BDA 




* 


STX 


3 ZEPA 


TEMPORARY LOC'N 


80905800 
80905810 


0AA1 6700 


07?DD 


PRECA 


LDX 


L3 2000 


TIMEOUT COUNT 


30905820 


0AA3 OACB 




PRECC 


XIO 


2 SNXIO-TB 


SENSE DSW 


80905830 


0AA4 F0D6 






EOR 


ZEPA 


TEST FOR NEXT SECTOR CNT 


80905840 


0AA5 E2E3 






AND 


2 K3-TB 


SAVE BITS 14-15 


80905850 


0AA6 1 4C18 


Q«AA 




BZ 


PRECB 


BR IF ZERO 


80905860 


0AA8 73FF 






MDX 


3 -1 


ELSE COUNT TIME 


80905870 


0AA9 70F9 




* 


B 


PRECC 


LOOP 


80905880 
80905890 


OAAA OACB 




PRECB 


XIO 


2 SNXIO-TB 


SENSE DSW 


80905900 


OAAB E2E3 






AND 


2 K3-TB 


SAVE SECTOR COUNT BITS 


80905910 


OAAC 100C 






SLA 


12 


MOVE SECTOR COUNT IN Q 


80905920 


OAAD 18DC 






RTE 


28 


* AS A HEX DIGIT 


80905930 


OAAE 1 7401 


QATB 




MDX 


L ZEPA,1 


INCR EXPECTED SECTOR 


80905940 


OABO 70F0 




* 


B 


PRECA 


LOOP 


80905950 
80905960 


0AB1 1090 






SLT 


16 


SET IN A 


809059 70 


0AB2 D2D3 






STO 


2 M0D3-TB 


SAVE IN CASE PRINT 


80905980 


0AB3 F2C0 






EOR 


2 MASK-TB 


CK FOR CORRECT 


80905990 


0AB4 1 4C18 


CXS9 




BZ 


PRECH 


BRANCH IF CORRECT 


80906000 


0AB6 4230 






BSI 


2 STMSG-TB 


PRINT ERROR 


80906010 


0AB7 9E1F 






DC 


/9E1F 


FORM/MSG ID 


80906020 


0AB8 4233 






BSI 


2 TEXIT-TB 


- TERMINATE DFT 


80906030 


0AB9 C2BD 




PRECH 


LD 


2 XSKBK-TB 


GET SEEK-TOWARD-HOME IOCC 


80906040 


OABA 1890 






SRT 


16 


PUT IN Q 


80906050 


OABB C20E 






LD 


2 MODEL-TB 


GET MODEL SWITCH 


80906060- 


OABC F2E4 






EOR 


2 K4-TB 


A=ZERO MEANS FAST ACCESS 


06070 


OABD 4820 






SKP 


Z 


SKIP IF ZERO 


80906080 


GABE C2E7 






LO 


2 K202-TB 


GO TO HOME FOR SLOW ACCESS 


06090 


OABF 0AC9 






STO 


2 ZXIO-TB 


SET FOR XIO 


80906100 


OACO 423C 






BSI 


2 XEO-TB 


XEO ROUTINE 


80906110 


0AC1 C28C 






LD 


2 TERM-TB 


SET WORD 1 TO »FFFF« 


80906120 



DATE 


04N0V66 


0I0iET67 


15FEB68 


02DEC68 


14N0V69 


30JAN70 


20MAR70 


EC NO. 


415233 


4LES75 


411913 


411961 


431319 


431319A 


431320 
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0809-2 
5 



DATE 
EC NO. 



0AC2 D246 
0AC3 10A0 






STO 
SLT 


2 COMA+1-TE 
32 


* 

CLEAR A AND 


80906130 
80906140 


0AC4 DAD9 






STD 


2 PCYL#-TB 


CLEAR PRESENT AND NEW CYL 


80906150 


0AC5 4224 






BSI 


2 READ-TB 


READ SECTOR ZERO 


80906160 


0AC6 0141 






DC 


321 


WORD COUNT 


80906170 


0AC7 1313 






DC 


/1313 


DATA EXPECTED 


80906180 


0AC8 1 0AC9 






DC 


PRECJ 


ERROR RETURN 


80906190 


0AC9 4236 
OACA 00C7 
OACB 1 0F33 




PRECJ BSI 
DC 

DC 


2 VERFY-TB 
199 
DFTXT 


SEEK CYL. 199 

* 

ERROR RETURN 


80906200 
80906210 
80906220 


OACC C2E3 




* 


LD 


2 K3-TB 


GET 3 


80906230 
80906240 


OACD 4224 
OACE 401B 






BSI 


2 READ-TB 


READ CE HISTORY TRACK 


06250 






DC 


27+/4000 


READ 27 WORDS W/0 CKING 


06260 






* 






* DSW OR DATA 


06270 


OACF C247 






LD 


2 C0MA+2-TB 


GET WORD 2 


80906280 


OADO F0B7 






EOR 


HCEDC 


CMP WITH S/B 


80906290 


0AD1 1 4C18 


0AD6 




BZ 


PRECG 


BRANCH IF OK 


80906300 


0AD3 4230 






BSI 


2 STMSG-TB 


ELSE PRINT MESSAGE 


80906310 


0AD4 5C01 






DC 


/5C01 


FORM NUMBER/MID 


80906320 


0AD5 4233 






BSI 


2 TEXIT-TB 


TERMINATE DFT 


80906330 


0AD6 1 6780 


08C7 


PRECG LDX 


13 C0MAE3 


NO BAD SECTORS-NOT CYLS 


80906340 


0AD8 1 6500 


081F 


* 


LDX 


LI BADCY 


ADRS OF BAD CYL TABLE 


80906350 
80906360 


OADA 1 C700 


08C6 


PRECF 


LD 


L3 C0MA62 


GET BAD SECTOR NO. 


80906370 


OADC 1883 






SRT 


3 


RIGHT JUSTIFY 


80906380 


OADD D100 






STO 


I 


STORE IN BAD CYL TABLE 


80906390 


OADE 7101 






MDX 


1 1 


INCR POINTER 


80906400 


OADF 73F8 
OAEO 70F9 




* 
* 


MDX 
B 


3 -8 
PRECF 


DECR SECTOR COUNTER 
LOOP 


80906410 
80906420 
80906430 












80906440 






♦nnnnnnanannnnnnnnnnnnDnnnnonnnnnnnnnnnnnaannnnnont: 


80906450 






* 








80906460 






* 




CONTROL ROUTINE 


80906470 












80906480 






* 


THIS 


ROUTINE SELECTS A TEST ROUTINE AND 


80906490 






* 


BRANCHES CONTROL TO IT. 


80906500 






# 








80906510 






* 


WHEN 


ALL ROUTINES 


ARE COMPLETE THIS ROUTINE 


80906520 






* 


BRANCHES TO MONITOR END ROUTINE. 


80906530 






* 








80906540 






*□□□□ 


□nnnnnnnnannnnnnnnnnnnnannnnnnnnnnnncmnnnnnnna 


80906550 


0032 




LPCNT 


EOU 


50 


ROUTINE LOOP COUNT 


80906560 


0AE1 4099 




CNTL 


BSI 


ZEPA 


INITIALIZE PROGRAM 


80906570 


0AE2 C283 






LD 


2 SWO-TB 


GET SW FNC 


80906580 


0AE3 1 4C04 


0F33 




BOD 


DFTXT 


BRANCH # TERM DFT SW ON 


80906590 


0AE5 C284 






LD 


2 SW1-TB 


GET SW FNC 1 


80906600 


0AE6 1 4C20 


0AF8 


* 


BNZ 


CNTLD 


BRANCH IF NO RTN SELECTED 


80906610 


0AE8 C281 
0AE9 82E1 
OAEA D281 
OAEB 9013 




LD 
A 

STO 
S 


2 RID-TB 
2 Kl-TB 
2 RID-TB 
RTTBL 


GET RTN ID 

ADD 1 

SAVE 

CK FOR VALID 


80906620 
80906630 
80906640 
80906650 
80906660 


OAEC 1 4C10 


0F38 


* 
CNTLB 

* 


BNN" 


PRSUM 


BRANCH IF COMPLETE 


80906670 


OAEE 1 6580 0800 
OAFO 1 C500 OAFF 


LDX 
LD 


11 RID 
LI RTTBL 


IX EQUAL RTN ID 
GET RTN ADRS 


80906680 
80906690 
80906700 


OAF 2 D282 




STO 


2 RAD-TB 


SAVE RTN ADRS 


80906710 
80906720 


OAF 3 6132 






LDX 


1 LPCNT 


SET LOOP COUNT 


80906730 


0AF4 1010 


- ... ...... ... .,- 




SLA 


16 


CLEAR ROUTINE ERROR SW 


80906740 


0AF5 D20C 






STO 


2 RTNER-TB 


* 


80906750 


0AF6 1 4C80 0801 


* 
CNTLD 


B. 


I RAD 


BRANCH TO TEST RTN 


80906760 


OAFS D281 




STO 


2 RID-TB 


SET IN RTN ID : 


80906770 
80906780 


0AF9 9005 






S 


RTTBL 


CK FOR VALID 


80906790 


OAFA 1 4C28 OAEE 


"•• ■ 


BN 


CNTLB 


BRANCH IF OK 


80906800 



04N0V66 
415233 



010CT67 
411875 



15FEB68 
411913 



02DEC68 
411961 



14N0V69 
431319 



30JAN70 
431319A 



20MAR70 
431320 
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r 






v„ 



OAFC 





4230 


OAFD 





5C02 


OAFE 





4233 


OAFF 





OOOF 


OBOO 


1 


OBOE 


0B01 


1 


0B3O 


0B02 


1 


0B5C 


0B03 


1 


0B7F 


0B04 


1 


0B90 


0B05 


1 


0B9A 


0B06 


1 


0BA5 


0B07 


1 


OBCC 


0B08 


1 


0BF2 


0B09 


1 


0BF8 


OBOA 


1 


0C31 


OBOB 


1 


0C4E 


OBOC 


1 


OBAO 


OBOD 


1 


0BA2 


OBOE 








BSI 

DC 

BSI 

* 
* 

RTTBL DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

LRTN EOU 



2 STMSG-TB 

/5C02 
2 TEXIT-TB 



ELSE PRINT MESSAGE 
FORM NUMBER/MID 
TERMINATE DFT 



ROUTINE ADDRESS TABLE 
LRTN-RTTBL LENGTH OF RTN ADRS TABLE 



RTN1 

RTN2 

RTN3 

RTN4 

RTN5 

RTN6 

RTN7 

RTN8 

RTN9 

RTNIO 

RTNli 

RTN12 

RTN13 

RTN14 

* 



ADDRESS OF TEST ROUTINE 



END OF RTN TABLE 



TEST ROUTINE ONE 



*annnnnnnnonnnnannnnnDnnnDnnnnDnnnannodnnnanmnnnnnD 

* 

* THIS ROUTINE WILL CHECK INVALID ADDRESS 

* REJECTION (FAST ACCESS) AND CE DSW BITS. 

sannnnanonnnnnnnnnnnnnannanaDDnDnnnannDnnDanDEmnnnn 





OBOE C20E 


RTN1 LD 


2 MODEL-TB 


GET DISK MODEL 




OBOF 4820 
0B10 C28C 


SKP 
LD 


Z 
2 TERM-TB 


SKIP IF SLOW ACCESS 
GET FFFF 




OBli F2D1 


EOR 


2 TBDSW-TB 


MAKE BIT 13 ZERO 




0B12 100D 


SLA 


13 


CHECK BIT 13 




0B13 1 4C10 0B17 


BNN 


RTNIO 


BRANCH IF CORRECT 




0B15 4230 


BSI 


2 STMSG-TB 


PRINT ERROR 




0B16 5E14 


DC 


/5E14 


MESSAGE ID 




0B17 C20E 


RTNIO LD 


2 MODEL-TB 


GET DISK MODEL 




0B18 1 4C18 0B27 


BZ 

* 


RTN1G 


BRANCH IF SLOW ACCESS 




0B1A C2BD 


LD 


2 XSKBK-TB 


SK TOWARD HOME IN CASE 




0B1B 1890 


* 

SRT 


16 


DEVICE IS SLOW ACCESS 
TO Q REG. 




0B1C D245 


STO 


2 COMA-TB 


DON<T CHECK BUSY AFTER 




0B1D C2E8 


LD 


2 K203-TB 


C0NSTANT=203 




0B1E DAC9 


STD 


2 ZXIO-TB 


SET FOR XIO IN XEQ 




0B1F 423C 


BSI 

* 


2 XEQ-TB 


ISSUE INVALID SEEK 




0B20 1 4C10 0B25 
OB22 100A 


BNN 
SLA 


ERRl 
10 


BRANCH TO ERROR 
CK INVALID BIT 




0B23 1 4C28 0B27 


BN 


RTN1G 


BRANCH IF NO ERROR 






* 


INVALID ADRS BIT NOT ON 




0B25 4230 


ERRl BSI 


2 STMSG-TB 


- PRINT ERROR 




0B26 5E1B 


DC 


/5E1B 


MSG ID 




0B27 C291 


RTN1G LD 


2 ONLIN-TB 


GET ON-LINE SWITCH . 




0B28 1 4C20 0B3A 


BNZ 


RTNIO 


BRANCH IF ON LINE NOW 




0B2A C2E1 


LO 


2 Kl-TB 


IOCC MODIFIER 




0B2B EAA7 


OR 


2 OVA-TB 


*:,--. ■_. - .■-. .:,'...'-..- 




0B2C D2CA r . 


STO 


2 ZXIO+1-TB 


- * .'"•-'" :'-■'-■ ' '-'■..' .".'■-'■ '.■- --- ■ : 




0B2D 0AC9 : 


XIO 

* 


2 ZXIO-TB 


ISSUE CE MODE 


DATE 


04N0V66 010CT67 


15FEB68 


02DEC68 14N0V69 30JAN70 20MAR70 


EC NO. 


415233 411875 


411913 


411961 431319 431319A 431320 



80906810 
80906820 
80906830 
80906840 
80906850 
80906860 
80906870 
80906880 
80906890 
80906900 
80906910 
80906920 
80906930 
80906940 
80906950 
80906960 
80906970 
80906980 
80906990 
80907000 
80907010 
80907020 
80907030 
80907040 
80907050 
80907060 
80907070 
80907080 
80907090 
07100 
80907110 
80907120 
80907130 
80907140 
07150 
80907160 
80907170 
80907180 
80907190 
80907200 
80907210 
80907220 
07230 
80907240 
07250 



80907260 
) 80907270 
80907280 
80907290 
80907300 
80907310 
80907320 
80907330 
80907340 
80907350 
80907360 
80907370 
80907380 
80907390 
80907400 
80907410 
80907420 
80907430 
*0907440 
80907450 
80907460 
80907470 



PROG ID 
PAGE 
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0809-2 
6 



DATE 
EC NO. 



0B2E OACB 




XIO 


2 


SNXIO-TB 


0B2F D2D1 




STO 


2 


TBDSW-TB 


0B30 C2A7 




LD 


2 


DVA-TB 


0B31 D2CA 




STO 


2 


ZXIO+1-TB 


0B32 0AC9 




XIO 


2 


ZXIO-TB 


0B33 C2D1 


* 


LD 


2 


TBDSW-TB 




* 




CE 


NOT RDY/B 


0B34 1803 




SRA 




3 


0B35 E2E3 




AND 


2 


K3-TB 


0B36 1 AC18 0B3A 




BZ 




RTNIO 


0B38 4230 
0B39 5E1C 


* 


BSI 
DC 


2 


STMSG-TB 
/5E1C 


0B3A 71FF 


* 
RTNIO 


MDX 


1 


-1 


0B3B 70D2 




B 




RTN1 


0B3C 421E 




BSI 


2 


CNTLE-TB 



SENSE DSW 

STORE IN CASE PRINT 

SET OUT OF CE MODE IOCC 

* 

ISSUE XIO 
GET SAVED DSW 



CHECK BITS 11-12 

TEST THE BITS FOR ZERO 

BRANCH IF OK 

PRINT ERROR 

MSG ID 



DECR RTN LOOP CNTR 
LOOP RTN 
EXIT RTN 

♦nnnDnnnDnQpnannnnnnnnnnnnnnnnnnnnnnnnnnnnnnnannnna 

* 
* 

* 
* 



0B3D C291 
0B3E 1 4C20 0AE1 
0B40 C28C 
0B41 0246 
0B42 1 2C41 08C5 

0B44 1010 

0B45 4224 

0B46 4001 

0B47 1 2C40 08C5 

0B49 CAC7 

0B4A 1 4C30 0B4F 

0B4C 1086 

0B4D 1 4C28 0B51 

0B4F 4230 
0B50 5E1D 



TEST ROUTINE TWO 

THIS ROUTINE READS ONE WORD INTO A STORAGE 
PROTECTED WORD AND CHECKS THE DSW FOR S. P. V 
BEING ON. THE PROTECTED WORD IS THEN 
CHECKED TO BE SURE NO DATA WAS READ INTO IT. 

♦MnnnnDnnnnnnnDnnnnnnnnnnnnnnnonnnnnnnnnnnnnnnnnnn 



RTN2 LD 
BNZ 

RTN2L LD 
STO 



ONLIN-TB 
CNTL 
TERM-TB 
COMA+1-TB 



GET ON-LINE SWITCH 
EXIT RTN IF PRG ON-LINE 
SET WORD TO FOXES 



STS L COMA+1,/41 SET STO PROTECT BIT 



0B51 
0B52 
0B53 
0B54 
0B56 
0B57 
0B58 



C246 

D2D3 

F28C 

4C18 0B59 

4230 

9E1E 

421E 



SLA 
BSI 
DC 
STS 

LDD 
BP 
SLT 
BN 
* 

RTN2D BSI 
DC 

* 

RTN2A LD 
STO 
EOR 
BZ 
BSI 
DC 
BSI 



16 SECTOR ZERO 

2 READ-TB CALL READ RTN 

1+/4000 ONE WORD-NO DSW CHECK 
L COMA&1,MO CLEAR STORAGE PROTECT 



ZSNS-TB GET INTRPT DSW 

RTN2D BR IF 'ANY ERROR' IND NOT 

6 TEST SPV 

RTN2A BR IF NO SPV IND. IN DSW 

STMSG-TB NO SPV IND. IN DSW 

/5E10 MESSAGE ID 

COMA+1-TB TEST COMA+1 FOR FOXES 

M0D3-TB IN CASE PRINT 

TERM-TB * 

RTN2B BR IF OK 

STMSG-TB CPU ERROR 

/9E1E MESSAGE ID 

CNTLE-TB TERMINATE ROUTINE 



0B59 71FF 
0B5A 70E5 
0B5B 421E 



DECR RTN LOOP CNT 

LOOP 

END OF ROUTINE 



RTN2B MDX 1 -1 

B RTN2L 
BSI 2 CNTLE-TB 

♦DDDanDDDDDnnDnaDnnDDnnDDDnnnDnDnnnDnDnDDDDnBDannnD 

* ■ 

TEST ROUTINE THREE 



THIS ROUTINE WILL SEEK 2 IN AND 1 OUT FROM 
CYLINDER ZERO TO CYLINDER 202 EXCEPT 
CYLINDERS 90-110. THE ROUTINE WILL THEN 



04N0V66 
415233 



010CT67 
411875 



15FEB68 
411913 



02DEC68 
411961 



14N0V69 
431319 



30JAN70 
431319A 



20MAR70 
431320 



80907480 
80907490 
80907500 
80907510 
80907520 
80907530 
80907540 
80907550 
80907560 
80907570 
80907580 
80907590 
80907600 
80907610 
80907620 
80907630 
80907640 
80907650 
80907660 
809076 70 
80907680 
80907690 
80907700 
80907710 
80907720 
80907730 
80907740 
80907750 
80907760 
80907770 
80907780 
80907790 
80907800 
80907810 
80907820 
80907830 
809078*0 
07850 
07860 
80907870 
80907880 
80907890 
80907900 
80907910 
80907920 
80907930 
80907940 
80907950 
80907960 
80907970 
- 80907980 
80907990 
80908000 
80908010 
80908020 
80908030 
80908040 
80908050 
80908060 
80908070 
80908080 
80908090 
80908100 
80908110 
80908120 
80908130 
80908140 
80908150 



PROG ID 
PAGE 



0809-2 
6A 



c 
c 
c 

( 
c 



r 



( i < i 

IB* .•iAINT\..ANCE , u 1 AGNO§iI( 
2310 A/B FUNCTION TEST 



A { < '< < 

PROGRAM FOR THE 1800 SYSTEM 



( I ( ( ( ( ( 



DATE 
EC NO. 



0B5C 





63FF 


0B5D 





6B1F 


0B5E 





6302 


0B5F 





6B1E 


0B60 





C2E1 


0861 





4007 


0B62 





63FE 


0B63 





6B19 


0B64 





6301 


0B65 





6B18 


0B66 





C2E8 


0B67 





4001 


0B68 





421E 



0B69 0000 
0B6A DOOC 
086B 6500 OOCA 



0B6D 
0B6E 
0B6F 
0B70 
0B71 
0872 
0B73 
0B74 
0875 
0B76 
0B77 
0B78 
0B79 
0B7A 
0B7B 



C009 

800E 

0001 

4236 

0000 

0B73 

COFO 

8009 

000 1 

4236 

0000 

0B79 

71FF 

70F2 

4C80 0B69 



0B7D 0000 
0B7E 0000 



0B7F 
0B80 







7132 
C29E 


0B81 
0B82 






4818 
C2F8 


0B8 3 
0884 






D2F7 
7002 


0885 
0B86 







C2F8 
4227 
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* 
* 

*nnnnn 
RTN3 



SEEK 2 OUT AND 1 IN FROM CYLINDER 202 TO 
CYLINDER ZERO. EACH SEEK IS VERFIED FOR 
PROPER CYLINDER REACHED. 



nnnnnnnnDnnnonnnnanaonnnnnnnnDnnncmnnapnnannD 

LDX 3 -1 DECR SEEKS BY ONE 

3 INCR1 * 

3 2 INCR SEEKS BY TWO 

3 INCR2 * 

2 Kl-TB FIRST CYL. WILL BE HOME 

RTN3P EXECUTE SUCCESSIVE SEEKS 



STX 

LDX 

STX 

LD 

BSI 



RTN3P 



* 
RTN30 



RTN3R 
RTN3S 

RTN3T 
RTN3U 



* 

INCR1 

INCR2 



LDX 
STX 
LDX 
STX 

LD 

BSI 

BSI 

DC 

STO 

LDX 

LD 

A 

STO 

BSI 

DC 

DC 

LD 

A 

STO 

BSI 

DC 

DC 

MDX 

B 

B 

DC 

DC 



-2 

INCR1 

1 

INCR2 

K203-TB 

RTN3P 

CNTLE-TB 



*-* 
RTN3T 
LI 202 

RTN3T 
INCR1 
RTN3R 

2 VERFY-TB 

*-* 

RTN3S 
RTN3R 
INCR2 
RTN3T 
2 VERFY-TB 
*-* 

RTN3U 
1 -1 
RTN3Q 
I RTN3P 






DECR SEEKS BY TWO 

* 

INCR SEEKS BY ONE 

# 

INI. CYL. + 1 

EXECUTE SUCCESSIVE SEEKS 

EXIT ROUTINE 

ENTRY POINT 
STOR FOR CALL 
NO. IF SEEKS 

GET CYL. NO. 

INCR OR DECR 

STORE FOR SEEK 

SEEK CYL. AND VERIFY 

CYLINDER NO. 

ADRS ERROR RETURN 

GET LAST CYL. NO. 

INCR OR DECR 

STORE FOR SEEK 

CALL VERFY ROUTINE 

CYLINDER DESIRED 

INVALID ADRS RETURN 

DECR COUNTER 

NOT FINISHED 

RETURN 



* _ _ 

♦nannnnnDnnnnnnnnnnnnnonnnnDnanonnnnnnnaDnnnnnnnnnn 

* TEST ROUTINE FOUR 
* 

* THIS ROUTINE WILL ISSUE AND VERFY 100 RANDOM 

* SEEKS. CYLINDERS 90-110 WILL NEVER BE 

* ATTEMPTED. 

fcnnnnnDnnnnnnnnnnnnnDanQnnDDDnnnnnnnnnnnnnnnnnnnnnn 

RTN4 MDX 1 100-LPCNT 100 LOOPS 

ID 2 RNDSK-TB GET RNDM SEEK SWITCH 

USE AS FIRST IF NOT ZERO 
ELSE USE LAST GENERATED 
FIRST RANDOM NUMBER 
* 



0887 D2F8 

0888 o ieoe 

0889 0001 

088 A 4236 



04N0V66 
415233 



010CT67 
411875 



SKP 
LD 
STO 
B 

* 

RTN4A LD 
BSI 

- * ' 

RTN4B STO 
SRA 
STO 

* ■-'■. 

BSI 



15FEB68 
411913 



.2 PRNSK-TB 
2 FRNSK-TB 
RTN4B 



2 PRNSK-TB 
2 RNDOM-TB 

2 PRNSK-TB 
8 
RTN4C 



GET LAST RNDM NUMBER 
GENERATE NEXT 

5AVE 

'*'■' FROM 0-202 - 
STORE FOR SEEK 



2 VERFY-TB SEEK AND VERIFY CYL. 



02DEC68 
411961 



14N0V69 
431319 



30JAN70 
431319A 



20MAR70 
431320 



80908160 

80908170 

80908180 

80908190 

80908200 

80908210 

80908220 

80908230 

80908240 

80908250 

80908260 

80908270 

80908280 

80908290 

80908300 

80908310 

80908320 

80908330 

80908340 

80908350 

80908360 

80908370 

80908380 

80908390 

80908400 

80908410 

80908420 

80908430 

80908440 

80908450 

80908460 

80908470 

80908480 

80908490 

80908500 

80908510 

80908520 

80908530 

80908540 

80908550 

80908560 

80908570 

80908580 

80908590 

80908600 

80908610 

80908626 

80908630 

80908640 

80908650 

80908660 

809086 70 

80908680 

80908690 

80908700 

80908710 

80908720 

80908730 

80908740 

80908750 

80908760 

80908770 

80908780 

80908790 

80908800 

80908810 

80908820 

80908830 
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0809-2 
7 



i 

c 

c 

( 

( 

c 

c 

c 

c 

c 

( 

c 

c 

e 

c 

c 

c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

r 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2310 A/B FUNCTION TEST 



DATE 

EC NO. 



0B8B 0000 


RTN4C DC 


*-* 


0B8C 1 0B85 


DC 


RTN4A 


0880 71FF 


MDX 


1 -1 


0B8E 70F6 


B 


RTN4A 


0B8F 421E 


BSI 


2 CNTLE-TB 



CYL. DESIRED 

IF INVALID, DON'T COUNT 

ELSE COUNT 

LOOP 

END OF RTN 



0B90 6301 


RTN5 


LDX 


3 1 


0B91 6100 




LDX 


1 


0B92 C2BF 


CMN2 


LD 


2 H1313-TB 


0B93 6200 




LDX 


2 


0B94 69F6 


CMN1 


STX 


1 RTN4C 


0B95 6A7E 




STX 


2 SECTD 


0B96 6600 0141 




LDX 


L2 321 


0B98 6132 




LDX 


1 LPCNT 


0B99 700F 




B 


CMRT2 



0B9A 6700 00C9 
0B9C 6100 
0B9D C2C0 
0B9E 6206 
0B9F 70F4 



LDX 


L3 201 


LDX 


1 


LD 


2 HE5E5-TB 


LDX 


2 6 


MDX 


CMN1 



OBAO 6302 
0BA1 70F0 



0BA2 6700 OOCA 
0BA4 70F8 



( I ( 
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0BA5 6301 
0BA6 6200 
0BA7 6AE3 
0BA8 6 6A6B 



♦nnnDDBnnnDnDnDDnnnnaDDOdnnDnanDDnDnnDnDonnaan 
* 

* TEST ROUTINE 5-READ AND 

* CK 320 WORDS OF HEX 1313 

* FROM CYL 1-SECT 
* 

#nonDnnnnoaannnnannnnnncjnaonnnnnannonnnDnnnaaa 

IX EQUAL CYL 
IX EQUAL WRITE SW 
GET DATA EXPECTED 
IX EQUAL SECTOR 
SET RTN VALUES 

IX- EQUAL WD CT 

IX EQUAL LOOP CTR 

BRANCH TO COMMON RTN 

sannnnnnnnDnnnnnnanannnnnannnnnnnnntmannnannon 
* 

* TEST ROUTINE 6-READ AND 

* CHECK 320 WORDS OF HEX E5E5 

* FROM CYL 201-SECT 6 

*nnHnnnnnnnonnnannnnnnnnnnnnnnnonnnnnDnnDnnnnn 

RTN6 LDX L3 201 IX EQUAL CYL 

IX EQUAL WRT SW 

CMN3 i 2 HE5E5-TB GET DATA EXPECTED 

IX EQUAL SECTOR 
BRANCH TO COMPLETE SETUP 

* nnnn nn nnnnnn anna d onn nnnnnnnnnn nan nnnnnnnannnn 

* 

* TEST ROUTINE THIRTEEN- 

* WRITE AND READ 320 WORDS 

* OF HEX 1313 ON CYL 2-SECT 

* O-CHECK DATA READ 

* 

*nnnnnnnnnnnnnnnonoDnnnnnnnnnnnnnnnnannnnnnnnn 
RTN13 LDX 3 2 IX EQUAL CYL 

B CMN2 BRANCH TO COMPLETE SETUP 
AnnnnnnannannnannannnnnnDnnnnnnnnannnnnnnmnann 

* 

* TEST ROUTINE FOURTEEN- 

* WRITE AND READ 320 WORDS 

* OF HEX E5E5 ON CYL 202- 

* SECTOR 6-CHECK DATA READ 

♦□nana nan nn nan anon anna a anna nDnnnDnnnnannnQanan 
RTN14 LDX L3 202 IX EQUAL CYL 

B CMN3 BRANCH TO COMPLETE SETUP 

* 

*nnnnnonnnna anna nana ana nana DDn an nnnnnnnnnaannn 
* 

* TEST ROUTINE SEVEN-READ 

* ZERO WORDS 

* 

*nnnn nana ana nnnnnnnnonnnnDnnnnnnpnannnonannnnn 
RTN7 LDX .3 1 ........ SET CYL TO USE 

LDX 2 SET WORD COUNT 

STX 2 RTN4C - CLEAR WRITE SW 

STX 2 SECTD SET SECTOR 

* - ■ . - -- 



04N0V66 
415233 



010CT67 
411875 



15FEB68 
411913 



02DEC68 
411961 



14N0V69 
431319 



30JAN70 
431319A 



20MAR70 
431320 



80908840 
80908850 
80908860 
80908870 
80908880 
80908890 
- 80908900 
• 80908910 
80908920 
80908930 
80908940 
80908950 
80908960 
80908970 
80908980 
80908990 
80909000 
80909010 
80909020 
80909030 
80909040 
80909050 
80909060 
80909070 
80909080 
80909090 
80909100 
80909110 
80909120 
80909130 
80909140 
80909150 
80909160 
80909170 
80909180 
80909190 
80909200 
60909210 
80909220 
80909230 
80909240 
80909250 
80909260 
80909270 
80909280 
80909290 
80909300 
80909310 
80909320 
80909330 
80909 340 
80909350 
80909360 
80909370 
80909380 
80909390 
80909400 
80909410 
80909420 
80909430 
80909440 
80909450 
80909460 
60909470 
80909480 
80909490 
80909500 
80909510 
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PAGE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2310 A/B FUNCTION TEST 



2196378 

8 



c 



c 



c 

c 
c 

c 



r 



r 



K_ 



f 



0BA9 

OBAA 

OBAB 

OBAC 

OBAD 

OBAE 1 

OBBO 

0BB1 

0BB2 

0BB3 

0BB4 

0BB5 

0BB6 

0BB8 

0BB9 

OBBA 

OBBB 

OBBC 

OBBD 

OBBE 

OBBF 

OBCO 

0BC1 

0BC2 



6B07 

6A0F 

6A13 

DOOE 

D012 

6600 087F 

4236 

0000 

0AE1 

C28C 

D2A6 

C0D5 

4C18 OBBD 

C05B 

4239 

0000 

0000 

OBBD 

C056 

4224 

0000 

0000 

0BC8 

C20C 



* 
* 
* 
CMRT2 



CYL 



CMRTL 



WDCTA 
DATA1 

CMRTB 

CMRTC 
DATA2 



0BC3 4218 
0BC4 1 0BB3 
0BC5 71FF 
0BC6 70EC 
QBC7 421E 

0BC8 D20C 
0BC9 4218 
OBCA 1 0BB3 
OBCB 421E 



CMRTF 



STX 

STX 

STX 

STO 

STO 

LDX 

BSI 

DC 

DC 

ID 

STO 

ID 

BZ 

LD 

BSI 

DC 

DC 

DC 

LD 

BSI 

DC 

DC 

DC 

LD 

BSI 

DC 

MDX 

MDX 

BSI 

STO 
BSI 
DC 
BSI 



L2 
2 



THIS 
TEST 



CYL 

WDCTA 

CMRTC 

DATA1 

DATA2 

TB 

VERFY-TB 

*-* 

CNTL 

TERM-TB 

COMA+1-TB 

RTN4C 

CMRTB 

SECTD 

WRITE-T8 

*-* 

#-* 

CMRTB 

SECTD 

READ-TB 

*-* 

*-* 

CMRTF 

RTNER-TB 

CKLK-TB 

CMRTL 

-1 

CMRTL 

CNTLE-T8 

RTNER-TB 
CKLK-TB 
CMRTL 
CNTLE-TB 



ROUTINE IS COMMON TO 
ROUTINES 5, 6, 7, 13 AND 



SET CYLINDER TO USE 
SET WORD COUNT 
SET IN READ CALL 
SET DATA EXPECTED 
SET DATA EXPECTED 
INDEX EQUAL TBL ADRS 
SEEK DESIRED CYL AND 
* VERIFY THE SEEK 
EXIT ON ERROR 
SET DATA EXPECTED 
SET FOR COMPARE RTN 
IS ROUTINE TO WRITE 
BRANCH TO READ ONLY 
GET SECTOR DESIRED 
GO WRITE DATA 
WORD COUNT 
DATA EXPECTED 
EXIT ON ERROR 
GET SECTOR TO READ 
GO READ DATA 
WORD COUNT 
DATA EXPECTED 
CMP ERROR-CONTINUE 
GET ERROR COUNT 

CK LOCK-ON ERROR 
LOOP IF SET 
DECR LOOP RTN CNT 
LOOP ROUTINE 
EXIT ROUTINE 

SET ERROR SWITCH 
CHECK LOCK-ON-ERROR 
IF ON 
TERMINATE ROUTINE 



OBCC 





4236 


OBCD 





0001 


OBCE 


1 


0AE1 


OBCF 





10AO 


OBDO 





DADB 


0BO1 





C2DA 


0BD2 





1003 


0BD3 





D246 


0BD4 





C2C4 


0BD5 





4224 


0BD6 





0141 


0BD7 





FFFF 


0BD8 


1 


OBEF .... . 


0BD9 





C2C7 


OBDA 


1 


4C10 0B€3 


OBDC 


1 


7401 085A 


OBDE 





421B 



♦PDnnnnnnnnnnDnnnnnnnDnannnnnnnnnnnnnnDnnnnnnD 

* 

* TEST ROUTINE EIGHT- 

* READ CYL 1-SECT USING 

* READ CK-CK FOR ANY DSW 

* ERRORS AND CK THAT NO 

* DATA IS TRANSFERRED TO 

* MEMORY. 
* 

*nann nana dm onnnnnnnn nana anno nnnnp an nnnnaaanran 

RTN8 BSI 2 VERFY-TB SEEK CYL 1 - VERIFY 

DC 1 * THE SEEK 

DC CNTL EXIT IF ERROR 

SLT 32 CLEAR AQ 

STD 2 ERSK1-TB CLEAR ERROR COUNTERS 

* 

RTN8L LD 2 NCYL#-TB GET CYL. SOUGHT 

SLA 3 CREATE PROPER SECTOR ID 

STO 2 COMA+1-TB SET IN I/O AREA 

LD 2 RDCHK-TB SET READ CK MODIFIER 

BSI 2 READ-TB READ ROUTINE 

DC 321 321 WORDS 

DC /FFFF DATA EXPECTED 

OC RTN8J - CMP ERROR RETURN 

LD 2 ZSNS-TB GET INTRPT DSW 

BNN RTN8A BRANCH ON ERROR 

MDX L ERSKltl INCR ERROR CNT 

RTN8M~BSI 2 CKPRT-TB CK PRINT-ALL OPTION 



80909520 
80909530 
14 80909540 
80909550 
80909560 
80909570 
80909580 
80909590 
80909600 
80909610 
80909620 
80909630 
80909640 
80909650 
80909660 
80909670 
80909680 
80909690 
80909700 
80909710 
80909720 
80909730 
80909740 
80909750 
80909760 
80909770 
80909780 
80909790 
80909800 
80909810 
80909820 
80909830 
80909840 
80909850 
80909860 
80909870 
80909880 
80909890 
80909900 
80909910 
80909920 
80909930 
80909940 
80909950 
80909960 
80909970 
80909980 
80909990 
80910000 
80910010 
80910020 
80910030 
80910040 
80910050 
80910060 
80910070 
80910080 
80910090 
80910100 
80910110 
80910120 
80910130 
80910140 
80910150 
80910160 
80910170 
80910180 
80910190 



I < < < < ( ( 



( I 



PART NO. 2196378 
PAGE 8A 



DATE 


04N0V66 


010CT67 


15FEB68 


02DEC68 


14N0V69 


30JAN70 


20MAR70 


PROG ID 


0809-2 


EC NO. 


415233 


411875 


411913 


411961 


431319 


43.1319A 


431320 


PAGE 


8 



OBDF 





7001 




B 




RTN8N 


OBEO 





7002 




B 




RTN8A 


0BE1 





C2E1 


RTN8N 


LD 


2 


Kl-TB 


0BE2 





D2EB 


* 
RTN8A 


STO 


2 


PRSW-TB 


0BE3 





71FF 


MDX 


1 


-1 


0BE4 





70EC 




MDX 




RTN8L 


0BE5 





1010 




SLA 




16 


0BE6 





D2EB 




STO 


2 


PRSW-TB 


0BE7 





CADB 




LDD 


2 


ERSK1-TB 


0BE8 





DAD3 




STD 


2 


M0D3-TB 


0BE9 





82DC 




A 


2 


CNTB-TB 


OBEA 


1 


4C18 0AE1 




BZ 




CNTL 


OBEC 





4230 




BSI 


2 


STMSG-TB 


OBED 





3E1A 




DC 




/3E1A 


OBEE 





421E 


* 

* 


BSI 


2 


CNTLE-TB 



OBEF 1 7401 085B 
0BF1 70EC 



0BF2 4236 
0BF3 0002 
0BF4 1 0AE1 
0BF5 6300 
0BF6 C2FA 
0BF7 7005 



BSI 


2 


VERFY-TB 


DC 




2 


DC 




CNTL 


LDX 


3 





LD 


2 


LRN1-TB 


MDX 




RT910 



OPTION NOT SET 

OPTION SET 

SET PRINT SW NON-ZERO 



DECR RTN LOOP COUNT 

LOOP 

CLEAR A REG. 

CLEAR PRINT SWITCH 

GET ERROR CNTS 

STORE IN CASE PRINT 

ADD ERROR CNTB 

EXIT ROUTINE IF ZERO 

PRINT MESSAGE 

MID/FORM NUMBER 

EXIT ROUTINE 



RTN8J MDX L CNTB.l INCR ERROR COUNT 

MDX RTN8M LOOP 

snaDnnnnnnnnnnnDnnnaannnnanDnaannnonnnnnnnQDnn 

* 

* ROUTINE NINE-WRITE 320 

* RANDOM WORDS-READ AND CK- 

* ON CYL 2-SECT 0. 

♦nnDnnnnnoDnnonnnnnnnnnnnnnnnnnnnnriQannnnnnnnn 
RTN9 BSI 2 VERFY-TB SEEK CYL 2-VERIFY 

* THE SEEK 
TERMINATE ON ERROR 
IX EQUAL SECTOR 
GET BEGIN PATCH OPTION 
BRANCH TO COMMON 

*nannnnnnnnnnnnnnnnnnnanDnanannnnnnnnnnnnnnnDn 
* 

* ROUTINE TEN-WRITE 320 

* RANDOM WORDS-READ AND CK- 

* CYL 202-SECT 6. 

* 

*nannnnnnnonnnnannnnnnnnnnnnnnnoDnnncinnnnnnann 

SEEK CYL 202-VERIFY 

* THE SEEK 
TERMINATE ON ERROR 
GET BEGIN PATCH OPTION 
IX EQUAL SECTOR 6 

-*nnnnaDnnnnDnDnnnnnnonnnnanannnnannnnnnnnnnnnn 

* THIS PORTION COMMON TO 

* ROUTINES NINE AND TEN. 

* 

^nnnnncacnnannnnDnannnnnannnonnnonnnnnnnnnannci 

SAVE SECTOR NUMBER 
SKIP IF ZERO 
SAVE BEGIN PATCH OPTION 
GET START OPTION 
SKIP IF NON ZERO 
CONTINUE PATTERN 
SET RTN FIRST NUMBER 
GET START OPTION 
SKIP IF ZERO 
SET AS LAST NUMBER 

NUMBER OF WORDS 
GET LAST NUMBER 
SET IN READ CALL 

SET PATTERN 
GENERATE NEW NUMBER 



0BF8 4236 


RTN10 BSI 


2 VERFY-TB 


0BF9 OOCA 


DC 


202 


OBFA 1- 0AE1 


DC 


CNTL 


OBFB C2FC 


LD 


2 LRN2-TB 


OBFC 6306 


LDX 


3 6 



OBFD 





6B16 




RT910 


STX 


3 SECTD 


OBFE 





4820 






SKP 


Z 


OBFF 





D02F 






STO 


LSTNO 


OCOO 





C29F 






LD 


2 RNDWR-TB 


OC01 





4818, 






SKP 


£,- 


OC02 





C02C' 






LD 


LSTNO 


0C03 





D02C 






STO 


FSTNO 


0C04 





C29F 




RTN9L 


LD 


2 RNDWR-TB 


OC05 





4820 






SKP 


Z 


0C06 





D028 


■ > 


£ 


STO 


LSTNO 


0C07 





6700 


FECO 




LDX 


L3 -320 


0C09 





C025 






LD 


LSTNO 


OCOA 





DOOE 




-.* '■■■ 

RTN9A 


STO 


RTN9C 


OCOB 


1 


D700 


0A06 


STO 


L3 COMAS322 


OCOD 





4227 






BSI 


2 RNDOM-TB 



80910200 

80910210 

80910220 

80910230 

80910240 

80910250 

80910260 

80910270 

80910280 

80910290 

80910300 

80910310 

80910320 

80910330 

80910340 

80910350 

80910360 

80910370 

80910380 

80910390 

80910400 

80910410 

80910420 

80910430 

80910440 

80910450 

80910460 

80910470 

80910480 

80910490 

80910500 

80910510 

80910520 

80910530 

80910540 

80910550 

80910560 

80910570 

80910580 

80910590 

80910600 

80910610 

80910620 

80910630 

80910640 

80910650 

80910660 

80910670 

80910680 

80910690 

80910700 

80910710 

80910720 

80910730 

80910740 

80910750 

80910760 

80910770 

80910780 

80910790 

80910800 

80910810 

80910820 

80910830. 

80910840 

80910850 :" 

80910860 

80910870 



DATE 


04N0V66 


010CT67 


15FEB68 


020EC68 


14N0V69 


30JAN70 


20MAR70 


PROG ID 


0809-2 


EC NO. 

1 


415233 


411875 


411913 


411961 


431319 


431319A 


431320 


PAGE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2310 A/B FUNCTION TEST 



DATE 
EC NO. 



OCOE 7301 
OCOF 70FB 
0C10 D01E 

0C11 C002 
0C12 4239 
0C13 4141 

0C14 0000 
0C15 1 0C16 

0C16 COFD 
0C17 4224 
0C18 8141 
0C19 0000 
0C1A 1 0C2B 



0C1B 
0C1C 
0C10 
0C1E 
0C1F 
0C20 
0C21 
0C23 
0C24 
0C25 
0C27 
0C28 
0C2A 



0C2B 
0C2C 
0C2D 
0C2E 
0C2F 
0C30 



C20C 

4218 

1 0C04 
71FF 

70E4 
COOF 

6780 0800 
73F7 
7301 

0700 0878 
C007 

D700 0879 
421E 



D20C 

4218 

1 0C04 
421E 
0000 
0000 



0C31 4236 

0C32 0002 

0C33~1 0AE1 

0C34 700A 

0C35 1010 
0C36. 4239 
0C37 4001 
0C38 0- 0000 
0C39 1 0C3A 



MDX 
MDX 
STO 

LD 
BSI 

DC 

* 

SECTO DC 

DC 

* 

RTN9B LD 
BSI 
DC 

RTN9C DC 
DC 

LD 

BSI 

DC 

MDX 

MDX 

LD 

LDX 

MDX 

MDX 

STO 

LD 

STO 

BSI 

* 

* 

* 

RTN9E STO 
BSI 
DC 
BSI 

LSTNO DC 

FSTNO DC 

*unnnnunnnnn 

* 

* 

* 
* 

* 

* 

* 
* 

* 
* 

* ' 
* 

*DDDDnnnDDDD 



3 1 

RTN9A 
LSTNO 

SECTD 
2 WRITE-TB 
/4141 

*-* 
RTN9B 

SECTD 
2 READ-TB 

321+/8000 

*-* 

RTN9E 



DECR WORD COUNT 

LOOP 

SET NEW LAST NUMBER 

GET SECTOR NUMBER 
WRITE DATA 

NO. OF WORDS/DON'T PRESET 
* THE I/O AREA 
SECTOR TO USE-0 OR 6 
ERROR RETURN 



RTNER-TB 

CKLK-TB 

RTN9L 

-1 

RTN9L 

FSTNO 

RID 

-9 

1 

FRN1 

LSTNO 

LRN1 

CNTLE-TB 



GET SECTOR NUMBER 

READ DATA-COMPARE 

WORD COUNT/RANDOM NUMBERS 

BEGINNING DATA WORD 

USE SAME PATTERN 

GET ERROR SW 

CK LOCK ON ERROR 

RETURN IF ON 

DECR LOOP COUNT 

LOOP-NEW PATTERN 

SET SUMMARY TABLE 

IX EQUAL RTN NUMBER 

SKP IF RTN 9 

INDEX = 2 

SAVE FIRST NUMBER USED 

GET LAST NUMBER USED 

SAVE 

EXIT ROUTINE 



READ OR COMPARE ERROR 



RTNER-TB 

CKLK-TB 

RTN9L 

CNTLE-TB 

*-* 

*-* 



SET ERROR SW 

CK LOCK ON ERROR 

RETURN IF ON 

EXIT ROUTINE 

LAST RANDOM NUMBER 

FIRST NUMBER USED 



DDunDnanannnntmnnnnnnnnDnnnnnnnnon 

TEST ROUTINE ELEVEN- 

1. WRITE SECTOR ID PLUS 
320 WORDS OF /1313 ON 
CYL 2-SECT 0. 

2. REWRITE CYL 2-SECT 
WITH 1 WORD OF SECTOR 
ID ONLY. 

3. READ 321 WORDS FROM 
CYL 2-SECT 0. 

4. CK DATA READ FOR 
CORRECT SECT ID AND 
DATA OF ALL ZEROS. 

5. RESTORE ORIGINAL DATA 
ON CYL 2-SECT 0. 



PART NO. 
PAGE 



2196378 
9 



RTN11 BSI 
DC 
DC 
B : 

* 

RT11L SLA ' 
BSI 
DC 
DC 
DC 



nnnnnDnaDDnnDDnnnnnnnDonnnnanannna 
2 VERFY-TB SEEK CYL 2-VERIFY 
2 * THE SEEK 

CNTL EXIT ON ERROR 
RT11B WRITE 321 WOROS FIRST 



AVG 



16 

2 WRITE-TB 
- /4001 .". 

Q 

RT11A 



WRITE CYL 2-SECT 

* WITH SECTOR ID 

* ONLY 

AVERAGE OF 50 PASSES 
EXIT IF ERROR 



04N0V66 
415233 



010CT67 
411875 



15FEB68 
411913 



02DEC68 
411961 



14N0V69 
431319 



30JAN70 
431319A 



20MAR70 
431320 



80910880 

80910890 

80910900 

80910910 

80910920 

80910930 

80910940 

80910950 

80910960 

80910970 

80910980 

80910990 

80911000 

80911010 

80911020 

80911030 

80911040 

80911050 

80911060 

80911070 

80911080 

80911090 

80911100 

80911110 

80911120 

80911130 

80911140 

80911150 

80911160 

80911170 

80911180 

80911190 

80911200 

80911210 

80911220 

80911230 

80911240 

80911250 

80911260 

80911270 

80911280 

80911290 

80911300 

80911310 

80911320 

80911330 

80911340 

80911350 

80911360 

80911370 

80911380 

80911390 

80911400 

80911410 

80911420 

80911430 

80911440 

80911450 

80911460 

80911470 

80911480 

80911490 ....... 

8091-1500 

80911510" 

80911520 ' 

80911530 

80911540 

80911550 



PROG ID 
PAGE 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2310 A/B FUNCTION TEST 



PART NO. 2196378 
PAGE 9A 



0809-2 
9 



DATE 
EC NO. 



0C3A 





1010 


0C3B 





4224 


0C3C 





0141 


0C3D 





0000 


0C3E 


1 


0C4A 


0C3F 





1010 


0C40 





4239 


0C41 





0141 


0C42 





1313 


0C43 


1 


0C4A 


0C44 





C20C 


0C45 





4218 


0C46 


1 


0C35 


0C47 





71FF 


0C48 





70EC 


0C49 





421E 


0C4A 





D20C 


0C4B 





4218 


0C4C 


1 


0C35 


0C4D 





421E 



0C4E 





4236 


0C4F 





0002 


0C50 


1 


0AE1 


0C51 





1010 


0C52 





DOE 5 


0C53 





COOE 


0C54 





1002 


OC55 





1802 


0C56 





D245 


0C57 





C2BF 


0C58 





422A 


0C59 





1010 


0C5A 





4239 


0C5B 





C190 


0C5C 





001B 


0C5D 





403D 


0C5E 





4230 


0C5F 





5E15 


0C60 





1010 


0C61 





4224 


0C62 





4172 


0C63 





4037 


0C64 





4230 


0C65 





5E16 



0C66 6700 0172 
0C68 1 C700 08C4 



RT11A SLA 


16 


READ CYL 2-SECT 


80911560 




BSI 


2 READ-TB 


* 


80911570 




DC 


321 


* 


80911580 




DC 





DATA EXPECTED 


80911590 




DC 


RT11C 


EXIT IF ERROR 


80911600 


$ 








80911610 


RT11B SLA 


16 


WRITE CYL 2-SECT 


80911620 




BSI 


2 WRITE-TB 


* WITH /1313 


80911630 




DC 


321 


321 WORDS 


80911640 




DC 


/1313 


DATA 


80911650 




DC 


RT11C 


EXIT IF ERROR 


80911660 




LD 


2 RTNER-TB 


GET ROUTINE ERROR SW 


80911670 




BSI 


2 CKLK-TB 


CHECK LOCK-ON-ERROR 


80911680 




DC 


RT11L 


LOOP 


80911690 


* 








80911700 




MDX 


1 -1 


DECR LOOP COUNT 


80911710 




MDX 


RT11L 


LOOP ROUTINE 


80911720 




BSI 


2 CNTLE-TB 


EXIT ROUTINE 


80911730 


* 








80911740 


RT11C 


STO 


2 RTNER-TB 


SET ERROR SW 


. 80911750 




BSI 


2 CKLK-TB 


CHECK LOCK ON ERROR 


80911760 




DC 


RT11L 


RETURN IF ON 


80911770 




BSI 


2 CNTLE-TB 


TERMINATE DFT 


8091 1 7flO 


*aonnnnonDnnnannnnnnnnnnnnandnanannnQnannnaannnaann 80911790 


* 








80911800 


* 




TEST 


ROUTINE 12-WRITE 400 


80911810 


* 




WORDS ON CYL 2-SECT 0. 


80911820 


* 




READ 


AND CK NUMBER OF 


80911830 


* 




WORDS WRITTEN-SAVE IN 


80911840 


* 




SUMMARY. 


80911850 


* 




RESTORE SECTOR 1 IF 


80911860 


* 




DESTROYED. 


80911870 


* 




NOTE- 


-SUMMARY VALUE IS THE 


80911880 


* 




AVERAGE OF 50 PASSES. 


80911890 


* 








80911900 


*nnnnnnnannnnnDnnnnnnnnnnnnnnnnnnnnnnnnnDnannnncinnt: 


80911910 


RTN12 


BSI 


2 VERFX.-TB 


SEEK CYL 2 AND VERIFY 


80911920 




DC 


2 


* THE SEEK 


80911930 




DC 


CNTL 


EXIT IF ERROR 


80911940 


RT12Z 


SLA 


16 


CLEAR AVERAGE 


80911950 


* 


STO 


AVG 


* 


80911960 








80911970 


RT12L 


LD 


K370 


SET WORD COUNT 


80911980 




SLA 


2 


CLEAR BIT1 


11981 




SRA 


2 


* 






STO 


2 COMA-TB 


IN I/O AREA 


80911990 




LD 


2 H1313-TB 


GET DATA 


80912000 




BSI 


2 SETV-TB 


PRESET I/O AREA 


80912010 


* 








80912020 




SLA 


16 


WRITE CYL 2-SECT 


80912030 




BSI 


2 WRITE-TB 


* WITH NO DSW CHECK 


12040 




DC 


400+/8000+ 


/4000 DON'T PRESET I/O 


12050 


* 






* AREA OR CK DSW 




K27 


DC 


27 


CONSTANT 27 


80912060 




BSI 


R12CK 


CK DSW 


80912070 


* 








80912080 




BSI 


2 STMSG-TB 


PRINT IF ERROR 


80912090 




DC 


/5E15 


MESSAGE ID 


80912100 


_* 






- 


80912110 




SLA 


16 


READ SECTOR 


80912120 




BSI 


2 READ-TB 


READ W/0 CKING DSW/DATA 


12130 


K370 


DC 


370+/4000 


WORD COUNT 


12140 




BSI 


R12CK 


CHECK OSW 


80912150 




BSI 


2 STMSG-TB 


PRINT IF ERROR 


80912160 


* 


DC 


75E16 


MESSAGE 10 


80912170 
80912180- 




LDX 


L3 370 


CK NUMBER OF WORDS 


80912190 


RT12A 


LD 


L3 COMA 


* - •■■-• 


80912200 



04N0V66 
415233 



010CT67 
411875 



15FEB68 
411913 



02DEC68 
411961 



14N0V69 
431319 



30JAN70 
431319A 



20MAR70 
431320 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2310 A/B FUNCTION TEST 



V 



0C6A F2BF 
0C6B 1 4C18 0C6F 
0C60 73FF 
0C6E 70F9 

0C6F 6BC0 
0C70 1 7780 0C38 
0C72 6BC5 

0C73 C2E1 
0C74 4224 
0C75 4001 
0C76 C246 
0C77 F298 
0C78 F2E1 
0C79 1 4C18 0C85 
0C7B C20C 
0C7C D2C7 
0C7D 401D 



2 H1313-TB 
RT12B 

3 -1 
RT12A 



3 FSTNO 
13 AVG 
3 AVG 



0C7E 

0C7F 

0C80 

0C81 

0C82 

0C8 3 

0C84 

0C85 

0C86 

0C87 

0C88 

0C8A 

0C8B 

0C8D 

0C8E 

0C8F 

0C90 

0C91 

0C92 

0C93 

0C94 

0C95 

0C96 

0C97 

0C98 

0C99 

0C9A 

0C9B 
0C9C 
0C9D 
0C9E 
0C9F 
0CA1 
0CA2 
OCA 3 
GCA4 
0CA5 
0CA6 
OCAS 
OCAA 
OCAB 



42 30 

5E18 

C2E1 

4239 

0141 

E5E5 
1 0C85 
COAA 
D2C7 

92E9 

1 4C28 0C80 

90D1 

1 4C08 0C91 
C20C 

400C 
4230 
4E17 
C20C 
4218 
0C51 
71FF 
70B0 
C0A1 
1890 
A812 
02F6 
421E 



0000 

C2C7 

4828 

1007 

4C28 0CA8 

C20C 

421B 

7004 . 

C0B7 

D20C 

4C80 0C9B 

7402 0C9B 

70FB 

0032 



EOR 
BZ 
MOX 
MDX 

* 

RT12B STX 
MDX 
STX 

LD 

BSI 

DC 

LD 

EOR 

EOR 

BZ 

LD 

STO 

BSI 

* 

BSI 

DC 

LD 

BSI 

DC 

DC 

DC 
RT12D LD 

STO 

S 

BN 

S 

BNP 
RT12G LD 

BSI 

BSI 
DC 
RT12F LD 
BSI 
DC 
MDX 
MDX 
LD 
SRT 
D 

STO 
BSI 

R12CK DC 

LD 

SKP 

SLA 

BN 

LD 
- BSI 

MDX 

LD 

STO 
RCKX1 BSC 
RCKX MDX 

MDX 
NLOOP DC 

^DODDDnODOO 

* 
* 

* 

*naDnQDnnnnnnnnnnoannnnnnnnnnnnnnnnncnnnnnnnnnnnonn 
**** ROUTINE CALL 



Kl-TB 

READ-TB 

1+/4000 

COMACl-TB 

CY002-TB 

Kl-TB 

RT120 

RTNER-TB 

ZSNS-TB 

R12CK 

STMSG-TB 

/5E18 

Kl-TB 

WRITE-TB 

321 

/E5E5 

RT12D 

FSTNO 

ZSNS-TB 

K331-TB 

RT12G 

K27 

RT12F 

RTNER-TB 

R12CK 

STMSG-TB 

/4E17 

RTNER-TB 

CKLK-TB 

RT12Z 

-1 

RT12L 

AVG 

16 

NLOOP 

WRLNG-TB 

CNTLE-TB 



*-* 

ZSNS-TB 
SZ 
7 

RCKX 

RTNER-TB 
CKPRT-TB 
RCKX 
K27 

RTNER-TB 
R12CK 
R12CK.2 
RCKX1 
LPCNT 
□ncnnnanannnn 



BRANCH IF FOUND 
DECR WD COUNT 
LOOP 

SAVE NUMBER OF WORDS 
ADD TO TOTAL 
SAVE TOTAL 

R~EAD SECTOR 1 
READ W/0 CHECKING 
WORD COUNT 
GET ID READ 
CK FOR CORRECT 
* 

BRANCH IF CORRECT 
GET ERROR SW 
DUMMY ENTRY 
CK PRINT SW ONLY 

PRINT ERROR 

MESSAGE ID 

RESTORE SECTOR 1 

* 

* 

* 

ERROR RETURN 

GET CURRENT WD CT 

DUMMY ENTRY 

SUB 331 

BRANCH IF LESS 

SUB 27 

BRANCH IF LESS THAN 358 

GET ERROR SW 
CHECK PRT SW ONLY 

PRINT ERROR 
MESSAGE ID 

GET ERROR SW 

CHECK LOCK ON ERROR 

RETURN IF ON 

DECR RTN LOOP COUNT 

LOOP 

GET TOTAL WORDS 

SET IN Q 

DIVIDE BY 50 

SET IN SUMMARY 

EXIT ROUTINE 

ENTRY 

GET INTERRUPT DSW 

SKIP IF BIT IS 

CHECK BIT 7 

BRANCH IF ON 

GET ERROR SW 

CHECK PRINT ALL SW 

RETURN IF OFF 

SET ERROR SW 

* 

EXIT ROUTINE 

INCR RETURN TO NO PRINT 

GO EXIT 

LOOP COUNT 

DannDDDDDQDDnnDDDDaanDDDaaD 



SUB-ROUTINE ZRQDV 



PART NO. 
PAGE 



80912210 
80912220 
80912230 
80912240 
80912250 
80912260 
80912270 
80912280 
80912290 
80912300 
12310 
12320 
80912330 
80912340 
80912350 
80912360 
80912370 
80912380 

80912390 

80912400 

80912410 

80912420 

80912430 

80912440 

80912450 

80912460 

80912470 

8 0912480 

80912490 

80912500 

80912510 

80912520 

80912530 

80912540 

80912550 

80912560 

80912570 

80912580 

80912590 

80912600 

80912610 

80912620 

80912630 

80912640 

80912650 

80912660 

80912670 

80912680 

80912690 

80912700 

80912710" 

80912720 

80912730 

80912740 

80912750 

80912760 

80912770 

80912780 

80912790 

80912800 

80912810 

80912820 

80912830 

80912840 

80912850 

80912860 

80912870 

80912880 



2196378 
10 



>, IBM MAINTENANCE DIAGNOSTIC 
2310 A/B FUNCTION TEST 



PROGRAM FOR THE 1800 SYSTEM 



PART NO. 219&378 
PAGE 10A 



DATE 


04N0V66 


010CT67 


15FEB68 


02DEC68 . 


14N0V69 


30JAN70 


20MAR70 


EC NO. 


415233 


411875 


411913 


411961 


431319 


431319A 


431320 



PROG ID 
PAGE 



0809-2 
10 



' 


* 


BSI 


2 ZRQDV-TB 


80912890 


. 


* 






80912900 


1 

: 

, OCAC C2BC 

OCAD 1 4CA8 08C1 


* 






80912910 


* 




ROUTINE TO REQUEST DEVICE 


80912920 


RQDV 


LD 


2 DDEFX-TB GET SELECTED DDEF 


- 80912930 
80912940 




BN 


I ZRQDV EXIT IF DEVICE CONNECTED 


80912950 




* 






80912960 




* 
* 




REQUEST DEVICE 


80912970 
809129 80 


OCAF 2 4480 0131 


ZRQDA BSI 


I REQOV MONITOR CALL 


80912990 


, 0CB1 1 0CB7 




DC 


ZBUSY BUSY RETURN 


80913000 


0CB2 1 083B 




DC 


DDEFX DDEF+SW FNC 2 


80913010 


0CB3 1 0826 




DC 


OVA ADDRS DVA 


80913020 


, 0CB4 1 080B 




DC 


TERM ADDRS TERMINATOR 


80913030 


' 0CB5 1 4C80 08C1 


* 


B 


I ZRQDV EXIT 


80913040 
80913050 




* 
* 




DEVICE BUSY 


80913060 
80913070 


0CB7 4220 


ZBUSY BSI 


2 STMLS-TB SET RETURN FROM MONITOR 


80913080 


0CB8 70F6 




B 


ZRQDA * AND EXIT TO MONITOR 


80913090 










• 80913100 








- 80913110 




annanannannnnnnannnnnannnnnnannnnnnnnnnnnnnaannnnnn 80913120 




* 






80913130 


■'■-.'■ . ■ 


* 




SUB-ROUTINE XEQ 


80913140 


i 


* 






80913150 




sannnnnnannananancinnaanannnDDnEmnnoaDDnnnnnnnnnaonQ 80913160 


* 


* 






80913170 


?■•■'. 


# 






80913180 




* 




THIS ROUTINE WILL BUILD AND ISSUE 


80913190 




* 




AN XIO INSTRUCTION. 


80913200 




* 






80913210 




* 




IT WILL THEN WAIT FOR AN INTERRUPT, 


80913220 




* 




LOOPING THROUGH THE MONITOR. THE 


80913230 


: 


* 




LOCATION (XCNT) WILL KEEP 


80913240 




* 




THE CURRENT DELAY COUNT FOR A LOST 


80913250 




* 




INTERRUPT. ' 


80913260 


i 


* 






80913270 




* 




IF AN INTERRUPT IS LOST AN ERROR 


80913280 




* 




MESSAGE IS PRINTED AND THE ROUTINE 


80913290 


1 


* 
* 




TERMINATES THE DFT 


80913300 
80913310 




**** 


ROUTINE CALL 


80913320 


\ . 


* 


BSI 


2 XEQ-TB 


80913330 


. 


* 


IOCC 


MUST BE PRESET AT LOCATION (ZXIO). 


80913340 


* 

0CB9 C2CA 


* 






80913350 


XEQE 


LD 


2 ZXIO+1-TB GET IOCC 


80913360 
80913370 


OCBA EAA7 




OR 


2 DVA-TB COMBINE WITH AREA CODE 


80913380 


OCBB D2CA 




STO 


2 ZXI0E1-TB SAVE 


80913390 


OCBC D2A6 




STO 


2 INTSW-TB SET INTRPT SWITCH 


80913400 


OCBD 4242 




BSI 


2 ZRQDV-TB REQUEST DEVICE 


80913410 


OCBE CAC9 




LDD 


2 ZXIO-TB SET IOCC USED FOR MSG 


80913420 


OCBF DA03 




STD 


2 M0D3-TB * 


80913430 


OCCO OACB 


* 
CKRDl 


XIO 


2 SNXIO-TB SENSE DSW 


80913440 
80913450 


0CC1 D2D1 




STO 


2 TBDSW-TB SAVE 


80913460 


0CC2 E2BE 




AND 


2 H300Q.-TB SAVE BITS 2-3. .RDY/BUSY 


80913470 


0CC3 1 4C18 OCCE 


* 


BZ 


XEOB BRANCH IF OK 


809134 80 
80913490 




* 


DISK 


IS BUSY AND/OR NOT REAOY 


80913500 


. 


* 






80913510 


0CC5 4230 




BSI 


2 STMSG-TB CALL MSG SETUP RTN 


80913520 


0CC6 5E03 




DC 


/5E03 _ MESSAGE ID 


80913530 


• • ■'..■■■■■- ■'■ 


* 






80913540 




* 


LOOP 


THRU MONITOR 


80913550 




* 






80913560 



DATE 


04N0V66 


010CT67 


15FEB68 


02DEC68 


14N0V69 


30JAN70 


20MAR70 


EC NO. 


415233 


411875 


411913 


411961 


431319 


431319A 


431320 



PROG ID 
PAGE 



0809-2 
lOA 



- ( A _^ ^ ( _ ( { ^ ^ ^ _l _J ^ t „ ( - ( I ( ^ _ ( I „ t J „ t ( ( _ ( ^ 



k 






IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2310 A/B FUNCTION TEST 



0CC7 C2EA 
0CC8 0208 
0CC9 422D 



OCCA 1 74FF 0887 
OCCC 70FC 
OCCD 70F2 



LO 
STO 
CKRD3 BSI 

* 
* 
* 



2 K10TH-TB SET LOOP COUNT TO 10,000 

2 ZCNT-TB * 

2 STMLS-TB SET RETURN AND EXIT 



MONITOR RETURNS HERE 



MOX 
MDX 
MDX 



OCCE 





C2C5 


OCCF 





D208 


OCDO 





0AC9 


0CD1 





OACB 


0CD2 





D2D1 


0CD3 





C245 


0CD4 


1 


4C18 OCDD 


0CD6 





C2D1 


0CD7 





E2BE 


0CD8 





F2BE 



XEQB 



0CD9 1 4C18 OCDO 

OCDB 4230 
OCDC 0E04 



OCDD 422D 



OCDE C2A6 
OCDF 1 4C18 0CE8 
0CE1 1 74FF 0887 
0CE3 70F9 

0CE4 4230 
0CE5 0E01 
0CE6 423F 
0CE7 4233 

0CE8 423F 
0CE9 422D 
OCEA C2C7 
OCEB D2D1 
OCEC 1 4C80 08BB 



LD 

STO 

XIO 

XIO 

STO 

LD 

BZ 

LD 

AND 

EOR 

BZ 

BSI 
DC 

* 
* 
* 

XEQLP BSI 
* 

* 

LD 
BZ 
MDX 
B 

BSI 
DC 
BSI 
BSI 

BSI 

BSI 

LD 

STO 

B 



L ZCNT.-l 
CKR03 
CKRD1 



2 SNRES-TB 
2 ZCNT-TB 
2 ZX10-TB 



DECR COUNT 

LOOP 

TEST AGAIN 



SET LOST INTRPT 
* COUNTER 
ISSUE COMMAND 



2 SNXIO-TB GET PRESENT OSW 

2 TBDSW-TB STORE IN CASE PRINT 

2 COMA-TB IF ZERO DON'T CHECK FOR 

XEQLP * BUSY AND NOT READY 

2 TBDSW-TB GET DSW JUST SENSED 

2 H3000-TB SAVE BITS 2-3 

2 H3000-TB COMPLEMENT THEM FOR TEST 

XEQLP BRANCH IF OK 

2 STMSG-TB NOT READY ERROR MSG 

/0E04 MESSAGE ID 

EXIT TO MONITOR 

2 STMLS-TB SET MLSCF ENTRY AND EXIT 

MONITOR RETURNS HERE 



XEQX 



2 INTSW-TB 
XEQX 
L ZCNT.-l 
XEQLP 

2 STMSG-TB 

/0E01 
2 ZRLDV-TB 
2 TEXIT-TB 

2 ZRLDV-TB 

2 STMLS-TB 

2 ZSNS-TB 

2 TBDSW-TB 

I XEQ 



GET INTRPT SWITCH 
BRANCH IF OFF 
DECR LOOP COUNT 
BRANCH IF NOT ZERO 

PRINT LOST INTRPT 
MESSAGE ID 

LOST INTRPT-REL DEV. 
TERMINATE DFT 

RELEASE DEVICE 
LOOP THRU MONITOR 
GET INTRPT DSW 
STORE FOR PRINT 
EXIT 



OCEE C2BC 
OCEF 1 4C90 08BE 



0CF1 2 4480 0132 
0CF3 1 083B 
0CF4 1 0808 
0CF5 1 4C80 08BE 



*nnonnnDnnnnnannnnnnantmnnQnnannnnBncinnnnnaDnnnnnDn 
* 

* SUB-ROUTINE ZRLDV 

* 

**** ROUTINE CALL - 

* BSI 2 ZRLDV-TB 

* 

♦nDQnnanonnaaannnnnnnannnnQnnnnnnnnDnnnnnnDnnnnQnnn 
RLDVE LD 2 DDEFX-TB GET DDEF SELECTED 

BNN I ZRLDV EXIT IF DEVICE RELEASED 



* 



RELEASE DEVICE 



BSI I RELDV 

DC DDEFX 

- DC TERM 

B I ZRLDV 



RELEASE DEVICE 
DDEF+SW FNC 2 
ADDRS OF TERMINATOR 
EXIT 



DATE 


04NOV66 


010CT67 


15FEB68 


02DEC68 


14N0V69 


30JAN70 


20MAR70 


EC NO. 


415233 


411875 


411913 


411961 


431319 


431319A 


431320 



PART NO. 2196378 
PAGE 11 



80913570 

80913580 

80913590 

80913600 

80913610 

80913620 

80913630 

80913640 

80913650 

80913660 

80913670 

80913680 

80913690 

80913700 

80913710 

80913720 

80913730 

80913740 

80913750 

80913760 

80913770 

80913780 

80913790 

80913800 

80913810 

80913820 

80913830 

80913840 

80913850 

80913860 

80913870 

80913880 

80913890 

80913900 

80913910 

80913920 

80913930 

80913940 

80913950 

80913960 

80913970 

80913980 

80913990 

80914000 

80914001 

80914010 

80914020 

80914030 

80914040 

80914050 

80914060 

80914070 

80914080 

80914090 

80914100 

80914110 

80914120 

80914130 

80914140 

80914150 

80914160 

80914170 

80914180 

80914190 

80914200 

80914210 

80914220 

80914230 



PROG ID 
PAGE 



( ( 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2310 A/B FUNCTION TEST 



0809-2 
11 



0CF7 6907 
0CF8 C009 
0CF9 028B 
OCFA 2 4C80 0120 



OCFC 1 6600 087F 
OCFE 6500 0000 
ODOO 1 4C80 08AC 
0D02 1 OCFC 



0D03 
0D04 
0D05 
0D06 
0D08 
ODOA 
ODOB 
ODOC 
ODOE 



C2E6 
0209 
D2QA 

6D00 0DC2 
6780 08B5 
C301 
D01B " 
7402 08B5 
C300 



*nnn on nnnnonnnnaDnnnnDQannannnnnnnnoonanannnannn a aa 

* 

♦nnnnnnnnnnnnnnannnnnnnnnnnnnnnnannnnnncjonnnnnnnQan 

* • 

* ROUTINE TO SAVE INDEX REGS 

* AND EXIT TO MONITOR 
* 

***# ROUTINE CALL 

* BSI 2 STMLS-TB 
* 

$ ; 



DATE 
EC NO. 



04N0V66 
415233 



010CT67 
411875 



STMLE 



* 
* 
STMLR 



STML 

* 



STX 
LD 
STO 
BSC 



LDX 
LDX 

B 
DC 



1 STMLR63 SAVE IX 1 

STML GET RETURN ADRS 

2 MLSCF61-TB SET IN MLSCF TABLE 

I START EXIT TO MONITOR THRU START 

MONITOR RETURNS HERE 

L2 TB RESTORE INDEX REGS 

LI *-* * 

I STMLS EXIT VIA ENTRANCE 

STMLR ADRS OF RETURN 



* 

* 

* 

* 
* 

* 

* 
* 

* 

* 
* 

* 
* 
* 

* 
* 
* 
* 

* 



nnnnnnnnnnnDnnnannnnnnnnnnDCiunnnnnnnnnnnnnnnnnnnn 
SUB-ROUTINE VERFY 

nnaannnnnnnnnnnnnDnnnnnnnnnannnnnnDnnnDnaaannnnnn 
THIS ROUTINE CALLS THE SEEK SUB-ROUTINE 
TO LOCATE DESIRED CYLINDER. THE CORRECT 
CYLINDER IS VERIFIED BY READING AS MANY 
AS ALL EIGHT SECTOR ID'S IF COMPARE ERRORS 
OCCUR. 

IF TWO (2) CORRECT CYLINDER ID'S ARE READ, 
THE 'PRESENT CYLINDER' WORD (PCYL#> IS 
UPDATED AND THE ROUTINE IS EXITED. 

IF EIGHT DSW READ ERRORS OR SECTOR 

ID ERRORS OCCUR, THE DFT IS TERMINATED. 

IF NEITHER OF THE ABOVE OCCUR, A TEST IS 
MADE FOR ANY FIVE (5) CYLINDER ID'S JUST READ 
READ BEING THE SAME. IF SO, THIS CYLINDER 
IS ASSUMED TO BE THE PRESENT CYLINDER AND 
UP TO SEVEN RETRIES ARE MADE FOR THE COR- 
RECT CYLINDER. 

*** ROUTINE CALL 

BSI 2 VERFY-TB 

DC CYL # DESIRED 

DC ADDRS OF ADDRESS ERROR RETURN 



* 
VRFYE 



LD 

STO 

STO 

STX 

LDX 

LO 

STO 

MDX 

LD 



15FEB68 
411913 



2 K8-TB EIGHT TRIES FOR GOOD EXIT 

2 RTCNT-TB * 

2 WRRTY-TB SET RETRY COUNTER 
LI VERFXtl "" SAVE INDEX 1 

13 VERFY GET CALLING ADRS+1 

3 1 GET CONTENTS OF CALL+2 
TSTCF+1 SET FOR EXIT 

L VERFY, 2 SET FOR NORMAL RETURN 

3 GET CYL. DESIRED 



PART NO. 2196378 
PAGE 11A 



80914240 

80914250 

80914260 

80914270 

80914280 

80914290 

80914300 

80914310 

80914320 

80914330 

80914340 

80914350 

80914360 

80914370 

80914380 

80914390 

80914400 

80914410 

80914420 

80914430 

80914440 

80914450 

80914460 

80914470 

80914480 

80914490 

80914500 

80914510 

80914520 

80914530 

80914540 

80914550 

80914560 

80914570 

80914580 

80914590 

80914600 

80914610 

80914620 

80914630 

80914640 

80914650 

80914660 

80914670 

80914680 

80914690 

80914700 

80914710 

80914720 
80914730 
80914740 
80914750 
80914760 
80914770 
80914780 
80914790 
80914800 
80914810 
80914820 
80914830 
80914840 
80914850 
80914860 
80914870 
80914880 
80914890 
80914900 
80914910 



02DEC68 
411961 



14N0V69 
431319 



30JAN70 
431319A 



20MAR70 
431320 



PROG ID 
PAGE 



0809-2 
11A 



, ( t ( { _< , _ ( ( _ 4 _ , { { { H H _ { 



V 



c 

c 






v. 



IBM MAINTENANCE-DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2310 A/B FUNCTION TEST 



ODOF D2DA 
0D10 6303 

0D11 C2DA 
0D12 1 F700 081E 
0D14 1 4C18 0D26 

0016 73FF 

0017 70F9 

0D18 1 6780 0859 
0D1A 73FD 
001B 7005 

001C 1 C700 0818 

0D1E 1803 

0D1F 020A 

0020 700F 

0021 73AA 
0D22 7001 
0D23 700C 

0D24 73EB 
0D25 7002 
0026 4C00 0000 

0D28 73A8 
0029 7001 
0D2A 7005 

0D2B 73FC 
0D2C 70F9 
0D2D 7304 
0D2E 1000 
0D2F 70EC 



STO 
LOX 

* 

VERFA LD 
EOR 
BZ 
MDX 
B 

* 

LDX 
MDX 
B 



NCYL#-TB 
3 



2 NCYL#-TB 
L3 BADCY-l 

TSTCF 

3 -1 
VERFA 

13 NCYL# 
3 -3 
TSTCB 



* 
TSTCA 



TSTCB 



TSTCC 
TSTCF 
TSTCD 



* 
TSTCE 



LO L3 CYOOO+3 

SRA 3 

STO 2 NCYL#-TB 

B SEEK 



MDX 

B 

B 



3 -86 
TSTCC 
SEEK 



MDX 3 -21 
B TSTCD 
B L *-* 



MDX 

B 

B 



3 -88 
TSTCE 
SEEK 



MDX 3 -4 

B TSTCF 

MDX 3 4 

NOP 

B TSTCA 



SAVE 
COUNTER 

GET DESIRED CYL. 
CMP WITH BAD CYLS 
BRANCH IF CMP 
DECR COUNT 
LOOP 

CYL DESIRED TO 1X1 
TEST FOR 0-3 
BR. ..4-.. 

EDITTED CYL 
RIGHT-JUSTIFY 
SET FOR CALL 
SEEK CYL. 

TEST FOR 4-89 

90-... 

4-89 

TEST FOR 90-110 

111-... 

90-110 TAKE ADRS ERR EXIT 

TEST FOR 111-198 
199-.. . 
SEEK CYL 

TEST FOR 199-202 
GREATER THAN 202 
CREATE POINTER TO CYOOO 
FOR SKIP 
GET EDITTED ENTRY 



* 
*- 

* 

* 

* 
* 

* 

* 

* 

* 



THIS SUBROUTINE WILL ISSUE THE 
SEEK I/O COMMAND, CHECK THE DSW 
FOR ANY ERRORS. 

A MAXIMUM OF EIGHT RETRIES WILL 
BE MADE ON DSW ERRORS. IF THERE 
ARE EIGHT SEEK INCOMPLETE ERRORS, 
THE DFT PROGRAM IS TERMINATED TO PREVENT 
DAMAGE TO THE DISK DRIVE. 

THE LOCK-ON-ERROR OPTION WILL 
LOCK THE ROUTINE IN THE SEEK SUB- 
ROUTINE FOR DSW ERRORS OTHER THAN 
SEEK INCOMPLETE AS LONG AS THE 
SWITCH IS ON, EVEN IF THE ERROR 
IS INTERMITTENT. 



0D30 





1010 


0D31 





D2DB 


0D32 





C2E6 


0033 





D2FD 


0D34 





D2DC 


0D35 





6302 


0D36 





4221 


0D37 





C2BD 



SEEK 



SLA 

STO 

LD 

STO 

STO 

LDX 

BSI 



-TB 



16 

ERSK1 

K8-TB 

CNTA-TB 

CNTB-TB 

SKCNT-SUMRY 



ZERO A REG. 

CLEAR ERROR COUNTERS 

PRESET RETRY CTRS 

* INVALID ADDRESS 

* SEEK INCOMPLETE 
POINTER 



ERROR 
ERROR 



. * 
SEEKA 



COUNT-TB INCR SEEK COUNT 



GET IOCC FOR MOVE-ARM-OUT 



LD 



2 XSKBK-TB 



IOCC FOR MOVE-ARM-OUT 



PART NO. 2196378 
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DATE 


04NOV66 


010CT67 


15FEB68 


02DEC68 


14N0V69 


30JAN70 


20MAR70 


EC NO. 


415233 


411875 


411913 


411961 


431319 


431319A 


431320 



80914920 

80914930 

80914940 

80914950 

80914960 

80914970 

80914980 

80914990 

80915000 

80915010 

80915020 

80915030 

80915040 

80915050 

80915060 

80915070 

80915080 

80915090 

80915100 

80915110 

80915120 

80915130 

80915140 

80915150 

80915160 

80915170 

80915180 

80915190 

80915200 

80915210 

80915220 

80915230 

80915240 

80915250 

80915260 

80915270 

80915280 

80915290 

80915300 

80915310 

80915320 

80915330 

80915340 

80915350 

80915360 

80915370 

80915380 

80915390 

80915400 

80915410 

80915420 

80915430 

80915440 

80915450 

80915460 

80915470 

80915480 

80915490 

80915500 

80915510 

80915520 

80915530 ... 

80915540 

80915550 

80915560 

80915570 

80915580 

80915590 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2310 A/B FUNCTION TEST 



0809-2 
12 



0D38 0245 
0D39 1890 



STO 
SRT 



2 COMA-TB 
16 



SET CK-NOT-RDY SW 
* TO REG. 



00 3A 





C20E 




0D3B 


1 


4C20 


0D49 


0D3D 





C2DA 


- 


0D3E 





92D9 




0D3F 


1 


4C18 


0D79 


0D41 


1 


4C28 


0D46 


0D4 3 





1883 




0D44 





1083 




0D4 5 





7004 




0D46 





F28C 




0D47 





82E1 




0D48 





7001 




0049 





C2DA 




0D4A 





DAC9 




0D4B 





DAD3 




0D4C 





423C 





TEST FOR FAST OR SLOW ACCESS 



LD 

BNZ 



2 MODEL-TB 
SEEKC 



SLOW ACCESS 



SEEKB 



SEEKC 
* 

SEEKD 



LD 

S 

BZ 

BN 

SRT 

SLT 

B 

EOR 

A 

B 

LD 

STD 
STD 
BSI 



2 NCYL#-TB 
2 PCYL#-TB 

VERFB 

SEEKB 

3 

3 

SEEKD 

2 TERM-TB 
2 Kl-TB 
SEEKD 



NON-ZERO = FAST ACCESS 
BRANCH IF NOT ZERO 



CYL. DESIRED TO A 
SUBTRACT PRESENT CYL. # 
BR IF ZERO 

BRANCH ON MOVE TOWARD HOME 
ZERO BIT 13 IN Q REG. TO 

* INDICATE MOVE ARM IN 

FORM TWO'S COMPLEMENT 

* OF # OF CYL. MOVEMENTS 
* 



2 NCYL#-TB CYL. DESIRED TO A 

2 ZXIO-TB SET IOCC FOR XEO CALL 

2 M0D3-TB * 

2 XEQ-TB CALL EXECUTE I/O 



0D4D 100A 
0D4E 1 4C28 0D5B 



* 
* 



CHECK DSW FOR ERROR 



SLA 

BN 



10 

SEEKF 



CHECK FOR SEEK ERROR 
BRANCH ON ERROR 



0D50 
0D51 
OD52 
0D54 
0D55 
0D56 
OD57 
0D58 
0D59 
0D5A 



C2DB 

D2D3 

4C18 0D79 

4218 

0D37 

4230 

4A01 

6303 

4221 

701E 



CHECK FOR PREVIOUS ERROR(S) 

LD 2 ERSK1-TB GET ERROR SWITCH 

STO 2 M0D3-TB STORE FOR PRINT 

BZ VERFB BR IF NO ERROR 

BSI 2 CKLK-TB CHECK LOCK-ON-ERROR OPTION 

DC SEEKA BRANCH IF SET 

BSI 2 STMSG-TB RECOVERED ERROR 

DC /4A01 MESSAGE ID 

LDX 3 SFTSK-SUMRY POINTER 

BSI 2 COUNT-TB INCR SOFT SEEK ERROR 

B VERFB NOT SET/ NORMAL EXIT 



0D5B 1 7401 085A 



* 
SEEKF 

* 



VERFB 
FOUND DSW ERROR 
MDX L ERSK1,1 
GET PRESENT DSW 



0D5D 


OACB 




XIO 2 SNXIO-TB 


0D5E 


100A 




SLA 10 


0D5F 1 


4C28 0D70 


$ 


BN SEEKG 






* 


INVALID ADDRESS 


0D61 


4230 


BSI 2 STMSG-TB 


0D62 


0E05 




DC /0E05 


0D63 


C2DB 




LD 2 ERSK1-TB 


0064 


4218 




BSI 2 CKLK-TB 


0D65 1 


0D37 -j 




DC SEEKA 


0D66 1 


74FF 087C 




MDX L CNTA,-1 


0D68 


70CE 


3(C- 


MDX . SEEKA 






* 
* 


DSW ERROR EXIT 



SET ERROR SWITCH 



SENSE DSW 

HAS SEEK ERROR BEEN RESET 

* BRANCH IF NO 



PRINT INVALID ADDRS ERROR 

MESSAGE ID 

GET ERROR SWITCH 

CHECK LOCK-ON-ERROR OPTION 

BRANCH IF SET 

DECREMENT RETRY CNTR A 

NOT EIGHT RETRIES YET 



PART NO. 2196378 
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80915600 
80915610 
80915620 

15630 
80915640 

15650 
80915660 
80915670 

15680 
80915690 
80915700 
80915710 
80915720 
80915730 
80915740 
80915750 
80915760 
80915770 
80915780 
80915790 
80915800 
80915810 
80915820 
80915830 
80915840 
80915850 
80915860 
80915870 
80915880 
80915890 
80915900 
80915910 
80915920 
80915930 
80915940 
80915950 
80915960 
80915970 
80915980 
80915990 
80916000 
80916010 
80916020 
80916030 
80916040 
80916050 
80916060 
80916070 
80916080 
80916090 
80916100 
80916110 
80916120 
80916130 
80916140 
80916150 
80916160 
80916170 
80916180 
80916190 
80916200 
80916210 
80916220 
80916230 
80916240 
80916250 
80916260 
80916270 



DATE 
EC NO. 



04NOV66 
415233 



010CT67 
411875 



15FEB68 
411913 



02DEC66 
411961 



14N0V69 
431319 



30JAN70 
431319A 



20MAR70 
431320 
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0D69 


CAD9 






LOO 


2 


PCYL3-TB 


SET PRINT MSG 


80916280 


006A 


DAD3 






STD 


2 


M0D3-TB 


* 


80916290 


006B 


4230 






BSI 


2 


STMSG-TB 


UNRECOVERED ERROR 


80916300 


0D6C 


3E06 






DC 




/3E06 


MESSAGE ID 


80916310 


0D6D 


6304 






LDX 


3 


HRDSK-SUMRY POINTER 


80916320 


006E 


4221 






BSI 


2 


COUNT-TB 


INCR HARD SEEK ERROR 


80916330 


0D6F 


421E 




* 


BSI 


2 


CNTLE-TB 


EXIT ROUTINE 


80916340 
80916350 








* 


SEEK 


INCOMPLETE ERROR (200 MS ONE-SHOT) 


80916360 








* 










80916370 


0D70 


4230 




SEEKG 


BSI 


2 


STMSG-TB 


SEEK INCOMPLETE ERROR(DSW) 


80916380 


0D71 


0E07 






DC 




/0E07 


MESSAGE ID 


80916390 


0D72 


1 74FF 


085B 




MDX 


L 


CNTB.-l 


DECR RETRY COUNTER 


80916400 


0D74 


70C2 






B 




SEEKA 


LOOP 


80916410 


0D75 


6304 






LDX 


3 


HRDSK-SUMRY COUNT HARD SEEK ERROR 


80916420 


0076 


4221 






BSI 


2 


COUNT-TB 


* 


80916430 


0077 


4233 






BSI 


2 


TEXIT-TB 


TERMINATE DFT 


80916440 
80916450 
























* 










80916460 








* 










80916470 








* 










80916480 


0A30 







BDCYL 

* 
* 

* 


EQU 




ENDCM-8 

READ 


USED IN VERFY ONLY 
EIGHT SECTOR IDS 


80916490 
80916500 
80916510 
80916520 
80916530 


0078 


0000 




TMPX 


DC 




*-* 


SECTOR POINTER 


80916540 


0079 


61F8 




VERFB 


LDX 


1 


-8 


SET LOOP COUNTER 


80916550 


0D7A 


69F0 




VERFC 


STX 


1 


TMPX 


SET SECTOR TO READ 


80916560 


0D7B 


COFC 






LD 




TMPX 


GET SECTOR TO READ 


80916570 


0D7C 


E2E5 






AND 


2 


K7-TB 


SAVE SECTOR 10 


80916580 


0D7D 


4224 






BSI 


2 


READ-TB 


READ W/0 CHECKING 


16590 


007E 


4001 






DC 




1+/4000 


WD COUNT 


16600 


0D7F 


C246 






LD 


2 


C0MAC1-TB 


GET ID READ 


80916610 


0D80 


1 0500 


0A38 




STO 


LI 


BDCYL&8 


SAVE 


80916620 


0082 


7101 






MDX 


1 


1 


DECR LOOP CTR 


80916630 


0083 


70F6 




* 


B 




VERFC 

CHECK 


LOOP 

FOR ALL 8 CYLINDER IDS 


80916640 
80916650 
80916660 








* 






THE SAME 


80916670 








* 










809166 80 


0084 


61F9 






LDX 


1 


-7 


SET LOOP COUNTER 


80916690 


0085 


1 C400 


0A30 


VERFD 


LD 


L 


BDCYL 


CK FOR ALL SAME CYLINDER 


80916700 


0D87 


1 F500 


0A38 




EOR 


LI 


BDCYLC8 


* 


80916710 


0D89 


1803 






SRA 




3 


* 


80916720 


008A 


1 4C20 


ODCF 




BNZ 




VERFJ 


BRANCH IF NOT 


80916730 


0D8C 


7101 






MDX 


1 


1 


DECR LOOP CTR 


80916740 


008D 


70F7 




* 
* 
* 


B 




VERFD 

CHECK 


LOOP 

SECTORS FOR SEQUENTIAL 


80916750 
80916760 
80916770 
80916780 


008E 


61F8 






LDX 


1 


-8 


SET LOOP CTR 


80916790 


0D8F 


69E8 




VERFE 


STX 


1 


TMPX 


CK FOR SEQ SECTORS 


80916800 


0D90 


1 C500 


0A38 




LD 


LI 


BDCYLCS 


* 


80916810 


0092 


F0E5 






EOR 




TMPX 


* 


80916820 


0D93 


E2E5 






AND 


2 


K7-TB 


* 


80916830 


0D94 


1 4C20 


ODCF 




BNZ 




VERFJ 


BRANCH ON ERROR 


80916840 


0096 


7101 






MDX 


1 


1 


DECR LOOP CTR 


80916850 


0D97 


0. 70F7 




* 

* 
* 


B 




VERFE 

CHECK 


LOOP 

FOR EXPECTED CYLINDER 


80916860 
80916870 
80916880 
80916890 


0098 


CA09 






LDD 


2 


PCYL1K-TB 


SET PRINT MESSAGE 


80916900 


0099 


0AD3 






STD 


2 


M0D3-TB 


* 


80916910 


0D9A 


C246 






LD 


2 


C0MAC1-TB 


CK FOR EXPECTED CYLINDER 


80916920 


0D9B 


1883 






SRT 




3 


* 


80916930 


009C 


0205 






STO 


2 


M0D5-TB 


SAVE FOR PRINT 


80916940 


0090 


0209 






STO 


2 


PCYL#-TB 


SET AS PRESENT CYLINDER 


80916950 



DATE 


04N0V66 


010CT67 


15FEB68 


02DEC68 


14N0V69 


30JAN70 


20MAR-70 


EC NO. 


415233 


411875 


411913 


411961 


431319 


431319A 


431320 
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0809-2 
13 



DATE 
EC NO. 



0D9E F2DA 
0D9F 1 4C18 0DB9 



0DA1 

0DA2 
0DA3 
0DA4 
0DA5 
0DA7 



0DA8 
0DA9 
ODAB 
OOAC 
ODAE 
ODAF 
ODBO 
0DB1 
0DB2 
0DB3 
00B4 
0DB5 
0DB6 
0DB7 
0DB8 



42 30 

AEOD 

6303 

4221 

74FF 0889 

7088 



61FB 

CDOO 0A35 

DA 03 

CDOO 0A37 

DAD5 

7104 

7005 

4230 

8E8E 

6304 

4221 
4233 
4230 
8E0E 
70F0 



* 

VERFF 
VERFG 



VERFH 



C20A 

92E6 
ODBB 1 4C18 00C1 
ODBD 4218 

0D3O 

4230 

5A06 

6500 0000 



0DB9 

ODBA 



ODBE 
0D8F 
ODCO 
0DC1 



* 

* 
VERFI 



VERFX 
* 

* 
* - 



0DC3 
0DC4 
0DC5 
0DC6 
0DC7 
0DC8 
0DC9 
ODCB 
ODCC 
ODCD 



C2D9 

D2D3 

4820 

C28C 

F2C7 

1004 

4CA8 08B5 

4230 

4E12 

4C80 08B5 



ODCF 1 74FF 0888 
0DD1 70A7 
00D2 7005 



VERFJ 



EOR 
BZ 



BSI 

DC 

LDX 

BSI 

MDX 

B 



LDX 

LDD 

STD 

LDD 

STD 

MDX 

MDX 

BSI 

DC 

LDX 

BSI 

BSI 

BSI 

DC 

B 



LD 

S 

BZ 

BSI 

OC 

BSI 

DC 

LDX 



LD 

STO 

SKP 

LD 

EOR 

SLA 

BN 

BSI 

DC 

B 



MDX 

B 

B 



2 NCYL#-TB 
VERFI 



IS IT EXPECTED 
BRANCH IF YES 



CYLINDER ID NOT AS EXPECTED 

2 STMSG-TB PRINJ MESSAGE 
/AEOD MESSAGE ID 

3 SFTSK-SUMRY COUNT SOFT SEEK ERROR 
2 COUNT-TB * 

. WRRTY,-1 DECR RETRY COUNTER 
SEEK RETRY THE SEEK 

UNABLE TO REACH DESIRED CYLINDER 



1 -5 
LI BDCYL&5 

2 M0D3-TB 
LI BDCYL&7 

2 M0D5-TB 

1 4 
VERFH 

2 STMSG-TB 
/8E0E+/80 
HRDSK-SUMRY 



COUNT-TB 

TEXIT-TB 

STMSG-TB 

/8E0E 

VERFG 



SET LOOP COUNTER 
SET HARD ERROR MSG 

DECR CTR 

BRANCH 

PRINT 2ND LINE W/0 PID,MID 

FORM NO/MSG ID 

COUNT HARD SEEK ERROR 
* 

TERMINATE DFT 
PRINT LINE 1 
MESSAGE ID 
BRANCH 



REACHED PROPER CYLINDER-CHECK 
FOR PREVIOUS ERRORS 



2 WRRTY-TB 
2 K8-TB 

VERFX 
2 CKLK-TB- 

SEEK 
2 STMSG-TB 

/5A06 
LI *-* 



CK PREVIOUS ERRORS 

* 

GO EXIT RTN 

CHECK LOCK ON ERROR 

RETURN IF ON 

PRINT RECOVERED ERROR 

MESSAGE ID 

RESTORE INDEX 1 



CHECK HOME BIT FOR EXPECTED 

2 PCYLJS-TB GET PRESENT CYLINDER 

2 M0D3-TB * 

Z SKIP IF CYL ZERO 

2 TERM-TB MAKE HOME BIT ZERO 

2 ZSNS-TB * 

4 CHECK HOME BIT 

I .VERFY EXIT ROUTINE 

2 STMSG-TB PRINT HOME BIT INCORRECT 

/4E12 MESSAGE ID 

I VERFY EXIT ROUTINE 

SECTOR IDS ARE NOT SEQUENTIAL 

L RTCNT,-1 DECR RETRY COUNTER 

VERFB GO RETRY READ (NOT SEEK) 

VERFF ERROR BRANCH 



* . _ . . 

^nnnnnntmnnnnnunannrrannnnn mi aannuonnnnanannnnnci nana 

* -. ■'."•-.:'■""----' 

*'."■■:-."' :'.'■. READ SUB-ROUTINE 
'•*.'. ''■'' '■"'■'.':' 

snnaannnnnnonnnnnnonnnnnnnnnnananannnnnnnnaoannooaD 

* -•".. —■'■*.:'■■■' , ■•-"- 
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04 NOV 66 
415233 



010CT67 
411875 



15FEB68 
411913 



02DEC68 
411961 



14N0V69 
431319 



30JAN70 
431319A 



20MAR70 
431320 



80916960 
80916970 
80916980 
80916990 
80917000 
80917010 
80917020 
80917030 
80917040 
80917050 
80917060 
80917070 
80917080 
80917090 
80917100 
80917110 
80917120 
80917130 
80917140 
80917150 
80917160 
17170 
17180 
80917190 

80917200 

80917210 

80917220 

80917230 

80917240 

80917250 

80917260 

80917270 

80917280 

80917290 

80917300 

80917310 

80917320 

80917330 

80917340 

80917350 

80917360 

80917370 

80917380 

80917390 

80917400 

80917410 

80917420 

80917430 

80917440 

80917450 

80917460 

8 0917470 

80917480 

80917490 

80917500 

80917510 

80917520 

80917530 

80917540 

80917550 

80917560 

80917570 

80917580 

80917590 

80917600 

80917610 . 

80917620 

80917630 
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DATE 
EC NO. 



00D3 
0DD4 
0D05 
0D06 
0DD7 
0DD8 
0D09 
ODOA 



EAC3 
1890 
02DF 
D2E0 
C215 
DAC9 
1080 
C2DA 



* 

* 

* 

* 
* 

* 
* 
* 

* 

* 

* 
* 
* 

* 
* 

^ 

RDEN 



THIS ROUTINE WILL ISSUE THE - 
READ OPERATION, : CHECK THE DSW 
FOR ERRORS AND CALL THE 
COMPARE SUB-ROUTINE TO CHECK 
FOR ANY ERRORS. 

A MAXIMUM OF EIGHT RETRYS WILL 
BE MADE ON BOTH A DSW OR A 
COMPARE ERROR. 

THE LOCK ON ERROR OPTION WILL 
LOCK THE ROUTINE IN THE READ 
OPTION AS LONG AS THE SWITCH 
IS ON EVEN IF THE ERROR IS 
INTERMITTENT. 



ROUTINE CALL 



(A) = 

BSI 

DC 



DC 
DC 



SECTOR COUNT 
2 READ-TB 
WDCNT 



NUMBER 
C»PERR 



ODDB 1083 
ODOC D206 



ODDD 

ODDF 

ODEO 

0DE1 

0DE2 

0DE3 

0DE4 

0DE5 

0DE6 

0DE7 

0DE8 

0DE9 

ODEA 

ODEB 1 

ODED 

ODEE 



6780 08A3 

C300 

D2FE 

1001 

D2FF 

1001 

1802 

D245 

D200 

C301 

D20D 

C302 

D02A 

7401 08A3 

6305 

4221 



ODEF CAE6 
ODFO DADD 



0DF1 C28C 
0DF2 422A 



04N0V66. 
415233 



010CT67 
411875 



OR 

SRT 

STO 

STO 

LD 

STD 

SLT 

LD 

SLT 
STO 



LDX 

LD 

STO 

SLA 

STO 

SLA 

SRA 

STO 

STO 

LD 

STO 

LD 

STO 

MDX 

LDX 

BSI 

* 

READA LDD 
STD 

* 
* 
* 

READB LD 
BSI 



15FEB68 
411913 



NO. OF WORDS TO BE READ 

* BIT EOUAL 1 MEANS USE" 

* RANDOM DATA FOR COMPARE 

* BIT 1 EOUAL 1 MEANS TO 

* READ AND RETURN WITHOUT 

* CHECKING THE DSW OR DATA 
USED IN COMPARE 

ADRS OF CMP ERROR RETURN 



ART 
PAGE 



80917640 
80917650 
80917660 
80917670 
80917680 
80917690 
80917700 
80917710 
80917720 
80917730 
80917740 
80917750 
80917760 
80917770 
80917780 
80917790 
80917800 
80917810 
80917820 
80917830 
80917840 
80917850 
80917860 
17861 



2 DSK«D-TB COMBINE WITH READ 

16 A TO 

2 RDDSW-TB CLEAR DSW ERROR COUNTER 

2 RDCKP-TB CLEAR CMP ERROR COUNTER 
2 AOCMA-TB 

2 ZXIO-TB SET FOR XEQ CALL 

13 SECTOR TO 0-2 REG. 

2 NCYL*-TB GET CYL. # WHERE DISK S/B 
* AFTER LAST SEEK 

3 COMBINE FOR COMPARE 

2 IDS*B-TB PRESENT SECTOR ID 



13 READ GET CALLING ADRS+1 

3 GET WORD COUNT 

2 RSDCK-TB IF NEG. USE RANDOM NUMBERS 

1 CLEAR BIT O/BIT 1 SET 

2 NQCK-TB * MEANS DON'T CHECK FOR ER 

1 CLEAR BIT 1 

2 * 
CQKA-TB WORD COUNT 
LNSTH-TB * FOR COMPARE RTN 

1 GET NUMBER 
CHPTM-TB * FOR COMPARE RTN 

2 GET CMP ERROR ADRS 
ROCPX+1 SET FOR CMP ERROR EXIT 
READ.l INCR FOR NO-CHECK RETURN 
RDCNT-SUMRY POINTER FOR SUMMARY 
COUNT-TB INCR READ COUNT 



3 
2 



2 K8-TB 

2 RTRYA-TB 



SET RETRY COUNTER 
* TO 8 



PRESET I/O AREA TO /FFFF 



2 TESM-TB 
2 SETV-TB 



/FFFF 

CALL PRESET ROUTINE 



02DEC68 
411961 



14N0V69 
431319 



30JAN70 
431319A 



20MAR70 
431320 



80917870 
80917880 
80917890 
80917990 
80918000 
80918010 
80918020 
80918030 
80918040 
80918050 
80918060 
80918070 
80918080 
80918090 
80918100 
80918110 
80918120 
80918130 
80918160 
80918170 
18171 

18180 

80918200 
80918210 
80918220 
80918230 
80918240 
80918250 
80918260 
80918270 
80918280 
80918290 
80918300 
80918310 
80918320 
80918330 
80918340 
80918350 
80918360 
80918370 
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y 

I IBI'I .INT I 



JCE I .GNof 
2310 A/B FUNCTION TEST 

0DF3 423C 



0DF4 C2FF 
0DF5 1 4C28 0E09 



Pr(.Am4 the! .00 sL EM I ( I I ' 1 -ART L 2lJLa I ' 



0809-2 
14 



DATE 
EC NO, 



0DF7 
0DF8 
ODFA 
ODFB 
ODFC 
ODFD 
ODFE 
ODFF 1 
0E01 
0E02 1 
0E03 
0E04 
0E05 
0E06 



* 

* 
* 



* 

* 



ISSUE A READ OPERATION 
THRU THE XEO SUB-ROUTINE 



BSI 



2 XEO-TB 



ISSUE READ COMMAND 



IF NOCK NEG DONT CHECK FOR 

DSW ERRORS, BUT EXIT AS IF NORMAL READ. 



C2C7 

4C28 0E16 

40 39 

700F 

CADF 

DAD3 

82E0 

4C18 0E07 

4218 

ODEF 

6306 

4221 

4230 

3A02 



0E07 1 7402 08A3 
0E09 1 4C80 08A3 



OEOB 
OEOD 
OEOF 
0E10 
0E11 
0E12 
0E13 
0E14 



7401 085F 
74FF 085C 
70E1 
CADF 
DAD3 
4230 
3A05 
4C00 0000 



* 

READX 

* 

RDNCK 
* 

RDER1 



0E16 C2DF 
0E17 1 7401 















085E 



0E19 
0E1A 
0E1B 
0E1C 
0E1D 
0E1E 



421B 

7002 

4230 

5E09 

4016 

700F 

0E1F 1 74FF 085C 
0E21 70CF 



OE22 
0E23 
0E24 
0E25 
0E26 
0E27 
0E28 
0E29 
0E2A 



CADF 
DAD3 

4218 

1 ODEF 
4230 
3E0A 
6307 
4221 
C2DD 



RDCPX 
* 

RDER2 



RDR2B 



RDER3 



0E2B 1 4C18 0E07 

0E2D 70E6 

0E2E 1 7401 08 5F 
0E30 1 74FF 085D 
0E32 70BE 



LD 

BN 



LD 

BN 

BSI 

B 

LDD 

STD 

A 

BZ 

BSI 

DC 

LDX 

BSI 

BSI 

DC 

MDX 

B 

MDX 

MDX 

B 

LDD 

STD 

BSI 

DC 

B 

LD 

MDX 

BSI 

B 

BSI 

DC 

BSI 

B 

MDX 

B 

LDD 

STD 

BSI 

DC 

BSI 

DC 

LDX 

BSI 

LD 

BZ 



* 
RDER4 



B 

MDX 
MDX 
B 



2 NOCK-TB GET NO CHECK SWITCH 

RDNCK EXIT IF NEGATIVE 

CHECK DSW FOR ERRORS 

2 ZSNS-TB INTRPT DSW 

RDER2 BRANCH ON ERROR 

CMP CALL COMPARE RTN 

RDER1 COMPARE ERROR RETURN 

2 RDDSW-TB GET ERROR COUNTS 

2 M0D3-TB STORE IN CASE PRINT 

2 RDCMP-TB ADD COMPARE ERRORS 

READX BRANCH IF NO ERRORS 

2 CKLK-TB CHECK LOCK ON ERROR SW 
READA IF SET 

3 SFTRD-SUMRY POINTER 

2 COUNT-TB SOFT READ ERROR 

2 STMSG-TB PRINT MESSAGE 

/3A02 FORM NO. /MID 

L READ, 2 INCR FOR NORMAL RETURN 

I READ RETURN 



L 
L 

2 
2 
2 



RDCMP.l COUNT COMPARE ERROR 

RTRYA,-1 DECR RETRY COUNTER 

READB LOOP 

RDDSW-TB GET ERROR COUNTERS 

M0D3-TB STORE FOR PRINT 

STMSG-TB PRINT MESSAGE 

/3A05 FORM NO. /MID 

*-* COMPARE ERROR EXIT 

RDDSW-TB GET DSW ERROR COUNT 

RDDSW.l BUMP COUNT 

CKPRT-TB CK PRINT-ALL-ERRORS OPTION 

RDR2B BR AROUND PRINT 

STMSG-TB PRINT ERROR MESSAGE 

/5E09 MESSAGE ID 

CMP CALL COMPARE RTN 

RDER4 COMPARE ERROR RETURN 

RTRYA,-1 DECR RETRY COUNTER 

READB LOOP 



2 RDDSW-TB GET ERROR COUNTERS 

2 M0D3-TB STORE IN CASE PRINT 

2 CKLK-TB CHECK LOCK-ON-ERROR 

READA IF SET 

2 STMSG-TB PRINT MESSAGE 
/3E0A FORM NO. /MID 

3 HRDRD-SUMRY POINTER 

2 COUNT-TB HARD READ ERROR 

2 RTRYA-TB GET DSW RETRY COUNTER 

READX NORMAL EXIT/NO CMP ERRORS 
* ON LAST READ 

RDCPX TAKE CMP ERROR EXIT 

L RDCMP.l INCR CMP ERROR COUNT 

L RTRYB,-1 DECR CMP ERROR COUNT 

READB LOOP 



04N0V66 
415233 



010CT67 
411875 



15FEB68 
411913 



02DEC68 
411961 



14N0V69 
431 3-19 



30JAN70 
431319A 



20MAR70 
431320 



HART 
PAGE 



80918380 

80918390 

80918400 

80918410 

80918420 

80918430 

80918440 

80918450 

80918460 

80918470 

80918480 

80918490 

80918500 

80918510 

80918520 

80918530 

80918540 

80918550 

80918560 

80918570 

80918580- 

80918590 

80918600 

80918610 

80918620 

80918630 

80918640 

80918650 

80918660 

80918670 

80918680 

80918690 

80918700 

80918710 

80918720 

80918730 

80918740 

80918750 

80918760 

80918770 

80918780 

80918790 

80918800 

80918810 

80918820 

80918830 

80918840 

80918850 

80918860 

80918870 

80918880 

80918890 

80918900 

80918910 

80918920 

80918930 

80918940 

80918950 

80918960 

80918970 

80918980 

80918990 

80919000 

80919010 

80919020 

80919030 

80919040 

80919050 



PROG ID 
PAGE 



/8 
14A 



0809-2 
14A 



lBt\ ,INt( JCE ( GNO<| 
2310 A/B FUNCTION TEST 
0E33 70EE 



PR 



I AM 4 THE! 00 si EM \ I I I I ART I . 21<J 



/ 



B 



R0ER3 



60 EXIT 



0E34 
0E35 
0E36 
0E37 
0E38 
0E39 

0E3A 
0E3B 
0E3D 
0E3E 
0E3F 
0E40 
0E41 
0E42 
0E43 
0E44 
0E45 
0E46 
0E48 
0E49 
0E4B 
0E4C 
0E4D 
0E4F 
0E50 
0E51 
0E53 
0E54 
0E55 
0E56 
0E57 

0E58 
0E5A 
0E5C 
0E5E 
0E5F 
0E61 
0E62 



0000 
1010 
0202 
D207 
C2E1 
D201 



*DQD 

* 

*□□□ 

* 

* 
* 
* 
* 

* 

* 
* 

* 

CMP 



onnDnnnnnnnnnnnnnnnnnonDnnnnannnnnnnnnDnDnmnnDn 

COMPARE SUB-ROUTINE 

nnnannanannnnonnoDannnnnnnnnnDoonDnnDnnnaonnnnn 
THIS ROUTINE WILL CHECK AORS 
READ AGAINST ADRS EXPECTED AND 
COMPARE DATA EXPECTED AGAINST 
DATA READ. 

ERROR PRINTOUTS WILL INCLUDE 
ADRS, WORD NUMBER, EXPECTED, 
RECEIVED AND TOTAL NUMBER OF 
ERRORS. 

AN OPTION OF PRINT ONLY FIRST 
ERROR OR PRINT ALL ERRORS IS 
PROVIDED 

ROUTINE CALL 



BSI 

MDX 



CMP 
CMPERR 



ERROR RETURN 



C200 

1 4C18 0E58 
C20D 

D205 
CA06 
DA03 
402C 
C20D 
D204 
7004 
C2FE 

1 4C28 0EA1 
705B 

7401 0880 

C20i 

9200 

4C08 0E45 

C202 

D2D3 

4C18 0E5S 

C2E0 

421B 

7002 

4230 

4E90 



CMP1 



CMP2 



1 6780 0880 
1 C700 08C4 

8700 08C5 

82E2 

4C18 0E67 

C2E0 

421B 



CMP3 



OC 

SLA 

STO 

STO 

LD 

STO 

LD 

BZ 

LD 

STO 

LDD 

STD 

BSI 

LD 

STO 

B 

LD 

BN 

B 

MDX 

LD 

S 

BNP 

LD 

STO 

BZ 

LD 

BSI 

B 

BSI 

DC 

LDX 

LD 

A 

A 

BZ 

LD 

BSI 



*-* 

16 

ERCT-TB 

LPRNT-TB 

Kl-TB 

INDEX-TB 

LNGTH-TB 

CMP3 

CMPTM-TB 

S#B£1-TB 

IDS#B-TB 

S#B-1-TB 

CMPB 

CMPTM-TB 

S#B-TB 

CMP2 

RNDCK-TB 

CMRND 

CMRN1 

INDEX, 1 

INDEX-TB 

LNGTH-TB 

CMP1 

ERCT-TB 

M0D3-TB 

CMP3 

RDCMP-TB 

CKPRT-TB 

CMP3 

STMSG-T8 

/4E10+/80 



13 INDEX 
L3 COMA 
L3 C0MAE1 
2 K2-TB 

CMPX 
2 RDCMP-TB 
2 CKPRT-TB 



ROUTINE ENTRANCE 

ZERO A 

CLEAR ERROR COUNT 

CLEAR LAST-WORD-PRINTED 

SET INDEX TO ONE 

* 

GET RECORD LENGTH 

BRANCH IF ZERO 

GET NUMBER TO COMPARE WITH 

SET 

GET ID EXPECTED 

SET 

GO MAKE COMPARISION 

SET NUMBER 

SET 

CHECK FOR FINISHED 

GET RANDOM INDICATOR 

BRANCH IF ON 

GO TEST FOR BAD DATA 

INCR INDEX 

GET CONTENTS INDEX 

CK FOR COMPLETE 

BRANCH IF NOT FINISHED 

GET ERROR CNT 

STORE FOR PRINT 

BRANCH IF ZERO 

GET CMP ERROR COUNT 

CK PRINT-ALL-ERRORS 

BRANCH IF NOT SET 

PRINT NO. OF ERRORS 

FORM #/MSG ID 

IX EQUAL WD CT 

GET REC LNGTH £1 

ADD REC LNGTH £2 

ADD 2 

BRANCH IF. AS EXPECTED 

GET CMP ERROR COUNT 

CK PRINT-ALL-ERRORS OPTION 



DATE 
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010CT67 


15FEB68 


02DEC68 


14N0V69 


30JAN70 


20MAR70 


EC NO. 


415233 


411875 


411913 


411961 


431319 


431319A 


431320 
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80919060 
80919070 
80919080 
80919090 
80919100 
80919110 
80919120 
80919130 
80919140 
80919150 
80919160 
80919170 
80919180 
80919190 
80919200 
80919210 
80919220 
80919230 
80919240 
80919250 
80919260 
80919270 
80919280 
80919290 
80919300 
80919310 
80919320 
80919330 
80919340 
80919350 
80919360 
80919370 
80919380 
80919390 ' 
80919400 
80919410 
80919420 
80919430 
80919440 
80919450 
80919460 
80919470 
80919480 
80919490 
80919500 
80919510 
80919520 
80919530 
80919540 
80919550 
80919560 
80919570 
80919580 
80919590 
80919600 
80919610 
80919620 
80919630 
19640 
19650 
80919660 
80919670 
80919680 
80919690 
80919700 
80919710 
80919 720 
80919730 
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2310 A/B FUNCTION TEST 



0809-2 
15 



0E63 
0E64 
0E65 
0E66 
0E67 
0E68 
0E6A 
0E6C 



0E6E 
0E6F 1 
0E71 1 
0E73 1 
0E75 1 
0E77 
0E78 
0E79 
0E7A 1 
0E7C 1 



7002 
4230 
7E11 

C2E1 
8202 

4C20 0E6C 
7401 0E34 
4C80 0E34 

0000 

6780 0880 
F700 08C4 
4C98 0E6E 
7700 08C4 
1000 
6B37 
C202 

7401 0881 
4C18 0E8B 



0E7E 421B 
0E7F 701F 



0E80 
0E81 
0E82 
0E83 
0E85 
0E87 
0E88 
0E8A 

0E8B 
0E8C 
0E8D 
0E8E 
0E8F 
0E90 
0E91 
0E92 
0E94 



C207 
82E1 
9201 

4C18 0E97 
4C28 0E95 
92E1 

4CA0 0E6E 
700E 

C2E0 

421B 

7002 

4230 

7E10 

C201 

92E1 

4C20 0E80 

7002 



0E95 63FF 
0E96 4014 



0E97 6300 
0E98 4012 



0E99 C200 
0E9A 9201 
0E9B 1 4C98 0E6E 



0E9D 6301 
0E9E 400C 
0E9F 1 4C80 0E6E 



CMP4 
CMPX 



CMPEX 
* 

CMPB 



B 

BSI 

DC 

LD 

A 

BNZ 

MDX 

BSC 

DC 

LDX 

EOR 

BZ 

MDX 

NOP 

STX 

LD 

MDX 

BZ 



2 
2 

L 

I 



* 



* 



CMP4 BRANCH "IF NOT SET 

STMSG-TB PRINT OVERREAD 

/7E11 MSG ID 

Kl-TB MAKE SURE A REG. NON-ZERO 

ERCT-TB CK IF ANY ERRORS 

CMPEX BRANCH IF YES 

CMP,1 INCR RETURN 

CMP EXIT ROUTINE 

*-* ENTRY 

13 INDEX GET INDEX 

L3 COMA COMPARE WITH S/B 

I CMPB EXIT IF EQUAL 

L3 COMA INCR IX BY ADRS OF COMA 
64K PROTECT 

3 PNTC+1 SET FOR POINTER 

2 ERCT-TB GET ERROR CNT MINUS 1 

L ERCT.l INCREMENT ERROR COUNT 

CMPB2 BRANCH IF FIRST CMP ERROR 



CHECK PRINT ALL ERRORS OPTION 

BSI 2 CKPRT-TB CK PRINT-ALL-ERRORS OPTION 
B CMPB6 BRANCH IF NOT SET 

PRINT ADDITIONAL ERRORS 



CMPB1 LD 
A 
S 

BZ 

BN 
S 

BNZ 
B 



CMPB2 



CMP2A 



LD 

BSI 

B 

BSI 

DC 

LD 

S 

BNZ 

B 



CMPB3 

* 

CMPB4 

* 

* 
CMPB5 



LPRNT-TB TEST TO SEE IF BAD WORDS 

Kl-TB * AND PREVIOUS WORD HAVE 

INDEX-TB * BEEN PRINTED YET 

CMPB4 BRANCH TO PRINT BAD WORD 

CMPB3 BRANCH/PRINT PREVIOUS WORD 

Kl-TB TEST FOR NEXT WORD PRINTED 

CMPB EXIT IF LAST WORD 

CMPB5 BAD WORD+1 NOT PRINTED YET 

RDCMP-TB GET CMP ERROR COUNT 

CKPRT-TB CK PRINT-ALL-ERRORS OPTION 

CMP2A BRANCH IF NOT SET 

STMSG-TB PRINT MESSAGE 

/7E10 MESSAGE ID 

INDEX-TB GET POINTER 

Kl-TB * TO ONE (1) 

CMPB1 BRANCH IF NOT EQUAL 

CMPB4 PRINT BAD WORD 



PRINT WORD PREVIOUS TO BAD WORD 



LDX 
BSI 



3 -1 
PNTB 



PRINT BAD WORD 



LDX 
BSI 



3 
PNTB 



INDEX-1 

PRINT 



SET POINTER 
PRINT 



TEST IF LAST WORD 

LD 2 LNGTH-TB 

S 2 INDEX-TB 

BZ I CMPB 



* 

* 
* 



GET RECORD LNGTH 

TEST FOR END 

EXIT IF LAST WORD WAS JUST 

* PRINTED 



PRINT WORD FOLLOWING BAD WORO 



LDX 3 1 
BSI PNTB 
CMPB6 B I CMPB 



-SET POINTER 
PRINT FORM 2 
RETURN 



DATE . 
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010CT67 
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411875 


.411913 


411961 


431319 


431319A 


431320 
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80919740 

80919750 

80919760 

80919770 

80919780 

80919790 

80919800 

80919810 

80919820 

80919830 

80919840 

80919850 

80919860 

80919870 

80919871 

80919880 

80919890 

80919900 

80919910 

80919920 

80919930 

80919940 

80919950 

80919960 

80919970 

80919980 

80919990 

80920000 

80920010 

80920020 

80920030 

80920040 

80920050 

80920060 

80920070 

80920080 

80920090 

80920100 

80920110 

80920120 

80920130 

80920140 

80920150 

80920160 

80920170 

80920180 

80920190 

80920200 

80920210 
80920220 
80920230 
80920240 
80920250 
80920260 
80920270 
80920280 
80920290 
80920300 
80920310 
80920320 
80920330 
80920340 
80920350 
80920360 
80920370 
80920380 
80920390 
80920400 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2310 A/B FUNCTION TEST 



(1(11 



r 



OEAl 
0EA2 
0EA3 
0EA4 
0EA5 
0EA6 
0EA7 
0EA8 
.0EA9 
OEAA 

OEAB 
OEAC 
OEAD 
OEAE 
OEAF 
0EB1 
0EB2 
0EB4 
0EB5 
0EB7 
0EB8 
OEBA 
OEBC 
OEBD 
OEBE 



C204 
4227 
D205 
C204 
40C8 
C204 
D203 
C205 
D204 
709E 

0000 
C2E0 
421B 
7 OOF 

C700 0000 
D2D5 

C700 0883 
02 D4 
7780 0880 



1000 
1 6F00 0852 
1 6F00 0886 
4230 

6E90 

1 4C80 OEAB 



CMRN1 



CMRND LD 
BSI 
STO 
LD 
BSI 
LD 
STO 
LD 
STO 
B 



PNTB 



PNTC 



PNTBX 

* 

* 



DC 

LD 

BSI 

B 

LD 

STO 

LD 

STO 

MDX 

NOP 

STX 

STX 

BSI 

DC 

B 



2 
2 

L3 
2 

L3 
2 

13 

L3 

L3 

2 



S#B-TB 

RNDOM-TB 

S#B£1-TB 

S#B-TB 

CMPB 

S#B-TB 

S#B-1-TB 

S#BE1-TB 

S#B-TB 

CMP2 

*-* 

RDCMP-TB 

CKPRT-TB 

PNTBX 

*-* 

M0D5-TB 
S#B 

M0D4-TB 
INDEX 

M0D3 

LPRNT 

STMSG-TB 

/6E10+/80 

PNTB 



GET CURRENT NUMBER 

GET NEXT NUMBER 

SET 

CK CURRENT NUMBER 

* 

SET PREVIOUS NUMBER 

SET CURRENT NUMBER 

CK FOR COMPLETE 

ENTRY 

GET CMP ERROR COUNT 



80920410 
80920420 
80920430 
80920440 
80920450 
80920460 
80920470 
80920480 
80920490 
80920500 
80920510 
80920520 
80920530 
809 20540 



CK PRINT-ALL-ERRORS OPTION 80920550 



DON'T PRINT IF NOT SET 

GET WORD READ 

SET FOR PRINT 

GET WORD EXPECTED 

SET -FOR PRINT 

ADJUST INDEX 

IN CASE SKIP OCCURS 

SET FOR PRINT 

SET AS LAST WORD PRINTED 

PRINT W/0 PID, MID, RID, RAD 

FORM #/MSG ID 

EXIT 



*nnnnnnnnnnannnnnnnnnnnnnnnnDnQDnnannnnnnncmnnnnnnn 
* 



WRITE ROUTINE 



THE ROUTINE WILL INSERT 
THE WORD COUNT AND THE 
AS THE FIRST TWO WORDS 
I/O AREA AND ISSUE THE 
THRU THE XEO ROUTINE. 



DISK ADRS 
OF THE 
WRITE 



DSW IS CHECKED 



* 
* 

snnanonnnnnanaDnnnnnnnannDoanaDnDnnnnnnnDDnnnnannDn 

* 

* 
* 
* 
* 
* 

* 
* 

* 

* 

* 

* 



AFTER INTRPT THE 
FOR ANY ERRORS. 



IF ERRORS ARE 
WILL RETRY UP 



FOUND THE ROUTINE 
TO EIGHT TIMES. 



LOCK ON ERROR OPTION IS 
PROVIDED AND WILL LOCK THE 
ROUTINE IN WRITE ON EITHER AN 
INTERMITTENT OR SOLID ERROR. 

THE LOCK WILL REMAIN IN EFFECT 
UNTIL THE SWITCH IS CLEAREO. 



**** ROUTINE CALL 

* 

A REG. 
BSI 



DC 



DC 

DC 



= SECTOR COUNT 
2 WRITE-TB 
WORD COUNT 
BIT EQUAL 1 MEANS 
DON'T PRESET I/O AREA. 
BIT 1 MEANS WRITE/RETURN 
W/0 CKING DSW FOR ERRORS 
NUMBER USED AS PRESET 
ADRS TO RETURN TO 
IF 8 RETRYS FAIL 



DATE 
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80920590 
80920600 
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80920680 
80920690 
80920700 
80920710 
80920720 
80920730 
809 20740 
80920750 
80920760 
80920770 
80920780 
80920790 
80920800 
80920810 
80920820 
80920830 
80920840 
80920850 
809 20860 
80920870 
80920880 
80920890 
80920900 
80920910 
80920920 
80920930 
80920940 
80920950 
80920960 
80920970 
80920980 
80920990 
80921000 
80921010 
80921020 
80921030 
21031 

80921040 
80921050 
80921060 
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0809-2 
16 



t , DATE 
EC NO. 



OECO 

0EC1 

0EC2 

0EC3 

0EC4 

0EC5 

0EC6 

0EC7 

0EC8 

0EC9 

OECA 

OECB 

OECC 

OECD 

OECE 

OEDO 

0ED1 

0ED2 

0ED3 

0ED4 

0ED5 

0ED6 

0ED7 

0ED8 



EAC2 

1890 

D20B 

C215 

DAC9 

108D 

C2D9 

1083 

D206 

D246 

6308 

4221 

C2E6 

D20A 

6780 08B8 

C302 

0026 

C300 

D2FF 

18DE 

1802 

D245 

18C1 

4C28 OEDC 



* 
*• 
WRTE 



OEDA C301 
OEDB 422A 

OEDC 1 7402 08B8 



OEDE 423C 



OEDF C2FF 
OEEO 1 4C28 0F05 



0EE2 C2C7 
0EE3 1 4C10 0EF9 

0EE5 1 7401 088A 



0EE7 4230 
0EE8 5E0B 
0EE9 C20B 
OEEA 4218 
OEEB 1 OEDE 



OEEC 1 74FF 0889 
OEEE 70EF 



OEEF C20B 
OEFO D2D3 



* 

* 



* 



* 

* 
* 



N OR 
SRT 
STO 
LD 
STD 
SLT 
LD 
SLT 
STO 
STO 
LDX 
BSI 
LD 
STO 
LDX 
LD 
STO 
LD 
STO 
RTE 
SRA 
STO 
RTE 
BN 

LD 
BSI 



* 

WRTF 

* 

* 

* 

* 

WRTA 

* 



WRMOD-TB COMBINE WITH WRT FNC 

16 A TO 
WRERR-TB CLEAR ERRO CNT 

ADCMA-TB ADRS OF COMA 
ZXIO-TB SET FOR XEO 

13 POSITION SECTOR COUNT 

PCYL#-TB GET PRESENT CYLINDER 

3 CREATE SECTOR ID 

IDS#B-TB UPDATE SECTOR ID 

COMA+1-TB SET FOR WRITE OP 
WRCNT-SUMRY POINTER 

COUNT-TB INCR WRITE COUNT 

K8-TB SET RETRY COUNTER 

WRRTY-TB * TO EIGHT 

13 WRITE GET ADRS OF CALL+1 

3 2 GET ERROR RETURN ADDRESS 

WRTE+1 SET FOR EXIT 

3 GET WORD COUNT WORD 

2 NOCK-TB BIT MEANS DON'T CK ERROR 

30 SAVE BITS 0-1 

2 WORD CNT W/0 BIT 0-1 

2 COMA-TB SET WORD COUNT 
1 GET BIT 1 BACK 

WRTF BIT SET MEANS DON'T 
* PRESET THE I/O AREA 

3 1 NUMBER 
2 SETV-TB PRESET I/O AREA 



2 
2 
3 
2 
2 
2 



80921070 
80921190 
80921200 
80921210 
80921220 
80921230 
80921240 
80921250 
80921260 
80921270 
80921280 
80921290 

80921300 
80921310 
80921320 
80921330 
80921340 



MDX L WRITE, 2 CREATE NORMAL RETURN ADRS 



BSI 



ISSUE WRITE THRU XEO RTN 
2 XEQ-TB ISSUE WRITE COMMAND 



IF NOCK NEGATIVE, DON'T CHECK FOR 

DSW ERRORS BUT EXIT AS IF NORMAL WRITE. 



LD 

BN 



LD 
BNN 

MDX 



BSI 

DC 

LD 

BSI 

DC 



MDX 
MDX 



LD 
STO 



2 NOCK-TB 
WRTX2 



GET NO CHECK SWITCH 
IF NON-ZERO, EXIT 



CHECK FOR DSW ERRORS 



2 ZSNS-TB 
WRTC 



INTRPT DSW 

BRANCH IF NO ERROR 



L WRERR.l INCR ERROR SWITCH 
PRINT DSW ERROR MSG 



2 STMSG-TB 

/5E0B 
2 WRERR-TB 
2 CKLK-TB 

WRTA 



CALL SET MSG RTN 

MESSAGE ID 

GET ERROR SW 

CK LOCK ON ERROR 

RETURN ADRS IF ON 



LOCK ON ERROR SW IS OFF 



WRRTY,-1 
WRTA 



DECR RETRY CTR 
LOOP-8 TIMES 



EIGHT RETRYS HAVE FAILED 
PRINT UNRECOVERABLE WRT 



2 WRERR-TB 
2 M0D3-TB 



GET ERROR CNT 
SET FOR PRINT 



04N0V66 
415233 



010CT67 
411875 



15FEB68 
411913 



02DEC68 
411961 



14N0V69 
431319 



30JAN70 
431319A 



20MAR70 
431320 



80921410 

80921420 

80921430 

80921440 

80921450 

80921460 

80921470 

80921480 

80921490 

80921500 

80921510 

80921520 

80921530 

80921540 

80921550 

80921560 

80921570 

80921580 

80921590 

80921600 

80921610 

80921620 

80921630 

80921640 

80921650 

80921660 

80921670 

80921680 

80921690 

80921700 

80921710 

80921720 

80921730 

8 0921740 

80921750 

80921760 

80921770 

80921780 

80921790 

80921800 

80921810 

80921820 

80921830 
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c 

c 
6 

c 
c 

G 

u 

C 



■ i«<tiMnMiMM<»vlt! 



IBM MAINffcNANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM „..,, .» 






2310 A/B FUNCTION TEST 



DATE ".. 
EC NO. 



0EF1 4230 
0EF2 4E0C 

0EF3 630A 
0EF4 4221 
0EF5 C28C 
0EF6 0246 
OEF? 4C00 0000 



WRTE 

* 



BSI 
OC 

LOX 

esi 

LD 

STO 

B 



STMSG-TB 
/4E0C 



HARD WRITE ERROR 
MESSAGE 10 



3 

2 
2 

2 



HROWR-SUMRY POINTER 

COUNT-TB INCR HARD WRITE ERROR 

TERM-TB GET FFFF 

C0MAC1-TB SET IN I/O AREA 

*-* DSW ERROR EXIT 

WRITE WAS SUCCESSFUL 



0EF9 
OEFA 
OEFB 
OEFO 
OEFE 
OEFF 
OFOO 
0F01 
0F02 



C20B 

0203 

4C18 0F03 

4218 

.OEDE 

6309 

4221 

4230 

4A03 



0F03 1 7401 08B8 
OF 05 C28C 
0F06 0246 
0F07 1 4C80 0888 



WRTC LO 
STO 
BZ 
BSI 
DC 
LOX 
BSI 
BSI 
DC 

WRTX MOX 
WRTX2 LO 

STO 

B 



WRERR-TB 

M0D3-TB 

WRTX 

CKLK-TB 

HRTA 

SFTWR-SUMRY 

COUNT-TB 

STMSG-TB 

/4A03 



ANY PREVIOUS ERRORS 

SET FOR PRINT 

BRANCH IF NONE 

ELSE CHECK LOCK-ON-ERR 

RETURN ADRS IF ON 

POINTER 
INCR SOFT WRITE ERROR 
RECOVERED ERROR 
MESSAGE ID 



WRITE, 1 
TERM-TB 
COMAE 1-TB 
WRITE 



INCR RETURN 

GET FFFF 

SET IN I/O AREA 

EXIT 



*nnnnnnnDnDnonnnnnDnannnnDnnnnnnnnnnnnonnanannnnnnn 

SUB-ROUTINE RNOOM 

innDDDDDDDDnDDDonflnnnnDnDnnnnDDDDnDDnnnnoDDnDODD 
RANDOM NUMBER GENERATOR 

ROUTINE IS ENTERED WITH PREVIOUS NUMBER 
THAT WAS GENERATED, IN THE A REG. 

ROUTINE EXITS WITH A NEW 16-BIT 
NUMBER IN THE A REGISTER*- 



* 

*DDO 

* 

* 

* 
*_ 



ROUTINE CALL 

A REG • NUMBER 
BSI 2 RNOOM-TS 



0F09 1 4C04 0F10 
OFOB F28C 
OFOC A2C1 
OFOD 1090 
OF0E 1 4C80 08A6 

0F10 F28C 
OF 11 70FC 



RNDME BOO 
EOR 
M 
SLT 

RNOMX B 

* 

RNDMB EOR 
B 

* 

* 

* 



RNDMB IF ODD JUST COMPLEMENT 

2 TERM-TB ELSE COMPLEMENT... 

2 K259-TB ** AND GENERATE NEW NUMB. 

16 GET LOW ORDER 16 BITS 

I RNOOM . EXIT - . 

2 TERM-TB COMPLEMENT NUMBER 

RNDMX AND EXIT 



*oooaannannammaaannaoaanaana!3DE]acmonnaaaoiiaaanDnEia 

* ROUTINE TO CHECK FOR LOCK 
••-.-" ON ERROR OPTION - 

*■'.' '■ ■•■.."•■ ■ ■'_ ' •>• '-"-'"---■■■■■ ; . ' '■• ■ :■ ". 

**** ROUTINE .■■OU^ ? i . - ;.'. - ; '' X J •,-'-",',' .i_ ~ 

* .". '."•';.:.-.-:'..- '. '■'-----■'•■.'•-.?. ',"'■' : :..-. : " ■; , '•- --,.' 
;*•:- BSI ..'■'• 2 CKLK-TB- VC- -\V"- ■■■.■' . : "-:- ■ ■ ' 'r. "-V ; ' 

,*,"' DC ADRS TO RETURN TO IF SW IS SET. 

-"*v:--'.- : " -' ■-: ^ •-'■', >.-."-"-:' ,-/:■,- .' .- ':■■■ . ; .■>•■ ...- .•-■•-.-■ 



PART NO. 
PAGE 



80921840 

80921850 

80921860 

80921870 

80921880 

80921890 

80921900 

80921910 

80921920 

80921930 

80921940 

80921950 

80921960 

80921970 

80921980 

80921990 

80922000 

80922010 

80922020 

80922030 

80922040 

80922050 

80922060 

80922070 

80922080 

80922090 

80922100 

80922110 

80922120 

80922130 

80922140 

80922150 

80922160 

80922170 

80922180 

80922190 

80922200 

80922210 

80922220 

80922230 

80922240 

80922250 

80922260 

80922270 

80922280 

80922290 

80922300 

80922310 

80922320 

80922330 

80922340 

80922350 

80922360 

80922370 

80922380 

80922390 

80922400 

80922410 

80922420 

80922430 

80922440. 

80922450 

80922460 

80922470 — 

80922480 . 

80922490": 

80922500 V: 

809225io :;I 



2196378 
17 



04N0V66 
415233 



010CT67 
411875 



15FEB68 
411913 



020EC68 
411961 



14N0V69 
431319 



30JAN70 
431319A! 



20MAR70 
431320 
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: 



0809-2 
r 17 



I 



t 



DATE 
EC NO. 



sannnDDDDnonnnoDonnnDnnnDnnonDnnnonnDcmnnnnnnQDantjn 



0F12 


1 


4C18 


0F1C 


CKLKE BZ 




CKLK2 


0F14 


1 


C480 


0897 


LD 


I 


CKLK 


OF 16 





0004 




STO 




CKLK1+1 


OF 17 





18 00 




RTE 




16 


OF 18 





C283 




LO 


? 


SWO-TB 


0F19 





108C 




SLT 




12 


0F1A 





4C28 


0000 


CKLK1 BN 


L 


*-* 


0F1C 


1 


7401 


0897 


CKLK2 MOX 


1 


CKLK,1 


0F1E 


1 


4C80 


0897 


BSC 


I 


CKLK 






— .— 


rl „ T „, M , 


0F20 


1 


4C18 


0F26 


CKPRE BZ 




CKPRA 


OF 22 





C283 




LD 


7 


SWO-TB 1 


0F23 





100A 




SLA 




10 


OF 24 


1 


4C90 


089A 


•BNN 


I 


CKPRT I 


0F26 


1 


7401 


089A 


CKPRA MOX 


1 


CKPRT, 1 


OF 28 


1 


4C80 


089A 


B 


I 


CKPRT. ! 



DON«T CK IF A REG. ZERO 

GET LOCK ADRS 

SET AS RETURN 

SET IN O 

GET SW FNC 

CK FOR LOCK ON ERROR 

BRANCH IF ON 

INCR RETURN 

EXIT SUB-ROUTINE 



DON'T TEST IF ZERO 

GET FNC SW 00 

BIT 10 

EXIT IF NOT SET 

BUMP RETURN 

EXIT 

♦nnnnnnDnnonDnnnDnnnnnnnnDncDnQncnnnnaDDnnnnnnnnnnn 

* SUB-ROUTINE SETV 

.* 

♦DnnnnDnnnnnnnnDnnnDnnnnnnnDnDDnnnDDDnnnnnDnnDDnnon 
**** ROUTINE CALL 



0F2A 
0F2C 
0F2D 
0F2F 
OF 30 
OF 31 



6780 08C4 
7301 

D700 08C5 
73FF 
70FC 
4C80 08A9 



* 
* 

* 

SETVE LDX 
MDX 

SETVA STO 
MDX 
B 
8 



(A)=WORD TO BE PRESET 
BSI 2 SETV-TB 



IN I/O AREA 



13 COMA 
' 3 1 

L3 C0MAC1 
3 -1 
SETVA 
SETV 



I 



GET NO. WORDS TO BE READ 

INCR BY ONE 

STORE WORD IN I/O AREA 

DECR COUNT 

LOOP 

EXIT 



PRINT SUMMARY TABLE 



♦nnnnnnDQnDnQnnnnnnnDnnnnnnnnnnnonnijnnnnnoninijnnnDon 

* 
* 

**** ROUTINE CALL 

* BSI 2 TEXIT-TB 

*■..,-;•■ ■•' • ':. .-./■ '..:,..... .,.,■"'. 

****ALTERNATE CALL J" 

* BSC L OFTXT , 

* :. 

* THIS ROUTINE WILL PRINT THE SUMMARY TABLE 

* AND SET SW 15 IN FUNCTION ZERO. 
*DDnonnDnnnnnnDBDDDDnDDDnnBDDnoDnnnDDDnnnnDnDDnDDDD 

: '* .■"':"-.■'■ : ' : .'■■'•-' ■'■■:. - '■■■ ■'.'■■' ■ --'■', 



TERMINATE OFT 



OF 33 C283 


OFTXT LD 


2 SWO-TB 


0F34 EAE1 


OR 


2 Kl-TB 


OF 35 D283 


STO 


2 SWO-TB 


0F36 4230 


BSI 


2 STMSG-TB 


OF 37 5A04 


OC 


/5A04 


0F38 1 7401 086B 


PR SUM MDX 


L PSSCT,! 


0F3A 6500 1001 


LOX 


LI /1001 


0F3C 6921 


STX 


1 ID 


OF 30 6103—: 


— • " • LOX 


-13 " 


0F3E 1,6700 086C 


LDX 


L3SKCNT 


0F40 4013 


PRLN1 BSI 


PRSM1 ■■-.-" 


0F4I 7303 


MDX 


3 3 : ; - 


0F42 71FF 


MDX 


1 -1 



FUNCTION 00 

SET BIT 15 TO TERMINATE 

* OFT PROGRAM 

TERMINATE OFT 

MESSAGE ID. 

INCR PASS COUNT 

FORM #/MIO 

SET FOR CALL 

SET LINE COUNT ~ ~ 

SET ADDRESS SUMRY TABl E 

PRINT ONE LINE 

INCR AC.RS POINTER 

OECR LINE COUNT.' 



04 NOV 66 
415233 



010CT67 
411875 



15FEB68 
411913 



02DEC68: 
411961 



14N0V69 
431319 



30 J AN 70 
431319A 



20MAR70 
431320 



80922520 
80922530 
80922540 
80922550 
80922560 
80922570 
80922580 
80922590 
80922600 
80922610 
80922620 
80922630 
80922640 
80922650 
80922660 
80922670 
80922680 
80922690 
80922700 
80922710 
80922720 
80922730 
80922740 
80922750 
80922760 
80922770 
80922780 
80922790 
80922800 
80922810 
80922820 
80922830 
80922840 
80922850 
80922860 
80922870 
80922880 
80922890 
80922900 
80922910 
80922920 
80922930 
80922940 
80922950 
80922960 • 
80922970 
80922980 
80922990 
80923000 
80923010 
80923020 
80923030 
80923040 
80923050 
80923060 
80923070 . 
80923080 
80923090 
80923100 
80923110 .- 
80923120 - 
23130 
23140 
80923150"?- 
23160 
23189 • 
80923190 .; 
80923200 - 
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DATE 
EC NO. 



0F43 

0F44 

0F46 

0F47 

0F48 

0F4A 

0F4B 

0F4C 

0F4D 

0F4E 

0F4F 

0F50 

OF 51" 

OF52 

0F54 

OF55 

0F56 

0F57 

0F58 

0F59 

0F5A 

0F5B 

0F5C 

0F5D 

0F5E 

0F5F 

0F60 

0F61 

0F62 



70FC 

6500 3D81 

6917 

400C 

6500 6D81 

6913 

6103 

7301 

4006 

7302 

71FF 

70FC 

422D 

4C80 012E 

0000 

C2EC 

D2D3 
C300 
D2D4 
C301 
D2D5 
C302 
D2D6 
4230 
0000 
COFE 
EAC6 
DOFC 
4C80 0F54 



1 



0F64 1 C700 086A 
0F66 82E1 

0F67 1 D700 086A 
0F69 92EA 

0F6A 1 4CA0 08A0 
0F6C 70FA 



MDX 

LDX 

STX 

BSI 

LDX 

STX 

LDX 

MDX 
PRLN3 BSI 

MDX 

MDX 

MDX 

BSI 

BSC 
PRSM1 DC 

LD 

STO 

LD 

STO 

LD 

STO 

LD 

STO 

BSI 
ID DC 

LD 

OR 

STO 

BSC 

*nnnnnnnnn 
* 

* 
*QnoaDonnQnnannnnnnnnnnnnnDannnDnnnnnnDnnaDnnannnnn 



PRLN1 
LI /3D01+/80 

ID 

PRSM1 
LI /6D01+/80 

ID 

3 

1 

PRSM1 

2 

-1 

PRLN3 

STMLS-TB 

END 

*-* 

PSSCT-TB 

M0D3-TB 



M0D4-TB 

1 

M0D5-TB 

2 

M0D6-TB 

STMSG-TB 

*-* 

ID 

H0080-TB 

ID 

PRSM1 



2 
2 
3 
2 
3 
2 
3 
2 
2 



□□□□□□□nnnnnan 



LOOP-PRINT 3 LINES 
FORM A/MESSAGE ID 
SET FOR CALL 
PRINT ONE LINE 
FORM S/MSG ID 
SET FOR CALL 
SET LINE COUNTER 
SET ADRS POINTER 
PRINT ONE LINE 
INCR ADRS POINTER 
DECR LINE COUNTER 
LOOP-PRINT 3 LINES 
EXIT TO MONITOR 
TERMINATE OFT 
SUBRTN ENTRY PT 
GET PASS COUNT 
SET IN MSG 
GET MODIFIER WORD 
SET IN MSG 
GET MODIFIER 
SET IN MSG 
GET MODIFIER 
SET IN MSG 
CALL PRINT ROUTINE 
FORM/MSG ID 
GET MSG 10 
DON'T PRINT PID,MID 
PUT IT BACK 
EXIT FROM RTN 
nnnnnannnnnnnnnnnnannnnnann 



INCREMENT AN ENTRY IN THE SUMMARY. 



* 

* 

* 

* 

COUNE LD 

A 
* 

COUNA STO 

S 
* 

BNZ 
B 

* 



IX 1 IS THE POSITION IN THE SUMMARY 
TABLE TO BE INCREMENTED. IF THE 
COUNT EXCEEDS 9999, THE COUNTER IS 
RESET TO ZERO SO THAT A MODULO 10,000 
IS SIMULATED. THIS IS TO RELIEVE 
PRINTOUT PROBLEMS. 

L3 SUMRY GET PROPER COUNTER 
2 Kl-TB ADD ONE 

L3 SUMRY STORE 
2 K10TH-TB SUBTRACT 10,000. THIS WIL 
* BE MEANINGLESS ON LOOP. 
I COUNT EXIT IF NOT 10,000 
COUNA ELSE LOOP 



•nnnnnnnnannnnDnnnnQDnnnndnnnnnnnnnnnnnanannnnnnnnn 
* 

* SUB-ROUTINE STMSG 
* 

♦DnaoDnnnnnDnnnnnDannnnnnonDnnnnnnannanannnnnnnnann 
* 

* ■ 
* 
* 

* 

**** ROUTINE CALL .... : 

* 

* BSI 2 STMSG-TB 

* DC MSG ID 

* MSG ID = FMMM (WHERE) 



COMMON MESSAGE SETUP RTN 

THIS ROUTINE WILL BUILD THE 
MESSAGE DESIRED AND CALL RTN 
PRINT TO PRINT THE MESSAGE. 



04NOV66 
415233 



010CT67 
411875 



15FEB68 
411913 



02DEC68 
411961 



14N0V69 
431319 



30JAN70 
431319A 



20MAR70 
431320 



80923210 
23211 
23220 
23230 



80923240 
80923250 
2 32 70 
80923280 
80923290 
80923300 
80923310 
80923320 

80923380 
80923390 
80923400 
80923410 
-80923420 
80923430 
80923440 
80923450 
23460 
80923470 



80923540 

80923550 

80923560 

80923570 

80923580 

80923590 

80923600 

80923610 

80923620 

80923630 

80923640 

80923650 

80923660 

80923670 

80923680 

80923690 

80923700 

80923710 

80923720 

80923730 

80923740 

80923750 

80923760 

80923770 

80923780 

80923790 

80923800 

80923810 

80923820 

80923830 

80923840 

80923850 

80923860 

80923870 

80923880 

80923890 

80923900 

80923910 

80923920 
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1*8 



DATE 
EC NO. 



0F6D 
0F6E 
0F6F 
0F71 
0F72 
0F73 
OF 74 
OF 75 
0F76 
OF 77 
0F78 
OF 79 
0F7A 
0F7B 
0F7C 
OF 70 
0F7E 
0F7F 



6964 

6B65 

1 6580 08AF 
C100 

E2C6 
1008 
D2CE 
C100 
180C 
DOOF 
C100 
EAC6 
F2C6 
1888 
1004 
1088 
D2D0 
7401 08AF 



0F81 C2EB 
0F82 1 4C20 0FD1 

0F84 6301 
0F85 C2E2 
0F86 6500 0000 
0F88 1 4080 0F8A 



0F8A 1 0F95 
0F8B 1 0F97 
0F8C 1 0F98 



* 

* 

** 

* 

* + 

* FORM MOD 

* NO. 1 

* + 



F = FORM NUMBER 
MMM = MESSAGE ID 
BIT 8 MEANS DON'T PRINT PID MID, ETC. 



+ + + + 

MOD MOD MOD MOD MOD 
2 3 4 5 6 



MOD * 
7 * 



* 

* 



DSW 



FILE*) HEX 



HEX 



* 1 

* 

* 2 

* 



DSW 



FILE* DEC 



DEC 



DEC 



DEC 



DSW 



FILE)* DEC DEC 



DEC 



DSW 



* 3 

* + 

* 4 DSW 
* + 



FILES DEC 
FILES DEC 



DEC 



DSW FILES CYL CYL SEC SEC REC * 
S/B WAS S/B WAS LNG * 

+ + + + + + * 

DSW FILES HEX HEX HEX HEX 



* 5 

* 

* 6 

* 

* 7 
* 

* 

* 8 

* 

* 9 
# 

* A 

* 

* 

STMSE STX 
STX 

STMAD LDX 
LD 
AND 
SLA 

*■ STO 

LD 
SRA 
STO 
LD 
OR 
EOR 
SRT 
SLA 
SLT 
STO 
MDX 

LD 

BNZ 

* 

LDX 

LD 
STMSA LDX 

B 
* 

* 
* 

* 



DSW 



FILES 



DSW 



FILES DEC HEX HEX 



DSW FILES HEX 

+ + + + + . 

DSW FILES HEX HEX HEX 



1 

3 
II 

1 
2 

2 
1 



STMSX+1 

STMSXC3 

STMSG 



H0080-TB 

8 

MSGO-TB 



12 

STMSAC1 



H0080-TB 

H0080-TB 

8 

4 

8 

MSGID-TB 

STMSG, 1 

PRSW-TB 
STMSX 



3 1 

2 K2-TB 
LI *-* 
II FRMTB 



SAVE IX 3 

SAVE IX 1 

GET CALL ADRS 

GET PARAMETER WORD 

SAVE BIT 8 

PUT IN BIT POSITION 

STORE FOR LOG CALL 

GET FORM NUMBER 

SAVE 

GET MSG ID 

SET BIT 8 ON FOR SURE 

CLEAR BIT 8 

* 

* 

* 

SAVE 

INCR RETURN 

GET PRINTER SWITCH 
EXIT IF SW IS NON-ZERO 

SET CONV CTR 
GET MOD WD CT 



04N0V66 
415233 



010CT67 
411875 



* 

* 

* 

FRMTB DC 
DC 
DC 



15FEB68 
411913 



FORM TABLE 



FORMO 
F0RM1 
F0RM2 



02DEC68 
411961 



ADRS OF RTN FORM 
- 1 

■■■'■ " 2 



14N0V69" 
431319 



30JAN70 
431319A 



20MAR70 
431320 



80923930 
80923940 
23941 
80923950 
80924040 
80924050 
80924060 
80924070 
80924080 
80924090 
80924100 
80924110 
80924120 
80924130 
80924140 
80924150 
80924160 
80924170 
80924180 
80924190 
80924200 
80924210 
80924220 
80924230 
80924240 
80924250 
80924260 
80924270 
80924280 
80924290 
- 80924300 
80924310 
80924320 
80924330 
80924340 
24350 
24360 

80924370 
80924380 
80924390 
80924400 
80924410 
24411 

80924420 

80924430 

80924440 

80924450 

80924460 

80924470 

80924480 

80924490 

80924500 

80924510 

80924520 

80924530 

80924540 

80924550 

80924560 

80924600 

80924610 

80924620 

80924630 

80924640 

80924650 

80924660 

80924670 



PROG ID 
PAGE 



0809-2 
18A 
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^.. 


2310 A/B FUNCTION TEST 


l» KKUOKAPI hUK 


1Mb 1800 SYST 


EM 


PART NO. 
PAGE 


2196378 
19 


Vi 


0F8D 1 0F99 


DC 


F0RM3 


3 


80924680 






0F8E 1 0F9A 


DC 


F0RM4 


4 


80924690 






0F8F 1 0F9C 


DC 


F0RM5 


5 


80924700 




"k.. 


0F90 1 0F9F 
0F91 1 0FA2 


DC 

DC 


F0RM6 
F0RM7 


6 
7 


80924710 
80924720 




*. 


0F92 1 0FB1 
0F93 1 0FB3 


DC 
DC 


F0RM8 
F0RM9 


8 
9 


80924730 
80924740 




f 


0F94 1 0FB2 


DC 


FORMA 


A 


80924750 






* 






80924760 






* 






80924770 




^~ 




* 
* 


FORM 


IS 


80924780 
80924790 




V, 


0F95 82E2 


FORMO A 


2 K2-TB 


INCR MOD CNT 


80924800 




..-■ 


0F96 7005 


B 
* 


F0RM5 


COMMON ROUTINE 


80924810 
80924820 








* 


FORM 


IS 1 


80924830 




,'- 


0F97 82E1 


* 

F0RM1 A 
* 


2 Kl-TB 


INCR MOD CNT 


80924840 
80924850 
80924860 




,- 




* 

* 


FORM 


IS 2 


80924870 
80924880 






0F98 82E1 


F0RM2 A 

* 


2 Kl-TB 


INCR MOD CNT 


80924890 
80924900 








* 


FORM 


IS 3 


80924910 








* 






80924920 




.■' 


0F99 82E1 


F0RM3 A 


2 Kl-TB 


INCR MOD CNT 


80924930 
80924940 








* 


FORM 


IS 4 


80924950 
80924960 




r~ 


0F9A 82E1 


F0RM4 A 


2 Kl-TB 


INCR MOD CNT 


80924970 




'n~ 


0F9B 6306 


LDX 

* 


3 6 


SET CONVERSION CTR 


80924980 
80924990 




C 




* 


FORM 


IS 5 


80925000 






* 


COMMON ROUTINE 


80925010 








* 






80925020 




c 


0F9C EACE 


F0RM5 OR 


2 MSGO-TB 


SET MSG WORD COUNT 


80925030 




0F90 D2CE 


STO 


2 MSGO-TB 


* 


80925040 






0F9E 701B 


B 


PRINT- 


PRINT 


80925050 




/"" 




* 






80925060 




V. 




* 


FORM 


IS 6 


80925070 




<~ 


0F9F 82E3 


* 
F0RH6 A 


2 K3-TB 


INCR MOD CNTR 


80925080 
80925090 




V 


OFAO 6302 


LDX 


3 2 


SET CONVERSION CNTR 


80925100 






0FA1 70FA 


B 


F0RM5 




80925110 




»»~ 




* 






80925120 




v.. . 




* 
* 


FORM 


IS 7 


80925130* ' 
80925140 




*"- 


0FA2 C246 


F0RM7 LD 


2 COMA+1-TB 


GET DISK ADRS READ 


80925150 




v.. 


OF A3 40 3A 


BSI 


SECT 


FORMAT FOR MSG 


80925160 






0FA4 D2D4 


STO 


2 M0D4-TB 


SET CYL S/B IN MSG 


80925170 




f- 


0FA5 18D0 


RTE 


16 


SWAP A AND 


80925180 




v... 


0FA6 D2D6 


STO 


2 M0D6-TB 


SET SECT S/B IN MSG 


80925190 






0FA7 C206 


LD 


2 IDS#B-TB 


GET DSK ADRS S/B 


80925200 




*~ 


0FA8 4035 


BSI 


SECT 


FORMAT FOR MSG 


80925210 




* — 


0FA9 D2D3 


STO 


2 M0D3-TB 


SET CYL WAS IN MSG 


80925220 






OFAA 18D0 


RTE 


16 


SWAP A AND 


80925230 




• — 


OFAB D2D5 


STO 


2 M0D5-TB 


SET SECT WAS IN MSG 


80925240 




w 


OFAC C200 


LD 


2 LNGTH-TB 


GET RECORD LENGTH 


80925250 






OFAD 403E 


BSI 


BNDEC 


CONVERT TO DECIMAL 


80925260 




•~- 


OFAE 02D7 


STO 


2 M0D7-TB 


SET IN MSG 


80925270 




- 


OFAF C2E5 


LD 


2 K7-TB 


SET MOD CNT 


80925280 




.*- 


OFBO 70EB 


B 
* 


F0RM5 


COMMON ROUTINE 


80925290 
80925300 




*£■*■ •' 


. ..... .-... 


* 


FORM 


IS 8 


80925310 








* 






80925320 


. 


v~- 


0FB1 82E1 


F0RM8 A 

* 


2 Kl-TB 


SET WORD COUNT 


80925330 
80925340 








*. 


FORM 


IS A 


80925350 





( < 
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DATE 
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010CT67 


15FEB68 
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EC NO. 
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411913 


411961 


431319 
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DATE 
EC NO, 









* 










80925360 


0FB2 


82E2 




FORMA 
* 

* 
* 


A 


2 


K2-TB 

FORM 


SET WORD COUNT 
IS 9 


80925370 
80925380 
80925390 
80925400 


0FB3 


82E1 




F0RM9 


A 


2 


Kl-TB 


INCR MOD CNT 


80925410 


0FB4 


70E7 






B 




F0RM5 


COMMON ROUTINE 


80925420 
80925430 
80925440 


































0FB5 


1 C700 


0851 


MSGC1 


LD 


L3 


FILE# 


GET MODIFIER 


80925450 


0FB7 


4034 






BSI 




BNDEC 


CONVERT TO DECIMAL 


80925460 


0FB8 


1 D700 


0851 




STO 


L3 


FILE* 


SET IN MODIFIER 


80925470 


OFBA 


73FF 




PRINT 


MDX 


3 


-1 


DECR CONVERSION CTR 


80925480 


OFBB 


70F9 






MOX 




MSGC1 


LOOP 


80925490 


OFBC 


C2D0 




PRINB 


LD 


2 


MSGID-TB 


GET MSG ID 


80925500 


OFBD 


180D 






SRA 




13 




80925510 


OFBE 


F2E5 






EOR 


2 


K7-TB 


(NO MESSAGES WITH F) 


80925520 


OFBF 


1 4C18 


OFCC 




BZ 




PRINA 


BRANCH FOR ERROR MESSAGE 


80925530 


0FC1 


C283 






LD 


2 


SWO-TB 


GET SW FNC 


80925540 


0FC2 


100D 






SLA 




13 


BIT 13-BYPASS ALL LOGS 


80925550 


0FC3 


1 4C28 


0FD1 


* 


BN 




STMSX 


EXIT IF SET 


80925560 
80925570 


0FC5 


2 4480 


012F 




BSI 


I 


LOG 


MONITOR LOG CALL 


80925580 


0FC7 


1 084D 






DC 




MSGO 


ADRS MSG 


80925590 


0FC8 


1 0FD7 






DC 




PRBSY 


BUSY RETURN 


80925600 


0FC9 


1 0FD1 






DC 




STMSX 


MSG COMPLETE RETURN 


80925610 


OFCA 


2 4C80 


012D 


* 


BSC 


I 


START 


EXIT TO MONITOR 


80925620 
80925630 


OFCC 


2 4480 


0130 


PRINA 


BSI 


I 


ERROR 


MONITOR ERROR CALL 


80925640 


OFCE 


I 084D 






DC 




MSGO 


ADRS MSG 


80925650 


OFCF 


1 OF 07 






DC 




PRBSY 


BUSY RETURN 


80925660 


OFDO 


1 0FD9 






DC 




PRLP 


LOOP RETURN 


8O925670 


0FD1 


6500 


0000 


STMSX 


LDX 


LI 


*-* 


RESTORE XR 1 


80925680 


0FD3 


6700 


0000 




LDX 


L3 


*-* 


RESTORE XR 3 


80925681 


0FD5 


1 4C80 


08AF 


* 


B 


I 


STMSG 


RETURN TO USER 


80925682 
80925690 








* 


PRINTER 


IS BUSY 




80925700 








* 










80925710 


0FD7 


422D 




PRBSY 


BSI 


2 


STMLS-TB 


EXIT TO MONITOR 


80925720 


0FD8 


70E3 




* 


B 




PRINB 


TRY AGAIN 


80925730 
80925740 








* 


LOOP 


ON 


ERROR RETURN 


80925750 








* 










80925760 


0FD9 


C281 




PRLP 


LD 


2 


RID-TB 


GET PRESENT ROUTINE NUMBER 


80925770 


OFDA 


1 4C18 


0A89 




BZ 




PRECN 


IF ZERO, GO TO PRE-CONTROL 


80925780 


OFDC 


1 4C00 


0AF8 


* 


B 


L 


CNTLD 


ELSE LOOP SAME ROUTINE 


80925790 
80925800 








* 






ROUTINE TO FORMAT DSK ADRS 


80925810 








* 










80925820 


OFDE 


0000 




SECT 


DC 




*-* 


SUB-ROUTINE ENTRY 


80925830 


OFDF 


1883 






SRT 




3 


POSITION 


80925840 


OFEO 


D2D7 






STO 


2 


M0D7-TB 


SAVE CYL 


80925850 


0FE1 


1010 






SLA 




16 


SET HEAD IN CHAR 3 


80925860 


0FE2 


1081 






SLT 




1 


* AND SEC IN CHAR 4 


80925870 


0FE3 


1002 






SLA 




2 


* 


80925880 


0FE4 


1082 






SLT 




2 


* 


80925890 


0FE5 


D2D8 






STO 


2 


BNTMP-TB 


SAVE HD/SECT 


80925900 


0FE6 


C2D7 






LD 


2 


M0D7-TB 


GET CYL 


80925910 


0FE7 


4004 






BSI 




BNDEC 


CONVERT TO DEC 


80925920 


0FE8 


D2D7 






STO 


2 


M0D7-TB 


STORE 


80925930 


0FE9 


CAD7 






LDO 


2 


M0D7-TB 


PUT HD/SECT IN 


" 80925940 


OFEA 


1 4C80 


OFDE " 




BSC 


I 


SECT 


EXIT SUB-ROUTINE 


80925950 
80925960 
























* 










80925970 








* 




CONVERT A POSITIVE NUMBER IN THE 


80925980 








* 




RANGE FROM 0- 


9999 TO IT'S DEC1- 


80925990 








* 




MAL EQUIVALENT. 


80926000 








* ' 










80926010 
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DATE 
EC NO. 



OFEC 

OFED 

OFEF 

OFFO 

0FF1 

0FF2 

0FF3 

0FF4 

0FF5 

0FF6 

0FF7 

0FF8 

0FF9 

OFFA 

OFFB 

OFFC 

OFFD 

OFFE 



0000 

1 4CA8 OFEC 
1890 
AA13 
100C 
D2CB 
1004 
AA12 
1008 
EACB 
D2CB 

1008 
AA11 
108C 
180C 

ioa4 

EACB 
4C80 OFEC 



* 

BNDEC DC 
BN 
SRT 
D 

SLA 
STO 
SLA 
D 

SLA 
OR 
STO 
SLA 
D 

SLT 
SRA 
SLT 
OR 
BSC 



ENTER ROUTINE WITH THE NUMBER 
IN THE A REGISTER. EXIT WITH 
THE CONVERTED NUMBER IN THE A REG. 



*-* 

BNDEC 

16 

THOUS-TB 

12 

SNXIO-TB 

4 

HUNDR-TB 

8 

SNXIO-TB 

SNXIO-TB 

8 

TEN-TB 

12 

12 

4 

SNXIO-TB 

BNDEC 



ENTRY POINT 

EXIT IF NEGATIVE 

A TO 

MOST SIGNIFICANT DIGIT 

POSITION DIGIT 

SAVE 

CLEAR A REG 

POSITION 

COMBINE IN HEX WORD 

SAVE 

CLEAR A 

COMBINE LAST TWO DIGITS 

* 

COMBINE IN HEX WORD 

EXIT WITH WORD IN A REG. 



OFFF 



PEND 



1000 
NO 



0822 



EQU *-l LAST PROGRAM ADDRESS 



STATEMENTS FLAGGED IN THE ABOVE ASSEMBLY INITI * L *"* A ° DRESS 



PART NO. 
PAGE 



80926020 
80926030 
80926040 
80926050 
80926060 
80926070 
80926080 
26090 
80926100 
80926110 
80926120 
26130 
80926140 
80926150 
80926160 
80926170 
26180 
80926190 
80926200 
80926210 
80926220 
80926230 
80926280 
80926290 
26299 
26300 
80926310 
80926320 



2196378 
20 



04N0V66 
415233 



010CT67 
411875 



15FEB68 
411913 



02DEC68 
411961 



14N0V69 
431319 



30JAN70 
431319A 



20MAR70 
431320 
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0809-2 
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DATE 
EC NO. 



ADCMA 

ADDEF 

ADDIF 

ADZIP 

AVG 

BADCY 

BDCYL 

BEG 

BEGIN 

BNDEC 

BNTMP 

CKLK 

CKLKE 

CKLK1 

CKLK2 

CKPRA 

CKPRE 

CKPRT 

CKRD1 

CKRD3 

CMN1 

CMN2 

CMN3 

CMP 

CMPB 

CMPB1 

CMPB2 

CMPB3 

CMPB4 

CMPB5 

CMPB6 

CMPEX 

CMPTM 

CMPX 

CMP1 

CMP2 

CMP2A 

CMP3 

CMP4 

CMRND 

CMRN1 

CMRTB 

CMRTC 

CMRTF 

CMRTL 

CMRT2 

CNTA 

CNTB 

CNTL 

CNTLB 

CNTLD 

CNTLE 

COMA 



0894 
0893 
0895 
0896 
0C38 
081F 
0A30 
0822 
012C 
OFEC 
0857 
0897 

0F12 
0F1A 
0F1C 
0F26 
0F20 
089A 
OCCO 
0CC9 
0B94 

0B92 

0B9D 

0E34 

0E6E 

0E80 

0E8B 

0E95 

0E97 

0E99 

0E9F 

0E6C 

088C 

0E67 

0E45 

0E49 

0E90 

0E58 

0E66 

0EA1 

0EA4 

OBBD 

OBBF 

0BC8 

0BB3 

0BA9 

087C 

085B 

0AE1 

OAEE 

0AF8 

089D 

08C4 



COMPT 

COUNA 

COUNE 

COUNT 

CYL 

CYOOO 

CY001 

CY002 

CY003 

CY199 

CY200 



0DD7 

0A4C 

0A55 

0A56 

0C52 

0AD8 

0D80 

1000 

0822 

OFAD 

0FE5 

0BC3 

OEFD 

0898 

0F16 

0F12 

OF 20 

089B 

OBOE 

OCCD 

OCCC 

0B9F 

0BA1 

08A4 

ODFA 

0E41 

0E92 

0E7C 

0E85 

0E83 

0E8A 

0E7F 

0E68 

0DE8 

0E5F 

0E4D 

0E44 

0E8D 

0E3B 

0E63 

0E46 

0E48 

0BB6 

OBAB 

0BC1 

0BC4 

0B99 

0D33 

0BE9 

089E 

OAFA 

0AE6 

0A73 

0C9A 

0894 

OCOB 

0EC9 



0EC3 



0C70 
0D12 
0D85 



0C72 0C96 

0D87 0090 0DA9 ODAC 



0FB7 0FE7 OFED OFFE 



0BC9 
0F14 



0C1C 0C2C 0C45 0C4B 0C92 0054 0D64 ODBD 0E01 0E24 OEFA 
0F1C 0F1E «"-<-t uccb 



0CA2 0E19 0E54 0E62 0E7E 0E8C OEAD 0F24 0F26 0F28 



0E1D 
0E73 



0E94 



0E6A 0E6C 

0E88 0E9B 0E9F 0EA5 



0E3D 0E42 

OEAA 
0E51 0E55 

OBBC 
0BC6 OBCA 



0D66 
OBEF 
0B3E 



0811 
0F67 
0F64 
08A0 
0BB1 
0815 
0816 
0817 
0818 
0819 
081A 



OF DC 
0B3C 
0D6F 
0A7E 
0C56 
0ED6 



0D34 0D72 

0BB2 OBCE OBEA 0BF4 OBFA 0C33 OC50 



0B58 0B5B 0B68 0B8F 0BC7 OBCB OBEE 0C2A 0C2E 0C49 0C4D 
0AC2 OACF 0AD6 OADA 0B1C 0B41 0B42 0B47 0B51 0BB4 0Bn3 

8& %£ gg o ?!! K 2 F m " m " ° E " °«< «» »'» 



0F6C 
08A1 

0D36 0D59 0D6E 0D76 0DA4 0DB4 ODEE 0E04 0E29 OECB 0EF4 OFOO 0F6A 

0D1C 

0C77 



04N0V66 
415233 



010CT67 
411875 



15FEB68 
411913 



02DEC68 
411961 



14N0V69 
431319 



30JAN70 
431319A 



20MAR70 
431320 
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PART NO. 
PAGE 



2196378 
21 



1 < 



c 



v. 



DATE 
EC NO. 



CY201 

CY202 

DATA1 

DATA2 

DOEF 

DDEFX 

DFTXT 

DSKMO 

DVA 

END 

ENDCM 

EPA 

ERCT 

ERROR 

ERR1 

ERSK1 

FILE* 

FORMA 

FORMO 

F0RM1 

FORM 2 

F0RM3 

F0RM4 

FORM 5 

F0RM6 

F0RM7 

F0RM8 

F0RM9 

FRMTB 

FRNSK 

FRN1 

FRN2 

FSTNO 

HCEDC 

HE5E5 

HRDRD 

HRDSK 

HRDWR 

HUNDR 

HOOAO 

HOOBO 

H0080 

H1313 

H3000 

ID 

IDS#8 

INCR1 

INCR2 

INDEX 

INTR 

INTRB 

INTSW 

IPA 

Kl 

K10TH 

K2 

K202 

K203 

K259 

K27 

K3 

K331 

K370 

K4 

K 7 

K8- 

LNGTH 



081B 
081C 

OBBB 

OBCO 

0812 

083B 

0F33 

0842 

0826 

012E 

0A38 

0808 

0881 

0130 

0B25 

085A 

0851 

0FB2 

0F95 

0F97 

0F98 

0F99 

0F9A 

0F9C 

0F9F 

0FA2 

0FB1 

0FB3 

0F8A 

0876 

0878 

087A 

0C30 

0A88 

084C 

0871 

086E 

0874 

0891 

088E 

088F 

0845 

083E 

083D 

0F5E 

0885 

0B7D 

0B7E 

0880 

0827 

0833 

0825 

0806 

0860 

0869 
0861 
0866 
0867 
0840 
0C5C 
0862 
0868 
0C62 
0863 
0864 
0865 
087F 



OBAC 

OBAO 

0893 

0A4E 0A4F 0A51 OCAC 0CB2 OCEE 0CF3 

08B3 OACB 0AE3 

0DD3 

0A5F 0B2B 0B30 0CB3 OCBA 

0A99 0F52 



0E36 0E4F 0E67 0E79 0E7A 

OFCC 

0B20 

OBDO 

0A52 

0F94 

0F8A 

0F8B 

0F8C 

OF 80 

0F8E 

0F8F 0F96 0FA1 OFBO 0FB4 

0F90 

0F91 

0F92 

0F93 

0F88 

0B83 

0C25 
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OBDC 0BE7 0D31 0D50 0D5B 0D63 
0A66 0A92 0A93 0FB5 0FB8 



0C0 3 

OADO 

0B9D 

0E28 

0D6D 

0EF3 

0FF4 

0A91 

0A8F 

OF 60 

0B92 

0CC2 

0F3C 

ODDC 

0B5D 

0B5F 

0E39 

0831 

0829 

0828 

0A53 
0E87 
0CC7 
0E5E 
OABE 
0B1D 
OFOC 
0C8A 
0AA5 
0C87 
0C53 
0A8C 
0D7C 
0DQ3 
0DE6 



0C20 0C6F 0C85 



0D75 0DB3 



0F72 0F79 0F7A 

0C57 0C6A 

0CD7 0CD8 

0F46 0F4A 0F5F 0F61 

0E3F 0EC8 0FA7 

0B63 0B6E 

0B65 0B74 

0E49 0E4B 0E58 0E6F 0E82 0E90 0E9A 0EB5 



082E 0A85 OCBC OCDE 

0A62 0AE9 0B2A 0B60 0BE1 0C73 0C78 0C80 0D47 0E38 0E66 0E81 
0E91 0F34 0F66 0F97 0F98 0F99 0F9A 0FB1 0FB3 
F69 

0F85 0F95 0FB2 

0B66 

0CA4 

0.AAB OACC 0B35 0F9F 



OABC 

0D93 OFAF OFBE 
0D32 ODBA ODEF OECC 
0E3A 0E4C 0E99 OFAC 
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TABLE OF CONTENTS 
PARAGRAPH p4GE 

1. PURPOSE . . . . 1 

2. REQUIREMENTS j 

2.1 PROGRAM REQUIREMENTS 

2.2 ECUIPME.MT REQUIREMENTS 

3. OPERATING PROCEDURE j 

3.1 LOADING PROGRAM 

3.2 PROGRAM OPERATION 

3.3 HALTS 

3. A TERMINATION 

4. PRINTOUTS 2 

4.1 STATUS MESSAGES 

4.2 ERROR MESSAGES 

5. COMMENTS . . . . 2A 

6. APPENCIX # 5 

6.1 EOIT PROCECURE 

6.2 SAMPLE PRINTOUTS 

1. PURPOSE 

THE 1443 FUNCTION TEST IS DESIGNED TO CHECK THE OPERATING PERFORMANCE OF THE 
1443 PRINTER ANO TO AID IN ITS PROPER ADJUSTMENT. 

2. PREREQUISITES 

2.1 PROGRAM PREREQUISITES 

THIS PROGRAM MUST RUN UNDER CONTROL OF THE DIAGNOSTIC MONITOR. 
THE DIAGNOSTIC MONITOR PROGRAM USES 2,047 STORAGE WORDS, AND THIS 
PROGRAM USES 2047 STORAGE WORDS. 

2.2 EQUIPMENT PRECUISITES 

THE PROGRAM IS DESIGNED FOR USE WITH A 52 CHARACTER TYPE BAR. SEE 
SAMPLE PRINTOUTS FOR ALL SIZES OF TYPE BARS. A CARRIAGE TAPE WITH 
ALL CHANNELS PUNCHED EQUALLY SPACED IN NUMERICAL OROER IS NECESSARY 
FOR THE CARRIAGE TEST ROUTINE. THE ChANNEL PUNCHES SHOULD BE SPACEO 
FOUR OR MORE LINES APART ON THE CARRIAGE TAPE. ANY SUCH TAPE WILL 
WORK WELL. SEE TABLE 4 FOR A SUGGESTEO CARRIAGE TAPE. 

3. OPERATING PROCEDURE 
3.1 PROGRAM LOAOING 

STANDARD LOADING PROCEDURE AS DESCRIBED IN THE DIAGNOSTIC MONITOR USE 
PROCEDURE. 



3.2 PROGRAM OPERATION 

STANDARD MONITOR OPERATING PROCEDURES APPLY. 

THESE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR 

DE TA I LS. 



1. CLEAR STORAGE 

2. LOAD DIAGNOSTIC MONITOR 

3. SELECT MODE OF EXECUTION 

4. SELECT MONITOR CONTROL OPTIONS, IF DESIRED 

5. SELECT PRCGRAM OPTIONS, IF CESIREO, FROM - 

TABLE PROGRAM CONTROL FUNCTION 
TABLF I ROUTINE SELECT FUNCTION 
TABLE 2 DEVICE SELECT FUNCTION 

6. INSTRUCT MONITOR TO EXECUTE 

TABLE CONTROL FUNCTION 
{ SEE SECTION 5.2 ) 



• SENSE/PROGRAM • 
•01234567» 

• • 
•00001010* 



1. SET FUNCTION 00 IN SENSE/PROGRAM SWITCHES AND I. 

2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 

3. SET OESIREO CONTROL OPTIONS IN DATA ENTRY SWITCHES 0-15. 

4. PRESS CONSOLE INTERRUPT. 



• CATA ENTRY SWITCHES . DESCRIPTION 

• 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 • 

• • l * FORCE LOG CF STATUS MESSAGES 

• l SINGLE CYCLE 

TABLE 1 ROUTINE SELECT FUNCTION 
( SEE SECTION 5.3 I 

••••• •••••••• 1. SET FUNCTION 01 IN SENSE/PROGRAM SWITCHES ANO 1. 

• SENSE/PROGRAM • 2. SET PIO IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 
•01234567. 3. SET OESIRED ROUTINE IN CATA ENTRY SWITCHES 11-15. 

• • 4. PRESS CONSOLE INTERRUPT. 
•01001010* 



OATA ENTRY SWITCHES 
C 1 2 3 4 5 6 7 8 9 10 11 12 13 14 



• DESCRIPTION 
15 • 

1.. REAOY - NOT BUSY RTN 1 

0.. CONTINUITY rim 2 

1.. CARRIAGE BUSY - NOT BUSY RTN 3 

0.. BIT LINE CHECK RTN 4 

1.. PARITY CHECK RTN 5 

C. CYCLE STEAL PICKUP RTN 6 

».. CYCLE STEAL DROP *fN 7 

C. WORST CASE CORE A RTN 8 

1.. WORST CASE CORE 8 RTN 9 

0.. CHARACTER COMPLIMENT RTN10 

1.. REGISTRATION RTNU 

0.. STRESS IEST RTN12 

I.. CARRIAGE IMMEDIATE SPACE RTN13 
0.. CARRIAGE SPACE AFTER PRINTING RTN14 

1.. CARRIAGE IMMECIATE SKIP RTN15 
0.. CARRIAGE SKIP AFTER PRINTING RTN16 
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TABLE 2 DEVICE SELECT FUNCTION 

• • 1. SET FUNCTION 10 IN SENSE/PROGRAM SWITCHES ANO 1. 

• SENSE/FROGRAM • 2. SET PIO IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 
•01234567. 3. SET CESIREO DEVICE NUMBER IN DATA ENTRY SWITCHES 0-15. 

• • 4. PRESS CONSOLE INTERRUPT. 
•10001010* 

• • SEE SECTION 5.4 

• DATA ENTRY SWITCHES . DESCRIPTION 

• 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 • 

• 

• ° TEST 1443 NUMBER ONE. 

• l TEST 1443 NUMBER TWO. 

3.3 PROGRAM HALTS 

THIS PROGRAM HAS NO HALTS. 

3.4 PROGRAM TERMINATION 

A. STANDARD MONITOR TERMINATION 

B. PROGRAM WILL TERMINATE AFTER ONE COMPLETE PASS. 

4. PRINTOUTS 

4.1 STATUS MESSAGES 

STATUS MESSAGES ARE RECEIVED ONLY WHEN FORCE LOG OPTION IS USED. 
ALL STATUS MESSAGES ARE PRINTED IN ORDER OF OCCURANCE. 

PIO MIO RIO RAO OSW 

OAOO A001 OOOX XXXX XXXX 

PRINTER READY-CARRIAGE NOT BUSY STATUS 

OAOO A002 OOOX XXXX XXXX 

PRINTER READY STATUS 

OAOO A003 OOOX XXXX XXXX 

CARRIAGE NOT BUSY STATUS 

OAOO A004 OCOX XXXX XXXX 

CARRIAGE BUSY-PRINTER BUSY, NOT READY STATUS 

OAOO A005 OOOX XXXX XXXX 

PRIMER BUSY, NOT READY STATUS 

OAOO A006 COOX XXXX XXXX 

CARRIAGE BUSY STATUS 

OAOO A007 OOOX XXXX XXXX 

CARRIAGE CHANNEL STATUS 

OAOO A008 COOS XXXX XXXX 

OP COMPLETE PRINTER ERROR STATUS 

CAOO A009 OOOX XXXX XXXX 

TRANSFER COMPLETE STATUS 



OAOO AOOA OOOX XXXX XXXX 

OP CONPLETE STATUS 

OAOO AOOB 0002 XXXX XXXX 

OSW AFTER WORD COUNT ZERO INITIALIZE WRITE. 

4.2 ERROR MESSAGES 

ERROR MESSAGES INOICATE THE ACTUAL DSW AND WHAT THE OSW SHOULD HAVE 
BEEN. THESE ARE THE LAST TWO WOROS OF THE ERROR PRINTOUTS. 

IF MORE THAN ONE ERROR IS DETECTED PER LINE OF OUTPUT, THE ERRORS 
PRINTED ARE NOT NECESSARILY IN THE ORDER THEY WERE OETECTEO. 

PID MID RIO RAO OSW OSW SHOULD HAVE BEEN 

OAOO E001 COOX XXXX XXXX XXXX 

ERROR ON CHECKING PRINTER READY, CARR I AGE NOT BUSY 

OAOO E002 COOX XXXX XXXX XXXX 

ERROR CN CHECKING PRINTER READY, NOT BUSY 

OAOO E003 COOX XXXX XXXX XXXX 

ERROR ON CHECKING CARRIAGE NOT BUSY 

OAOO E004 COOX XXXX XXXX XXXX 

CARRIAGE BUSY, PRINTER BUSY, NOT READY ERROR 

OAOO E005 OOOX XXXX XXXX XXXX 

PRINTER BUSY, NOT READY ERROR 

OAOO E006 OOOX XXXX XXXX XXXX 
CARRIAGE BUSY ERROR 

OAOO E007 OOOX XXXX XXXX XXXX 

CARRIAGE CHANNEL ERROR 

OAOO E008 0005 XXXX XXXX XXXX 

OP COMPLETE DSW ERROR IPRINTING BAD PARITY CHARACTERS) 

OAOO E009 OOOX XXXX XXXX XXXX 

TRANSFER COMPLETE OSW ERROR 

OAOO EOOA COOX XXXX XXXX XXXX 

OP COMPLETE OSW ERROR 

OAOO EOOB 0002 XXXX XXXX XXXX 

WORD COUNT ZERO TRANSFER COMPLETE DSW ERROR. (THE OSW IHMOEUTELV 
AFTER THE XIO INITIALIZE WRITE COMMAND! 

OAOO EOOC COOX XXXX 0000 

FALSE INTERRUPT OSW 

OAOO EOOD OOOX XXXX 8000 

LOST TRANSFER COMPLETE INTERRUPT 

OAOO EOOE OOOX XXXX 2000 

LOST PRINTER COMPLETE INTERRUPT 



5. COMMENTS 



THE 1443 FUNCTION TEST CONSISTS OF SIXTEEN ROUTINES. IN THE PREFERREO 
MODE (THAT IS, WHEN NO OPTIONS HAVE BEEN SELECTED), ALL ROUTINES WILL 
BE RUN IN ORDER. 
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5.1 THE PREFERRED KODE 

WHEN NO OPTIONS ARE SPECIFIED BY THE OPERATOR THE PROGRAM will t«i 

beI^c'tIc ^bleM^ ° Pr,0NAL SEC0N ° "<° "Vb^te^eTit^t 

ALL ERRORS DETECTED WILL BE PRINTED IMMEDIATELY AFTER THE LINF UHFRF 
CET^ED^F^E TH^N ^^^Vr^IVE^' "STir.t'S.'St 

ALL LOG MESSAGES ARE PRINTED IN ORDER OF OCCURANCE. SPECIFIE0 - 
5.2 CONTROL OPTIONS 

A. SINGLE CYCLE 

THIS OPTION WILL CAUSE THE 1443 TO TAKE A SINGLE PRINT Cvn f i«n 
THEN HALT IN THE ROUTINE BEING EXECUTED. ALL OTHER PROGR^Ss" 
MAY CONTINUE TO RUN. THIS OPTION PROVIDES THE ABUl" TO SINGLE 
CYCLE THROUGH EACH LINE OF PRINT IN ANY ROUTINE. 

B. FORCE LOG 

THE FORCE LOG OPTION CAUSES OUTPUT OF THE DEVICE STATUS AFTFB 

asctarj.'.s'a is/kbs sss ,s —s £™ ss 

5.3 ROUTINE SELECT OPTION 

n F „°J HE . R THAN THE BAS,C ROUTINES ARE TO BE RUN OR IF A DIFFERFNT 
?".°« Sr u R S UTINK IS °"'""» THE OPERATOR MUST SPECIFY THE ROUUNE 
Ic D c! T ^ UN * S IN TABLE 1 - THE ROUTINE SPECIFIEO AT LAST ENTRY wIllbf 
REPEATED UNTIL THIS OPTION IS CHANGED. WHEN THIS OPTION IS If tarn 
THE REST OF THE ROUTINES WILL BE RUN IN SEQUENCE. 

5.4 DEVICE SELECT OPTION 

THIS OPTION NEED BE SPECIFIED ONLY IF THE SECOND 1443 IS Tfl RF 
TESTEO. ONLY ONE 1443 IS TESTEO AT A ° Bt 

SPECIFIED BEFORE PROGRAM EXECUTION. 

5.5 THE ROUTINES 

A. ROUTINE 1 

THE READY-NOT BUSY ROUTINE ASSURES THAT THE 1443 CAN BE MADE 
READY AND NOT BUSY THEN PRINTS A BLANK LINE SPACE SUPPRESSED 
THE PRINTER SHOULD GO BUSY-NOT READY AND RETURN REAOY-NOT ISsv 
WHEN THE PRINTER COMPLETE INTERRUPT IS RECEIVED. 

B. ROUTINE 2 

THE CONTINUITY ROUTINE CHECKS THE CONTINUITY OF TRANSFER CIRCUITS 
THIS ROUTINE PRINTS WITH A WORD COUNT OF ZERO. TRANSFER COMPLETE 
SHCULD BE REQUESTED IMMEDIATELY IF THERE IS CONTINUITY BETWEEN 
THE PROCESS CONTROLLER AND THE 1443 ATTACHMENT. PRINTER rnMP, £tf 
INTERRUPT WILL BE REQUESTED WHEN THE 1443 BUFFER SoCRESS REACHES 
197. IF NO PRINTER COMPLETE HAPPENS THE CONTINUITY BETWEEN THE 
1443 AND ITS ATTACHMENT MAY BE QUESTIONED. ' NUI ' T BETHEEN ™E 

C. ROUTINE 3 

THE CARRIAGE BUSY-NOT BUSY ROUTINE CHECKS THAT THE CARRIACF 
BUSY INDICATOR FUNCTIONS PROPERLY. THIS IS ACCOMPLISHED 25 
ISSUEING SUCCESSIVE SPACE IMMEDIATE CONTROL CoSmANDs" 



0. ROUTINE 4 



TIME. THIS OPTION MUST BE 



JucrS'Le'^ *° UT ! NE PRINTS DATA ,N I" SIMPLEST FORM TO 



CHECK THE CONTINUITY OF THE PRINT C 
CHARACTERS ARE PRINTEO. THE DATA IS 
POSITIONS. 

E. ROUTINE 5 



RCUITS. ONLY SINGLE BIT 
ROTATED THROUGH ALL PRINT 



p T ARIT? R Io V rS?rJ , ?L P Si^f S ' NCLE 8IT ^"TERS HAVIN(J „„ 
PARITY TO CHECK THE PRINTER ERROR CIRCUITS. ONLY ONE BAD 
PARITY CHARACTER IS PRINTEO PER LINE. 

F. ROUTINE 6 

rvr. p V <tL, S I EA I; PICK - UP ROUTINE CHECKS THAT THE NUMBER OF 

WHEN THF ?^, T S,IcL PR ' NTER ° 0ES N0T EXCEE ° THE *0R0 COUNT. 
WHEN THE 1443 BUFFER ADDRESS RFACHES 197, CYCLE STEALS ARF 

J"" INATE ° AN0 A PRINT CYCLE IS INITIATED. THE TrInSfIr 

SS'n 7FB T n R ^ PT n ' S * RESULT 0F THE H0R ° COUNT RECITER 

OPERATE NORMA,',* "°™ NT ° F " 8 SHOUL0 ALL0H THE PRINTER TO 

""St./^^ n/E E°^4 rTHE EC L, A E^RlST°C E YC R L e E HE 2lLr 

tsriJEzi SeT ,nt e Sr^ :iiL » "ss sr&rs 

G. ROUTINE 7 

J?f. C ! CLE STEAL 0R0P ROUTINE CHECKS TO SEE THAT NO CYCLE 
STEALS ARE OROPPED BY SPECIFYING A WORD COUNT OF 99. THIS 

rcuunI I"™ 1 " N ° T ° ETECT * TRANSFER C0HPLETE •nterruJk'csee 

H. ROUTINES 8 AND 9 

IpEC?FYING CA oL C SATT»Hr^ S - CHEC,CS ™ E PRINTER CIRCUITS BY 
PRINTER CIRCUITRY. TE " NS " "*" W ° RST M " N ° ,SE 0N ™ E 

I. ROUTINE 10 

E T VERY HA S A NT E pOS?nON: ENT R ° UT * NE """^ EACH CH * RACTER « 
J. ROUTINE 11 

THE REGISTRATION TEST PRINTS A FIELD OF I«S SUPERIMPOSE!) (IN A 
FIELO OF H'S. THIS ROUTINE CAN BE USED AS N 
ADJUSTING THE PRINT MAGNETS. 

K. RCUTINE 12 

THE STRESS TEST PRINTS THE 52 CHARACTER TYPE BAR IMAGE THUS 
EniSh' h ° RST ° ASE STRESS C0ND,TION ON THE " R PE *AR DRIVE 

L. ROUTINES 13, 14, 15 ANO 16 

THE CARRIAGE TEST ROUTINES CHECK THE FOUR CARRIAGE FUNCTIONS 
NOT PREVIOUSLY TESTEO. THESE ARC SPACING IMMEDIATELY? sJI2?Mr 
AFTER PRINTING, SKIPPING TO CHANNEL IMMEDIATELY AND SKIPPING^ 
TO CHANNEL AFTER PRINTING, RESPECTIVELY. IF THE CHANNEL 
PUNCHES ARE EQUALLY SPACED ANO PUNChIo IN ORDER iHhrOUGH 

JSpS ^ACInTbv^HE^CN^nYoF STKSLMS? 
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TABLE 4 


TAPE 


CHANNEL 


COLUMN 


PUNCH 


I 


1 


8 


2 


15 


3 


22 


4 


29 


5 


36 


6 


43 


7 


50 


8 


57 


9 


64 


10 


71 


11 


78 


12 


85 


END OF TAPE 



A SUGGESTEO CARRIAGE TAPE 
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6.1 EDIT PROCEDURE 



219638«» 
PAGE 5 

1W3 



L,cx F L ^' N P,"'J/ '™ CEDURE IS F0R CARD INPUT - THE E0 ' T PROCEDURE FOR PAPER TAPE INPUT IS LOCATED IN THE PAPER TAPE EDIT UTILITY PROGRAM DOCUMENTATION THE PROPER EDIT 
X S J.«.« E „i* S I £ RD f " ™ IS PR ° GRAM ° ECK - ™ E F0LL0WI,JG F0R,1S ARE PROVIDED TO AID IN MANUALLY PREPARING THESE EDIT CARDS OR i^TI^EXISTING EdI! CARdI IF IT if II. 
TO FREF.RE OR KODIFY EDIT CARDS. FILL IN THE NECESSARY DATA IN THE FORMS PRIOR TO PUNCHING THE CARDS. CARD COLUMNS THAT ARE SHADED SHOULD DE LEFT BLANK 



CARDS 
NECESSARY 



DDEF STANDS FOR DEVICE DEFINITION EDIT FIELD. IT INCLUDES 



THE LAST EDIT CARD IS THE *END EDIT CARD". THE INFORMATION IN THIS CARD INCLUDES 



1. THE INTERRUPT LEVEL ASSOCIATED WITH THIS DEVICE (USE HEX NOTATION 00-17) 

2. THE ILSW BIT POSITION ASSOCIATED WITH THIS DEVICE (USE HEX NOTATIONM 0-F) 
' THE CHANNEL ASSIGNED TO THIS DEVICE (0-8). IF THIS IS A DPC DEVICE. PUNCH AN * F 



AN "E* IN COLUMN 1. 

THE P1D FOR THIS PROGRAM (COL. 2-3). 

A TERMINATOR WORD OF W FFFF" (COL. 7-10) 



IN THE CARD COLUMN. 




CARD CONTAINS THE DDEF'S FOR THE 1^3 PRINTERS. IF THE SYSTEM HAS ONLY ONE U*3, THE DDEF FOR PRINTER NO. 2 SHOULD BE PUNCHED VfFF". 

CARD END IS THE *END EDIT CARD". FUNCH EXACTLY AS IS SHOWN. 

* NOTE 1 IF THIS SYSTEM HAS TOO 1^3'S AND THEY EACH HAVE A DIFFERENT NUMBER OF PRINT POSITIONS. ENTER 90 IN CARD COLUMS 29-30. 
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SAMPLE PRINTOUT 
NOTE: THIS SAMPLE PRINTOUT ILLUSTRATES A 52 CHARACTER TYPEBAR. 



BIT LINE 

84*2211 ++864422U ++88442 

442211 ++88442211 ++884422 

42211 ++88442211 — ++8844221 

2211 ++88442211 — ++88442211 

211 --++88442211 — ++88442211 

11 ++88442211 — ++8B442211 

1 — ++88442211 — ++88442211 
— t +88442211 — ++86442211 
— t+8B442211 — ++88442211 — + 

++88442211 — ++88442211 ++ 

-++88442211 ++88442211 --++8 

++88442211 ++88442211 — ++88 

+88442211 ++88442211 ++884 

88442211 ++88442211 ++8844 



211 ++88442211 ++86442211 

11 — ++88*42211 ++88442211 

1 — ++88442211 — ++88442211 — + 
++88442211 ++88442211 +♦ 

— ++88442211 — ++88442211 — ++8 
+ + 88442211 — ++88442211 — +-^88 

++88442211 — ++88442211 — ++88* 
++884*2211 — ++88*42211 — ++8844 

+88442211 — ++88442211 ++88442 

88442211 — ++88442211 — ++884422 
8442211 — ++88**2211 — ++88**221 
442211 — ++88*42211 — ++88**2211 
42211 — ++884*2211 — ++884*2211 
2211 — ++88**2211 — ++88**2211 



++884*2211 — ++88**221 
++88442211 — ++884*2211 

+88442211 ++8844?211 

884*2211 — ++88**2211 
8442211 — ++884*2211 - 
4*2211 — ++88**2211 
*2211 — ++88**2211 — ♦ 
2211 — ++88*42211 — ♦♦ 
211 — ++88**2211 — ++a 
11 — ++88**2211 — ++88 
1 — ++88442211 — ++88* 
— ++884*2211 ++8844 

— ++88442211 ++88442 

— ++88442211 — ++88**22 



PARITY 



SAMPLE PRINTOUT (CONT. ) 
NOTE: THIS SAMPLE PRINTOUT ILLUSTRATES A 52 CHARACTER TYPEBAR. 

CYCLE STEAL PICK-UP 
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CYCLE STEAL DROP 
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3 4 5 6 7 8 
3*5678 
3*5678 
3*5678 
3*5678 
3 4 5 6 7 8 
3 4 5 6 7 8 
3*5678 
3*5678 
3*5678 



WORST CASE CORE A 

••v»av*vvv«vv«v***v**v»vvv»vv*v***v**v*vvv«vv*v«*«v«*v*vvv«vv» 

*V»*VfVVV»VV«V*»*V»*V»VVV*VV»V«»fV»«V»VVV»VV*V«»*V»«V»VVV*VV»V 

v*»v»vvv»vv«v»»*v»«v*vvv*vv*v***v»*v*vvv»vv*v***v*»v»vvv*vv»v» 
»*v*vvv*vv»v»*«v**v*vvv«vv*v»»»v«*v*vvv*vv»v*»«v**v*vvv«vv*v*» 

*V»VVV»VV»V**»V»»V»VVV»VV»V(»«#V»»V»VVV*VV»V*«*V»*V#VVV*VV#V»** 

v»vvv«vv»v»*»v*«v«vvv»vv«v»»»v**v«vvv»vv»v»»*v»av*vvv»vv«v***v 

»V«V*VV»V**«V»»V»VVV*VV»V»*«V»«V»VVV»VV»VII*V«»V«VVV»VV«V*»«V* 

vvv«vv*v»»«v»«v*vvv#vv»v»**v**v*vvv»vv»v*««v**v*vvv«vv«v***v*« 

VV*VV*V»»«V*«V«VVV»VV*V»«*V*»V»VVV»'VV»V*»*V#*V*VVV*VV«V«**V»*V 

v»vv*v*»»v**v»vvv*vv»v***v*»v»vvv»vv*v*»»v»*v»vvv*vv»v***v**v* 
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v***v**v«vvv*vv»v*»«v*»v*vvv 

*a>»v**v*vvv*vv»v»»*v**v»vvv» 
*»v**v*vvv*vv»v*»»v»*v»vvv»v 
*v»«v«vvv«vv«v«**v**v*vvv»vv 
v**v«vvv»vv»v«*»v»»v»vvv»vv« 
«*v«vvv*vv*v***v**v*vvv*vv*v 
*v#vvv»vv»v»»*v»*v*vvv»vv«v» 
v»vvv*vv*v»**v»*v*vvv*vv»v#« 
«vvv«vv«v**«v**v«vvv*vv*v««* 
vvv*vv»v*#»v*»v*vvv*vv«v*»»v 



WORST CASE CORE B 

MH7HH7H777H77H7HHH7HH7H777H77H7HHH7HH7H777H77H7HHH7MH7H777H77H7HHH7W7H777H77H7HHH7HH7H777 

H7HH7h777H77H7HHH7HH7H777H77H7HHH7HH7H777H77H7HHH7HH7H777H77H7HHH7HH7H7 77H77H7HHH7HH7H777H 

7HH7H777H77H7HHH7HH7H777M77H7HHH7HH7H777H77H7HHH7HH7H777H77H7HHH7HH7H777M77H7HHH7HH7H777H7 

HH7H777H77H7HHH7HH7H777H77H7HHH7HH7H777H77H7HHH7HH7H777H77H7HHH7HH7H777H77H7HHH7HH7H777H77 

H7H777H77H7HHH7HH7H777H77H7HHH7HH7H777H77H7HHH7HH7H777H77H7HHH7HH7H777H77H7HHH7HH7H777H77H 

7H777H77H7HHH7HH7H777H77H7HHH7HH7H777H77H7HHH7HH7H777H77H7HHH7HH7H777H77H7HHH7HH7H777H77H7 

H777H77H7HHH7HH7H777H77H7HHH7HH7H777H77H7HHH7HH7H777H77H7HHH7HH7H777H77H7HHH7HH7H777H77H7H 

777H77H7HHH7HH7H777H77H7HHH7HH7H777H77H7HHH7HH7H777H77H7HHH7HH7H777H77H7HHH7HH7H777H77H7MH 

77H77H7HHH7HH7H777H77H7HMH7HH7H777H77H7HHH7MH7H777H77H7HHH7HH7H777H77H7HHH7HM7H777H77H7HHH 

7M77H7HHH7HH7H777M-»7H7HHH7HH7M777H77H7HHH7HH7H777H77H7HHH7HH7H777H77H7HHH7HH7H777H77H7HHH7 
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SAMPLE PRINTOUT (CONT. ) 
NOTE: THIS SAMPLE PRINTOUT ILLUSTRATES A 52 CHARACTER TYPEBAR. 



CHARACTER COMPLIMENT 

1234567890 ABC'JEFGHIJKLMNOPORSTUVWXVZ «t-/Xufs, ,S8( )•• 
1234567890 ABCDEFGHI JKLMNOPORSTUVWXYZ +t-/Xn»=. .*»()• • 
234567890 ABCOEFGHIJKLMNOPORSTUVK X YZ +t-/XO«= ,.»»<) *• 
34567890 ABCDEFGHIJKLMNOPQRSTUVWXYZ +C-/Xn»= . . S8 < > * • 
4567890 ABCDFFGHIJKLMNOPORSTUVWXYZ +6-/Xn*=. . SSI ) * • 
567890 ABCDEFGHI JKLMK'OPORSTUVWXYZ +6-/Xn*= , . S3 ( ) * • 
67890 ASCOtFGHl JKLMNOPURSTUVkXVZ + E.-/XO *= , ,S» I > * • 
7890 ABCDEFGHIJKLf NOFORSTUVWXYZ +G-/Xn»= , . SB ( ) * • 
890 ABCDEFGHI JKLMNOPORSTUVWXYZ + {.-/*□»= , . sal ) » • 
90 ABCDEFGHI JKLMNOPORSTUVWXYZ + t-/Xn*=, . SS ( > * • 
O ABCDFFGHIJKLMNOPORSTUVWXYZ +fc-/Xn»= • ♦ S3( ) * • 
ABCDEFGHI JKLMNOPORSTUVWXYZ +t-/XD»= . .$« I )*• 
ABCOEFGH1 JKLMNOPORSTUVWXYZ +t-/XB*= , ,S» ( )*• 

ABCDEFGHIJKLMNOPQRSTUVWXYZ +t-/Xn» as , . S3 ( )*• 
ABCDFFGHIJKLMNOPORSTUVWXYZ + 6—/Xn» = , .SS( )*• 
BCDEFGH I JKLMNOPORSTUVWXYZ +t~/Xn*= , . Sffl < )»• 
CDEFGHI JKLMNOPORSTUVWXYZ ♦ fc-/Xn»= , .SS( )*• 
DEFGHI JKLMNOPORSTUVWXYZ +D-/XD«= . .SSI J*» 
EFGHI JKLMNOPORSTUVWXYZ + E--/Xn»=, . SSI )*• 
FGHI JKLMNOPORSTUVWXYZ + C.-/XH0Z, .SB< )*• 
GHI JKLMNOPORSTUVWXYZ + £.-/Xn»= , . S3 ( 1*« 
HI JKLMNQfVQRSTUVWXYZ ♦ 6-/Xn*= , .SS( )*• 



1234567890 ABCO 

1234S67890 A8COE 

1234567890 ABCOEF 

1234567690 ABCDEFG 

1234567690 ABCOEFGH 

1234567890 ABCDEFGHI 

1234567890 ABCOEFGHU 

1234567890 ABCDEFGHIJK 

1234567890 ABCDEFGHIJKL 

1234567890 ABCOEFGHI JKLM 

1234567890 ABCDEFGHI JKLMN 

1234567890 ABCDEFGHI JKLMNO 

12?4567890 ABCDEFGHI JKLMNOP 

1234567890 ABCDEFGHI JKLMKOPO 

1234567890 ABCDEFGHI JKLMNOPOR 

1234567890 ABCDEFGHI JKLMNOPORS 

1234567890 ABCDEFGHI JKLMNOPORST 

1234567890 ABCDEFGHI JKLMNOPORSTU 

1234567890 ABCDEFGHI JKLMNOPORSTUV 

1234567890 ABCDEFGHI JKLMNOPORS TUVW 

1234567890 ABCDEFGHI JKLMNOPORSTUVWX 

12 34567890 ABCDEFGHI JKLMNOPORSTUVWX V 

1234567890 ABCDEFGHIJKLMNOPQRSTUVWXYZ 

ABCDEFGHI JKLMNOPORSTUVWXYZ 

ABCDEFJ»^*N{LMNOPORSTUVWXYZ 

PPORSTUVWXYZ 

STUVWXYZ ♦ 
VWXYZ *t 




12345 
123456789" 
1234567U90 
1234567890 
1234S67E90 
1234567890 
1234567890 ABCDEFGHIJKLMNOPQRSTUVWXYZ +G-/Xn»=, .SS( > » • 
1234567890 ABCDEFGHIJKLMNOPQRSTUVWXYZ +&-/Xn*= , .SB ( ) * • 
1234567690 ABCDFFGHIJKLMNOPORSTUVWXYZ +&-/XtJ»= . .SSI ) »• 
1234567890 ABCDEFGHIJKLMNOPQRSTUVWXYZ +t-/Xn»= , .SS>( ) » • 
1234567890 ABCDEFGHIJKLMNOPQRSTUVWXYZ +t-/Xn*=, . SSI )* • 
1234567890 ABCDEFGHIJKLMNOPQRSTUVWXYZ +6-/Xn»=, .sal)* • 
1234567890 ABCDEFGHIJKLMNOPQRSTUVWXYZ +C-/Xn»= . . S3 < ) * • 
1234567890 ABCDEFGHIJKLMNOPQRSTUVWXYZ + C—/Xn» = , .sat )* • 
1234567690 ABCDEFGHIJKLMNOPORSTUVWXYZ +D-/Xn«= , .SS( ) ♦• 
123*567890 ABCDEFGHIJKLMNOPQRSTUVWXYZ +fc-/Xn»= , .SS( »*• 
1234567890 ABCDEFGHIJKLMNOPQRSTUVWXYZ *t-/Xn«= . .SSI ) * • 
1234567890 ABCDEFGHI JKLMNOPORSTir' rfXYZ ♦t-/Xn» = , .SSI )» • 



2345 
123456 
1234567 
12345678 
123456789 
1234567890 
1234567890 
1234567890 
1234567890 
1234567890 A 
1234567890 AB 
1234567890 ABC 
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SAMPLE PRINTOUT (CONT. ) 
NOTE: THIS SAMPLE PRINTOUT ILLUSTRATES A 52 CHARACTER TYPEBAR. 



REGISTRATION 

EnS^^SS?S? ffllfiaBfflfflffiaBII!,l ' l£fflBBBffiSBfflBffiaffifflffisffl aaasi«aBa«a8ffla!ffiEffi5iBffiffiffifflffl8BffiaBBfflfflBBaBSfflismfflBiii»iBiiiiiii»i«i 
£S^????!2 ffiBffiffifflffisasfflB * mBaffiBfflas * BffleBffl sa«B^ 

E B , e *»S? BS , BBBCa ' BBBffiBaBaftBBms,BB *® Bi5BBB ^^ 

E2S BCBC ;® BB !i* BB ^ MBBE,E >£^ 

ES^SbCeIbe^ 
BPJQCIiBGBSBBBajB 

bbbdebebeb 

BBGEfBSBEB 

BBBE1BBB 

BBB 

bill-. 




B8BH!B1_ 

SQBoejiasiafBttiftti'iiaiefflv 

BaBDQEGGS;GEG0BBli31BBBffiB'„^ 
SQiJCCCQDQBBQDElEie IBQOBSBBBV. 



^BGBBBBilGaQBBEIBCIEElBlSCDEBEGOnpeiV^ -rfBBBBBBOBBaSRIBffiBBEBnOSBBBBBBBliBfe, 
iCDQBBQBaCCGBBDBEDBlBCQCCCE0raaDBSLiJBBBBBBBaC66BQBQaBGBDBBBBBBBBffiaBBB» 




. JBGEGOGBBSB 

BBBIBBBBBBQIEEBBBBBBB 

DiBBaBBBBaBBBEiaBBQBBBBBBBB 



[BBBBlil , 

, ibbsbbbbi 

BgiBSBBSBBB 

QBBaBBBBBBBBB 

^ElCaaDBaaOaeaOOODEBBlBeBCECCaSaQBi^ 

BBQE.BGCGEEEBLCGBCIBBBl»&BtaeCGBE0BS!ii8S0&BBaBBBGDCi&&eBBGEEiBBBBaBaaBBBS&BBB6BaeBB8affl88aB8MlMI 

■BBBBBBGBEBBffiBEOaBBlBBBHeBBCQOCDBSQCBCBBBBQBSSBBSiBffiBSBBBeBeBBBBaBBBaBBBiBBBeSBBBBBBBBBBBBBB 

BBBElDCBBBBEiBGBBCEIBIBBBE'EiCCCCeEODBQISQfiieOOBCBDBQBS&CaBBBBaBBQBOBBBBBBffiBBIiBBSaBBBBBaBBBBBBBtl* 

* BBn &^S? DDGCDDDBlBEDBD6CCC ' EE0riCi:CiEQ0CCCCDQD8QB&£EeB QEeCBBCBGBISffiBBBBBSH«.BBBSBBBBBBBBBBBBB»« 

■ SOBCr.DQClCiEBljUDaiBBBBEIBElCBE;Cb)QDC2DCQBCCCaBCCGeBE:ElCQBDBraQC-EBC'BBBBSBeBBB8iBBBBBBBBBBBBBBB8SBS 

»BBBpCCDDBBBCBaiBBCGBB0::£QCDQEDC2CiDBBECCGCEBEBBCBCII:BBQeseeBQBBBBBBa;BnB!-:BBBBBBBBfflBBBB98BBe« 

BBBCIBCEwEBBBEBlBBEEEEiBElBC0EI0GDCCEECBCDCC.EBCltBCiBQBBlSBBBC'.DBEiCBEBBBBBEaEIBB-.BB8BBBBBBfflBBBBBBB»B 

B °S? D y C ? ED ? Dffl i BffiBDEDBQEHDC ^ CCG °C^-^^^CiCEBCGQEEGCCEBCEBECBEBGEaBeEBBC!EBC,6!eemiBBBBBBfflBBBBBBSB« 

BBBEGL.C-^C.oDaiBEEBEECECClECOEtEEECGC.EEOEESBBSffCCOCDGlSEEQEf'JEEDBBeEeeJGateElBBBBBEEBBaBBBBBBBBB 

^£CECEEC.ajBGEBGpGCBpp^ 

*£GCEXXX.Laie.GGUDCCCrjEM^ 

*^rr.-'rJ7l%rr'r^£rr^ [ -' ca " ZLCLlCL ± L - ■ ; - c - '- '- l - l -'~ [ ~ '-'- ecleosecceeee cc c dcccceececbeide'Ehdeeb beebg aa a bkbb 

*r?-r¥Zii,rr-%r-?rZn?£y?£9?^S$Z'zh~ 'r'XXXSGGrCGCEeceGCCCCaCEOGCGCGGBCSEECGBeiBBBC-BSBBBfflBBffiBBBBBa 
J, £££?],?£ r?P^£ D ^:£^El..EB^^ 

BBClElQlBi.-.GLEEBQBED0uLE-.DC<i;LUCECLL.L::jEC.CGCCECC!:CEGBDDCEQaCDGiX:GBBeEBBG5eBBEIBBBBBEieeBBBSBBBBBBB 
*p D ?'^ C ; CQGE!aQGCDCCCDCiDCC ^ C:CCLCC ^C : ^~CEEeCEi:EBGEBEE.ECErXEGDDECEGEBDCCBEHE:GEiEIBCCCEEGOGEESBBB8 
BE J 1 BCD.. C. f u EC. :Ol. X^_XX;..l.i_l i- GLCGEBCXLXCEEX CEC3CE ECXGGGClX E C GCCGEEEX GGDt BCIBEOE'GEEBBlIJIIiBSBBBB 



bbiexxex; 
he: 



xxxx.:: 
:.uixxx ; 



xx : 



XXi 



cxxrr :.. 



X:'- -ZCECL-CCXiEiC^- 

i:;:x;:xe xscc 2ec_g 



EEECECCECEtE EE-XXXfEEBXiQElEEBEBBBB 
CCS- EEC .HiE&BBESEiiBGBeBBSBEBBB 



BBBiBtEiUtBffiBaEQDtCBIaBeibieBBCiBiLDEaLiiEiBiiliiBBSGiBiBbSeB 
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NOTE: 



SAMPLE PRINTOUT (CONT. ) 
THIS SAMPLE PRINTOUT ILLUSTRATES A 52 CHARACTER TYPEBAR 



STRESS 

07XGP8YH09ZIROXn» 

7XGP8Y 

XGP8VHQ 



"Q97.IR0Xn*=,.$ac >** t-l/AJ2SBK3TCL4UDMSVEN6WFO7XGPeVH09ZIR0Xn»=,.*,j( )*• C-1/AJ2SBK3T 
2??i5£"-* =, **?i '*' t-I/AJ2SBK3TC '-«U0M5VEN6WF07XGP8YHQ9ZIR0Xn(»=,.sa( )*• C- 1 /AJ2SBK3TC 




•l*?U!^ e 7 1/AJ2SBK3TCL '' UDM5V t N 6»'FO7XGP8YMQ9zTR0Xn« = .:ia7»i« t-1 /a32SBK3TCL*Ud2sv6N6Sfo?Ig 
:^?i 2! * c t 7 I / A J 2SBK3T CL«UDMSVEN6WF07XGP8YHQ9ZIR0Xn«=. Ua<)»« t-l/iSzSBKSTCLAUDMSV- * 




EN6WFO7XGP8YHQ9ZIR0%n*=,.$a( )*t C- 1 /A J2SBK3TCL4UDMSVEN6WF07XGP6YH09Z I ROXn* 
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NOTE: 



SAMPLE PRINTOUT (CONT. ) 
THIS SAMPLE PRINTOUT ILLUSTRATES A 52 CHARACTER TYPEBAR. 



SPACE IMHEOIATE 



SPACE AFTER PRINT 



SPACE 
SPACE 
SPACE 

SPACE 

SPACE 

SPACE 

SPACE 

SPACE 

SPACE 



SPACE 
SPACE 
SPACE 
SPACE 

SPACE 

SPACE 

SPACE 

SPACE 

SPACE 



1 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE • 

I EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 

1 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE • 

2 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE/ 
2 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE/ 

2 EEEEEEEEEEEEEEEEEEEEEEEEEEE6EEEEEEEEEE/ 

3 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 
3 EEEEEEEEEEEEEEEEEEEEEEEECEEEEEEE/ 

3 EEEEEEEEEEEEEEEEEEEEEEEEEEEE / 



1 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 

1 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 

1 EEEEEEEEEEEEEEEFEEEEEEEEEEEEEEEEEEEEEEEEEEE • 

2 EEEEE<EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 

2 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 

2 EEEEEEEEEEFEEEEEEEEEEEEEEEEEEFEEEEEEEE / 

3 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 

3 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE/ 

3 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 



n n i) (i ii ii n ii 



DATE 28FEB66 4N0V66 
EC NO. 415120 415233 



PROG ID 
PAGE 



080A-0 
8A 



ii n ii i ii ii n ii ii n r i 



fi ii i 



n ii i ii i 



L 



i ( i i ii t i <l t i i i < i c V 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



1443 FUNCTION TEST 
SKIP IMMEDIATE 



PART NO. 2196384 
PAGE 9 



SAMPLE PRINTOUT (CONT. ) 

CHANNEL 1 EEEEEEEEEEECcEEEEEEEEEEESEEEEEEEEEEEEEEEEEEEEE / 



CHANNEL 2 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 



CHANNEL 3 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEF / 



CHANNEL 4 EEEEEEEEEEEEEEEEEEEEEE / 



CHANNEL S EEEEEEEEEEEEEE 



CHANNEL 6 EEEEEE / 



CHANNEL 7 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 



CHANNEL 8 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 



CHANNEL 9 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 



CHANNEL 10 EEEEEEEEEEEEEEEEEEEEEE / 



CHANNEL 11 EEEEEEEEEEEEEE 



CHANNEL 12 EEEEEE / 

NOTE: THIS SAMPLE PRINTOUT ILLUSTRATES A 52 CHARACTER TYPEBAR. 



DATE 28FEB66 4N0V66 
EC NO. 415120 415233 



PROG ID 080A-0 
PAGE 9 



1 1 < I t I 1 1 L CJ t 1 t C L t 



9 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



PART NO. 2196384 
PAGE 9A 



1443 FUNCTION TEST 

SKIP AFTER PRINT 



SAMPLE PRINTOUT (CONT. ) 

CHANNEL 1 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 

CHANNEL 2 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE.-EEEE / 

CHANNEL 3 EE6EEEEEEEEEEEEEEEEEEEEEEEEEEE / 

CHANNEL ♦ EEEEEEEEEEEEEEEEEEEEEE • 

CHANNEL 5 EEEEEEEEEEEEEE / 

CHANNEL 6 EEEEEE / 

CHANNEL 7 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE • 

CHANNEL 8 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 

CHANNEL 9 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 

CHANNEL 10 EEEEEEEEEEEEEEEEEEEEEE / 

CHANNEL 11 EEEEEEEEEEEEEE • 



CHANNEL 12 EEEEEE • 

NOTE: THIS SAMPLE PRINTOUT ILLUSTRATES A 52 CHARACTER TYPEBAR. 



DATE 28FEB66 4N0V66 
EC NO. 415120 415233 



PROG ID 080A-0 



PAGE 



» 



II II II 



I 1 'I 1 



I I 



t 4 4 ( 4 4 < 4 4 4 4 4 4 4 4 4 4 4 4 4 4 < 4 4 4 4 4 4 4 4 4 4 4 4 



I IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
, 1443 FUNCTION TEST 



PART NO. 2196382 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1443 FUNCTION TEST 



PART NO. 2196382 
PAGE 1A 











* 










80A00020 












*»*******♦***#******»*********«***#********** 




80A00030 






012C 







BEGIN 


EOU 


300 




* 


80A00040 






012D 







START 


EOU 


BEGIN&l 




* 


80A00050 






012E 







END 


EOU 


START61 




* 


80A00060 






012F 







LOG 


EOU 


ENDG1 




* 


80A00070 






0130 







ERROR 


EOU 


LOGtl 




* 


80A00080 






0131 







REQDV 


EOU 


ERR0R61 




* 


80A00090 






0132 







RELDV 


EQU 


REQDV61 




* 


80A00100 












*#***♦*******♦*#***##**##*##*#****###*##***** 




80A00110 












* 








* 


80A00120 












* 










80A00130 






07FF 






* 
* 
* 


ORG 


♦£2047 






80A00140 
80A00150 
80A00160 
80A00170 






07FF 





OAOO 


PID 


DC 


/OAOO 


PROGRAM ID 




80A00180 






0800 





0000 


RID 


DC 





ROUTINE ID 




80A00190 






0801 





0000 


RAD 


DC 





ROUTINE ADDRESS 




8OAO0200 






0802 





0000 


SWO 


DC 





CONTROL 




80A00210 






0803 





0000 


SW1 


DC 





ROUTINE SELECT 




80A00220 






0804 





0000 


SW2 


DC 









80A00230 






0805 





0000 


SW3 


DC 









80A00240 






0806 


1 


0894 




DC 


AGAIN 


INITIALIZATION ADDR 




80A00250 






0807 


1 


0894 




DC 


AGAIN 


LOOP PROGRAM ADDR 




80A00260 






0808 


1 


0E2E 




DC 


ENDIT 


END PROGRAM ADDRESS 




80A00270 






0809 





0000 


MLSCF 


DC 


/OOOO 


CONTROL FIELD 




80A00280 






080A 





FFFF 


TERM 


DC 


/FFFF 






80A00290 






080B 


1 


OFFD 




DC 


PEND 


LAST PROGRAM ADDRESS 




80A00300 






080C 





0000 




DC 









80A00310 






08 00 





0000 




DC 









80AOO320 






080E 





0000 




DC 









80A00330 






08 OF 





0000 


ONLIN 


DC 


*-* 


ON LINE SWITCH 




80A00340 






0810 





0002 


COMP 


DC 


2 


COMPATIBILITY SWITCH 




80A00350 












##*#*#*******#*#*#*****«#******#****#*#*#**«# 




80A00360 












* 










80A00370 












* 










80A00380 












* 




EDIT 


INFORMATION 




80A00390 












* 










80A00400 






0811 





FFFF 


DDEF1 


DC 


/FFFF 


1443 DEFINITION 




80A00410 






0812 





FFFF 


DDEF2 


DC 


/FFFF 


1443 DEFINITION 




80A00420 






0813 





0078 


SIZE 


DC 


120 


PRINTER SIZE 




80A00430 






0814 





0034 


BAR 


DC 


52 


TYPE BAR SIZE 




80A00440 






0816 




0008 




BSS 


E 8 






80A00450 












*****************»**#******#*********»******# 




80A00460 












* 










80A0047& 












* 










80A00480 












* 




DATA 


TABLES 




80A00490 












* 










80A00500 






081E 


1 


081E 


DST 


DC 


DST 




00 


80A00510 






081F 





0000 


RPCNT 


DC 


/OOOO 




1 


80A00520 






0820 





0000 


CYCNT 


DC 





CYCLE COUNTER 


02 


80A00530 






0821 





0000 


HACNT 

* 


DC 





WAIT COUNTER 


03 


80A00540 
80A00550 






0822 





0000 


DSW1 


DC 





1443 READY DSW 


04 


80A00560 






0823 





0000 




DC 





DSW S/B 


05 


80A00570 






0824 





0000 




DC 


/OOOO 


EXPECTED 


06 


80A00580 






0825 





E3FF 


♦ 


DC 


/E3FF 


MASK 


07 


80A00590 
80A00600 






0826 





0000 


DSW2 


DC 





PRINTER READY DSW 


08 


80A00610 






0827 





0000 




DC 





DSW S/B 


09 


80A00620 






0828 





0000 




DC 


/OOOO 


EXPECTED 


OA 


80A00630 






0829 





E3FB 


♦ 


DC 


/E3FB 


MASK 


OB 


80A00640 
80A00650 






082A 





0000 


DSW3 


DC 





CARRIAGE READY DSW 


oc , 


80A00660 






082B 





0000 




DC 





DSW S/B 


0D / 


80A00670 






082C 





0000 




DC 


/OOOO 


EXPECTED 


OE 


80A00680 






082D 





E3FC 




DC 


/E3FC 


MASK 


OF 


80A00690 




DATE 


04N0V66 15JUN68 


14N0V69 


20MAR70 






PROG ID 


080A-1 


EC NO. 


415233 411935 


431319 


431320 






PAGE 


1 





* 










80A00700 


082E OOOO 


DSW4 


DC 





1443 BUSY DSW 


10 


80A00710 


082F OOOO 




DC 





DSW S/B 


11 


80AOO72O 


0830 0007 




DC 


/0007 


EXPECTED 


12 


80A00730 


0831 E3FF 


* 


DC 


/E3FF 


MASK 


13 


80A00740 
80A00750 


0832 OOOO 


DSW5 


DC 





PRINTER BUSY DSW 


14 


80A00760 


08 33 OOOO 




DC 





DSW S/B 


15 


80A00770 


0834 0003 




DC 


/0003 


EXPECTED 


16 


80A00780 


0835 E3FB 


* 


DC 


/E3FB 


MASK 


17 


80A00790 
8OA0O8O0 


08 36 OOOO 


DSW6 


DC 





CARRIAGE BUSY DSW 


18 


80A00810 


0837 OOOO 




DC 





DSW S/B 


19 


80A00820 


0838 0004 




DC 


/0004 


EXPECTED 


1A 


80A00830 


0839 E3FF 


* 


DC 


/E3FF 


MASK 


IB 


80A00840 
80A00850 


083A OOOO 


DSW7 


DC 





CARRIAGE STATUS 


1C 


80A00860 


08 3B OOOO 




DC 





DSW S/B 


ID 


80A00870 


083C OOOO 




DC 


/OOOO 


EXPECTED 


IE 


80A00880 


083D FFF8 


* 


DC 


/FFF8 


MASK 


IF 


80A00890 
80A00900 


08 3E OOOO 


DSW8 


DC 





PRINTER ERROR DSW 


20 


80A00910 


083F OOOO 




DC 





DSW S/B 


21 


80A00920 


0840 6001 




DC 


/6001 


EXPECTED 


22 


80A00930 


0841 E3FB 


* 


DC 


/E3FB 


MASK 


23 


80A00940 
80A00950 


0842 OOOO 


DSW9 


DC 





XFER COMPLETE DSW 


24 


80A00960 


0843 OOOO 




DC 





DSW S/B 


25 


80A00970 


0844 8000 




DC 


/8000 


EXPECTED 


26 


80A00980 


0845 A3F8 


* 


DC 


/A3F8 


MASK 


27 


80A00990 
80A01000 


0846 OOOO 


DSWA 


DC 





PTR COMPLETE DSW 


28 


80A01010 


0847 OOOO 




DC 





DSW S/B 


29 


80A01020 


0848 2000 




DC 


/2000 


EXPECTED 


2A 


80A01030 


0849 E3FB 


* 


DC 


/E3FB 


MASK 


2B 


80A01040 
80A01050 


084A OOOO 


DSWB 


DC 







2C 


80A01060 


084B OOOO 




DC 





DSW S/B 


2D 


80A01070 


084C 8007 




DC 


/8007 


EXPECTED 


2E 


80A01080 


084D E3FB 


* 


DC 


/E3FB 


MASK 


2F 


80A01090 
80A01100 


084E OOOO 


DSWC 


DC 





FALSE INTERRUPT 


30 


80A01110 


084F OOOO 




DC 





DSW S/B 


31 


80A01120 


0850 OOOO 




DC 





EXPECTED 


32 


80A01130 


0851 OOOO 


# 


DC 





MASK 


33 


80A01140 
80A01150 


0852 OOOO 


DSWD 


DC 





LOST TRANSFER CMPLT 


34 


80A01160 


0853 OOOO 




DC 





* INTERRUPT 


35 


80A01170 


0854 OOOO 




DC 







36 


80A01180 


0855 OOOO 


* 


DC 





- 


37 


80A01190 
80A01200 


0856 OOOO 


DSWE 


DC 





LOST PRINTER CMPLT 


38 


80A01210 


0857 OOOO 




DC 





* INTERRUPT 


39 


80A01220 


0858 OOOO 




DC 







3A 


80A01230 


0859 OOOO 


* 


DC 







3B 


80A01240 
80A01250 


085A OOOO 


CNTRL 


DC 





- CONTROL IOCC 


3C 


80A01260 


085B 0400 




DC 


/0400 




3D 


80A01270 


085C 1 0F14 


WRITE 


DC 


BITS 


INITIALIZE WRITE 


3E 


80A01280 


085D 0500 


* 


DC 


/0500 


* IOCC 


3F 


80A01290 
80A01300 


085E OOOO 


XFDSW 


DC 





XFER CMPLT DSW 


40 


8OA01310 


085F 0700 


SENSO 


DC 


/0700 


SENSE DSW - NO RESET 


41 


80A01320 


0860 OOOO 


PRDSW 


DC 





PTR CMPLT DSW 


42 


80A01330 


0861 0701 


SENSD 
* 


DC 


/0701 


SENSE DSW - RESET 


43 


80A01340 
80A0135O 


0862 OOOO 


SWCMP 


DC 


/OOOO 


SWO COMPARE WORD 


44 


80A01360 


0863 0400 


K0400 


DC 


/0400 


CONSTANT 


45 


80A01370 



DATE 
EC NO. 



04N0V66 
415233 



15JUN68 
411935 



14N0V69 
431319 



20MAR70 
431320 



PROG ID 

PAGE 



080A-1 
1A 



L 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1443 FUNCTION TEST 



0864 





0100 


K0100 


DC 


/0100 


CONSTANT 


46 


80A01380 


0865 





0200 


K0200 
* 


DC 


/0200 


CONSTANT 


47 


80A01390 
80A01400 


0866 





0000 


SBANQ 


DC 





SAVED ACC AND Q REGS 


48 


80A01410 


0867 





0000 




DC 







49 


80A01420 


0868 





0001 


ONE 


DC 


1 


CONSTANT 


4A 


80A01430 


0869 





OOOF 


MASK 

* 


DC 


/OOOF 


MASK FOR ROUTINES 


4B 


80A01440 
80A01450 


086A 





001F 


BASIC 


DC 


/001F 


BASIC ROUTINES 


4C 


80A01460 


086B 





0010 


ALL 


DC 


LAST-RTABL 


NUMBER OF ROUTINES 


40 


80A01470 


086C 





0000 


KEEP 


DC 





DONT RELEASE 1443 


4E 


80A01480 


086D 





0101 


ONECH 

* 


DC 


/0101 


CONSTANT 


4F 


80A01490 
80A01500 


086E 





OOOC 


KOOOC 


DC 


/OOOC 


CONSTANT 12 


50 


80A01510 


086F 





2100 


SPAC1 


DC 


/2100 


ONE SPACE 


51 


80A01520 


0870 





2200 


SPAC2 


DC 


/2200 


TWO SPACE 


52 


80A01530 


0871 





2300 


SPAC3 

* 


DC 


/2300 


THREE SPACES 


53 


80A01540 
80A01550 


0872 





1100 


WRSP1 


DC 


moo 


SPACE AFTER PRINT 


54 


80A0I56O 


0873 





3100 


WRSK1 


DC 


/3100 


SKIP AFTER PRINT 


55 


80A01570 


0874 





2100 


IMSP1 


DC 


72100 


IMMEDIATE SPACE 


56 


80A01580 


0875 





0011 


SLASH 

* 


DC 


/0011 




57 


80A01590 
80A01600 


0876 





0000 


STEP 


DC 


/OOOO 


SPACING SIZE 


58 


80A01610 








******************#*****>!t<=**<c##*=«c5(c**#*:3S:*=Ss>^jJt** 




80A01620 








* 










80A01630 








* 










80A01640 








* 










80A01650 








# 




INTERRUPT ROUTINE 




80A01660 








* 










80A01670 


0877 





0000 


INTSW 


DC 


*-# 






80A01680 


0878 





0000 


DVA 

* 


DC 


/OOOO 






80A01690 
80A01700 


0879 





0000 


INTRP 

* 


DC 


/OOOO 






80A01710 
80A01720 


087A 





08E6 




XIO 


SENSD 


SENSE DSW - RESET 




80A01730 


087B 





1000 


* 


NOP 








80A01740 
80A01750 


087C 


1 


4C10 0886 




BSC L INTR1,- 


BR IF NOT XFER CMPLT 




80A01760 


087E 





18D0 




RTE 


16 






80A01770 


087F 





CODE 




LD 


XFDSW 






80A01780 


0880 





F0E3 




EOR 


K0100 






80A01790 


0881 


1 


4C20 088E 




BSC L INTRE, Z 


BR IF SECOND INTRPT 




80A01800 


0883 





1800 




RTE 


16 






80A01810 


0884 





D0D9 




STO 


XFDSW 






80A01820 


0885 





700C 


* 

* 


MDX 


INTRX 


EXIT 




80A01830 
80A01840 
80A01850 


0886 





18D0 


INTR1 


RTE 


16 






80A01860 


0887 





C0D8 




LD 


PRDSW 






80A01870 


0888 





FODB 




EOR 


K0100 






80A01880 


0889 


1 


4C20 088E 




BSC L INTRE, Z 


BR IF SECOND INTRPT 




80A01890 


088B 





18D0 




RTE 


16 






80A01900 


088C 





D0D3 




STO 


PRDSW 


SAVE PTR CMPLT DSW 




80A01910 


088D 





7002 


# 


MDX 


INTRR 






80A01920 
80A01930 
80A01940 


088E 





18D0 


INTRE 


RTE 


16 


SAVE ERROR MESSAGE 




80A01950 


088F 





DOBE 




STO 


DSWC 






80A01960 


0890 





1010 


INTRR 


SLA 


16 


CLEAR 'A' REG 




80A01970 


0891 





D0E5 




STO 


INTSW 


CLEAR INTERRUPT SWITCH 


80A01980 








* 










80A01990 


0892 


1 


4C80 0879 


INTRX 


BSC i 


INTRP 


EXIT 




80A020O0 








*****************###****#*****#***#*****$$££.{. 




80A02010 








* 










80A02020 








* 










80A02030 








* 










80A02040 








* 




INITIALIZATION ROUTINE 




80AO2050 



0894 





OOOO 




AGAIN 


DC 




/OOOO 


0895 





10A0 






SLT 




32 


08 96 





6314 






LDX 


3 


20 


0897 


1 


DFOO 


0D72 


AGIN1 


STD 


L3 


MSGAR 


0899 





73FE 






MDX 


3 


-2 


089A 





70FC 




* 


MDX 




AGIN1 


089B 





6334 




LDX 


3 


52 


08 9C 


1 


DFOO 


0822 


AGIN2 


STD 


L3 


DST64 


089E 





73FC 






MDX 


3 


-4 


089F 





70FC 






MDX 




AGIN2 


08A0 





DOCB 




% 


STO 




KEEP 


08A1 


1 


6600 


08BA 




LDX 


L2 


STARX 


08A3 


1 


6E00 


0809 


# 


STX 


L2 


MLSCF 


08A5 


1 


D400 


0800 


STO 


L 


RID 


08A7 


1 


4C80 


0894 




BSC 


I 


AGAIN 










ft**********************: 
# 










# 
* 






ROUT 


08 A9 


1 


090F 




RTABL 


DC 




RTZ 


08AA 


1 


0932 






DC 




RT01 


08AB 


1 


0947 






DC 




RT02 


08AC 


1 


095B 






DC 




RT03 


08AD 


1 


0984 






DC 




RT04 


08AE 


1 


09BF 






DC 




RT05 


08AF 


1 


09DF 






DC 




RT06 


08B0 


1 


OAOD 






DC 




RT07 


08B1 


1 


0A1F 






DC 




RT08 


08B2 


1 


0A31 






DC 




RT09 


08B3 


1 


0A46 






DC 




RTOA 


08B4 


1 


0AA7 






DC 




RTOB 


08B5 


1 


OABC 






DC 




RTOC 


08B6 


1 


0AF1 






DC 




RTOD 


08B7 


1 


0B2E 






DC 




RTOE 


08B8 


1 


0B64 






DC 




RTOF 


08B9 


1 


08FC 




LAST 


DC 




RTZZZ 










************** *#*****#*: 

* 

* 










* 
* 
* 

* 






PROGI 


08BA 


1 


6600 


081E 


STARX 


LDX 


L2 


DST 


08BC 





C2E6 






LD 


2 


SW2-DST 


08BD 





1002 






SLA 




2 


08BE 


1 


4C10 


08C6 




BSC 


L 


STAR1,- 


08CO 





C2F4 






LD 


2 


DDEF2-DST 


08C1 


1 


4C28 


08C6 




BSC 


L 


STAR1.6Z 


08C3 


1 


6700 


0812 




LDX 


L3 


DDEF2 


08C5 





7007 




Jft 


MDX 




STAR2 


08C6 





C2F3 




STAR1 


LD 


2 


DDEF1-DST 


08C7 


1 


4C28 


0E3F 




BSC 


L 


DEND,£Z 


08C9 





4CA8 


012E 




BSC 


I 


END,£Z 


08CB 


1 


6700 


0811 


# 


LDX 


L3 


DDEF1 


08CD 


1 


6F00 


0E10 


STAR2 


STX 


L3 


GETAD 


08CF 


1 


6F00 


ODFD 




STX 


L3 


DRAD 


08D1 


1 


6F00 


0E3B 


* 
* 


STX 


L3 


ENDAD 



CLEAR LOG MSG AREA 



CLEAR ERROR AREAS 



SET STARTING ADDRESS 



INITIALIZE RID 
EXIT 

********************** 



INE ADDRESS TABLE 



END OF PROGRAM 

si******************** 



RAM START ROUTINE 



BR IF NOT PTR TWO 
BR IF NO PTR 2 THERE 



END IF EDIT ERROR 
END IF NOT THERE 
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80A02060 
80A02070 
80A02080 
80A02090 
80A02100 
80A02110 
80A02120 
80A02130 
80A02140 
80A02150 
80A02160 
80A02170 
80A02180 
80A02190 
80A02200 
80A02210 
80A02220 
80A02230 
80A02240 
80A02250 
80A02260 
80A02270 
80A02280 
80A02290 
80A02300 
80A02310 
8OA02320 
80A02330 
80A02340 
80A02350 
80A02360 
80A02370 
80A02380 
80A02390 
80A02400 
80A02410 
80A02420 
80A02430 
80A02440 
80A02450 
80A02460 
80A02470 
80A02480 
80A02490 
80A02500 
80A02510 
80A02520 
80A02530 
80A02540 
8OA02550 
80A02560 
80A02570 
80A02580 
80A02590 
80A02600 
80A02610 
80A02620 
80A02630 
80A02640 
80A02650 
80A02660 
80A02670 
80A02680 
80A02690 
80A02700 
80A02710 
80A02720 
80A02730 



DATE 
EC NO. 



04N0V66 
415233 



15JUN68 

411935 



14N0V69 
431319 



20MAR70 
431320 



PROG ID 


080A-1 


DATE 


04 NOV 66 


15JUN68 


14N0V69 


20MAR70 


PAGE 


2 


e; no. 


415233 


411935 


431319 


431320 



PROG ID 
PAGE 



080A-1 
2A 



-y 
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F 



IBM MAINTENANCE DIAGNOSTIC 
1443 FUNCTION TEST 



PROGRAM FOR THE 1800 SYSTEM 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1443 FUNCTION TEST 



08D3 1 4400 


0E06 




BSI 


L 


GETDE 


REQUEST USE OF 1443 


80A02740 


08D5 C245 






LD 


2 


K0400-DST 




80A02750 


08D6 EA5A 






OR 


2 


DVA-DST 




80A02760 


08D7 D23D 






STO 


2 


CNTRLC1-DST CONTROL IOCC 


80A02770 


08D8 EA46 






OR 


2 


K0100-DST 




80AO2780 


08D9 D23F 






STO 


2 


WRITEtU-DST WRITE IOCC 


80A02790 


08DA EA47 






OR 


2 


K0200-DST 




80A02800 


08DB D241 






STO 


2 


SENSO-DST 


SENSE - NO RESET 


80A02810 


08DC 824A 






A 


2 


ONE-DST 




80A02820 


08DD D243 






STO 


2 


SENSD-DST 


SENSE - RESET IOCC 


80A02830 


08DE 1 4400 


0DF3 




BSI 


L 


DROPD 


RELEASE DEVICE 


80A02840 






*****************#**#*#* ********************* 


80A02850 






* 










80A02860 






# 










80A02870 






* 










80A02880 






* 






PRINTER ROUTINE CONTROLLER 


80A02890 






* 










80A02900 


08E0 1 6600 


08 IE 


PCON 


LDX 


L2 


DST 




80A02910 


08E2 1 6500 


0074 




LDX 


LI 


MSGARC2 


RESET LOG AREA 


80A02920 


08E4 1 6D00 


0D61 




STX 


LI 


QL0G1K1 




80A02930 


08E6 610A 






LDX 


1 


10 


SET CYCLE COUNTER 


80A02940 


08E7 1 6D00 


08 20 


* 


STX 


LI 


CYCNT 




80A02950 
80A02960 


08E9 C2E5 






LD 


2 


SW1-DST 


ASSURE PROPER ENTRY 


80A02970 


08EA D244 






STO 


2 


SWCMP-DST 




80A02980 


08EB E24C 




* 


AND 


2 


BASIC-DST 




80A02990 
80A03000 


08EC B24D 






CMP 


2 


ALL-DST 


CHECK FOR PROPER RTN 


80A03010 


08ED E24B 






AND 


2 


MASK-DST 


RTN TOO LARGE 


80A03020 


08EE 1000 






NOP 








80A03030 


08EF 4820 






BSC 




Z 


SET ROUTINE ID 


80A03040 


08F0 D2E2 






STO 


2 


RID-DST 




80A03050 


08F1 1 6580 


08 00 


* 


LDX 


11 


RID 


UPDATE THE RID 


80A03060 
80A03070 


08F3 4818 






BSC 




C- 


INDEX IF NO LOOP 


80A03080 


08F4 7101 




* 


MDX 


1 


1 




80A03090 
80A03100 


08F5 1 6D00 


0800 




STX 


LI 


RID 


SET RTN NO AND ADDR 


80A03U0 


08F7 1 C500 


08A8 




LD 


LI 


RTABL-1 




80A03120 


08F9 D2E3 






STO 


2 


RAD-DST 




80A03130 


08FA 1 4D80 


08A8 


* 

* 
* 


BSC 


U 


RTABL-1 


EXIT TO ROUTINE 


80A03140 
80A03150 
80A03160 
80A03170 


08FC 1 4400 


OCCC 


RTZZZ 


BSI 


L 


SEBIT 


SET END PROG MESSAGE 


80A03180 


08FE 0014 






DC 




20 




80A03190 


08FF 1 0E66 






DC 




BLANK 




80A03200 


0900 0001 




* 


DC 




1 




80A03210 
80A03220 


0901 1 4400 


OCCC 




BSI 


L 


SEBIT 


SET END PROG MESSAGE 


80A03230 


0903 FFFA 






DC 




-6 




80A03240 


0904 1 0E98 






DC 




EOT 




80A03250 


0905 0006 




* 


DC 




6 




80A03260 
80A03270 


0906 1 4400 


0C7B 


* 


BSI 


L 


HDNG 


PRINT END OF TEST 


80A03280 
80A03290 


0908 6101 






LDX 


1 


1 




80A03300 


0909 1 4400 


0C50 




BSI 


L 


PTRDY 


AWAIT READY 


80A03310 


090B 1 4400 


0DF3 




BSI 


L 


DROPD 


RELEASE THE 1443 


80A03320 


090D 4C80 


012E 


* 


BSC 


I 


END 


END OF TEST 


80A03330 
80A03340 






**************************** lM ,, l „ M ,*, M . *,!,**»,«<„,„„ 


80A03350 






* 










80A03360 






* 










80A03370 






* 










80A03380 






* 






ROUTINE ONE 


80A03390 






* 










80A03400 






* 








READY / NOT BUSY 


80A03410 



090F 6500 0090 

0911 1010 

0912 1 D500 0F14 

0914 71FF 

0915 70FC 

0916 6500 0048 
0918 1 6D00 0F14 

091A C24A 
091B EA3F 
091C D23F 

091D 6101 
091E 1 4400 OC50 
0920 1 4400 OCAC 



0922 
0923 
0925 
0926 
0927 
0928 

0929 1 
092B 1 
092D 1 
092F 

0930 1 



610A 

4400 0D3A 
C23F 
1801 
1001 
D23F 

4400 0DC2 
4400 0D93 
74FF 0820 
70DF 
4C00 08E0 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
RTZ 

RTZ1 



LDX LI 144 

SLA 16 

STO LI BITS 

MDX 1 -1 

MDX RTZ1 



LDX 
STX 

LD 
OR 
STO 



LI 72 
LI BITS 



THIS ROUTINE PRINTS TEN 
LINES OF NOTHING SPACE 
SUPRESSED. IT CHECKS 
THAT THE 1443 CAN BE 
MADE READY, GOES BUSY 
AND NOT READY, ISSUES 
A PRINT COMPLETE 
INTERRUPT AND RETURNS 
TO READY. 

CLEAR OUTPUT AREA 



SET WORD COUNT 



2 ONE-DST 

2 WRITE61-DST 

2 WRITE61-DST 



SET SPACE SUPRESS 



LDX 1 1 
BSI L PTRDY 
BSI L PRINT 



CHECK PRINTER READY 
PRINT NOTHING 



0932 1010 

0933 1 D400 OF 14 

0935 6102 

0936 1 4400 0C50 
0938 610B 



LDX 
BSI 
LD 
SRA 
SLA 
STO 
BSI 
BSI 
MDX 
MDX 
BSC 
********** 

* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 

* 

* 

RT01 SLA 
STO 

RT01A LDX 
BSI 
LDX 



1 /A 

L CKPTR CK PRINTER CMPLT 

2 WRITE61-DST 
1 

1 
2 WRITES1-DST 
L ERRIT PRINT ANY ERRORS 
L LOGIT LOG ANY ERRORS 
L CYCNT, -1 SKIP IF RTN DONE 

RTZ 
L PCON 
a**************** as *,},** ************ 



ROUTINE TWO 

CONTINUITY 



16 
L BITS 

1 2 
L PTRDY 

1 /B 



THIS ROUTINE PRINTS WITH 
A WORD COUNT OF ZERO. 
TRANSFER COMPLETE INTRPT 
WILL BE REQUESTED 
IMMEDIATELY IF THERE IS 
CONTINUITY BETWEEN THE 
PC AND THE 1443. PRINTER 
COMPLETE INTERRUPT WILL 
COME ALONG WHEN THE 1443 
BUFFER REACHES ADDRESS 
197. IF NO PRINTER 
COMPLETE OCCURS THE 
CONTINUITY BETWEEN THE 
1443 AND THE ATTACHMENT 
MAY BE QUESTIONED. 

ZERO WORD COUNT 



PRINTER READY 
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80A03420 

80A03430 

80A03440 

80A03450 

80A03460 

80A03470 

80A03480 

80A03490 

80A03500 

80A03510 

80A03520 

80A03530 

80A03540 

80A03550 

80A03560 

80A03570 

80A03580 

80A03590 

80A03600 

80A03610 

80A03620 

80A03630 

80A03640 

80A03650. 

80A03660 

80A03670 

80A03680 

80A03690 

80A03700 

80A03710 

80A03720 

80A03730 

80A03740 

80A03750 

80A03760 

80A03770 

80A03780 

80A03790 

80A03800 

80A03810 

80AO382O 

80A03830 

80A03840 

80A03850 

80A03860 

80A03870 

80A03880 

80A03890 

80A03900 

80A03910 

80A03920 

80A03930 

80A03940 

80A03950 

80A03960 

80A03970 

80A03980 

80A03990 

80A04000 

80A04010 

80A04020 

80A04030 

80A04040 

80A04050 

80A04060 

80A04070 

80A04080 

80A04090 



2196382 
3A 



( DATE 
EC NO. 



04N0V66 
415233 



15JUN68 
411935 



14N0V69 
431319 



20MAR70 
431320 



PROG ID 
PAGE 



080A-1 
3 



DATE 
EC NO. 



04N0V66 
415233 



15JUN68 
411935 



14N0V69 
431319 



20MAR70 
431320 



PROG 
PAGE 



080A-1 
3A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



1443 FUNCTION TEST 



0939 
093B 



4400 OCAC 
610A 



093C 1 4400 0D3A 
093E 1 4400 0DC2 
0940 1 4400 0093 
0942 1 74FF 0820 

0944 70FO 

0945 1 4C00 08E0 



0947 6103 

0948 1 4400 0C50 

094A C251 
094B D23C 

094C 6104 
0940 1 4400 0C95 
094F 610A 
0950 1 4400 003A 

0952 1 4400 0DC2 
0954 1 4400 0093 
0956 1 74FF 0820 

0958 70EE 

0959 1 4C00 08E0 



095B 1 4400 OCCC 
0950 0005 
095E 1 0E49 
095F 0005 

0960 1 4400 0C7B 



0962 
0964 
0965 
0966 



1 4400 OCCC 

0090 

1 0E4D 
0007 



BSI 
LOX 
BSI 
BSI 
BSI 
MDX 
MDX 
BSC 



L PRINT 

1 10 
L CKPTR 
L ERRIT 
L LOGIT 
L CYCNT, -1 

RT01A 
L PCON 



PRINT ONE LINE 

CK PRINTER COMPLETE 
PRINT ANY ERRORS 
LOG ANY MESSAGES 
SKIP IF RTN DONE 

EXIT TO NEXT ROUTINE 



1 3 

L PTRDY 



ROUTINE THREE 

CARRIAGE BUSY 

THIS ROUTINE CHECKS THAT 
THE CARRIAGE BUSY 
INDICATOR FUNCTIONS 
PROPERLY 

CK CARRIAGE READY 



2 SPAC1-DST SET TO SINGLE SPACE 
2 CNTRL-DST 



* 
* 
********************************************* 

* 
* 
* 
* 
* 
* 
* 
* 
# 
* 
* 
RT02 LOX 

BSI 
* 

LD 

STO 
* 

LOX 

BSI 

LDX 

BSI 
* 

BSI 

BSI 

MDX 

MDX 

BSC 

********************************************* 

* 
* 
* 
* 
# 
* 

# 
* 
* 
* 
* 
* 
* 
* 



1 4 
L FORMS 

1 10 
L CKPTR 

L ERRIT 
L LOGIT 
L CYCNT, -1 

RT02 
L PCON 



PERFORM SPACING 
SET XI CTRL 
GO CK PRNTR 

PRINT ANY ERRORS 
LOG ANY MESSAGES 
SKIP IF DONE 



RT03 BSI 
DC 

DC 
DC 



0967 C2F5 



BSI 

BSI 
DC 
DC 
DC 

LD 



. SEBIT 
5 

BLINE 
5 

. HDNG 

. SEBIT 
144 
BILK 

7 

2 SIZE-OST 



ROUTINE FOUR 

BIT LINE 

THIS ROUTINE CHECKS THE 
ABILITY OF THE 1443 TO 
RECEIVE AND PRINT DATA 
IN ITS SIMPLEST FORM. 
SINGLE BIT CHARACTERS 
ARE ROTATED THROUGH ALL 
PRINT POSITIONS. 

SET UP HEADING 



PRINT HEADING 

SET UP ROUTINE DATA 
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80A04100 

80A04110 

80A04120 

80A04130 

80A04140 

80A04150 

80A04160 

80A04170 

80A04180 

80A04190 

80A04200 

80A04210 

80A04220 

80A04230 

80A04240 

80A04250 

80A04260 

80A04270 

80A04280 

80A04290 

80A04300 

80A04310 

80A04320 

80A04330 

80A04340 

80A04350 

80A04360 

80A04370 

80A04380 

80A04390 

80A04400 

80A04410 

80A04420 

80A04430 

80A04440 

80A04450 

80A04460 

80AO4470 

80A04480 

80A04490 

80A04500 

80A04510 

80A04520 

80A04530 

80A04540 

80A04550 

80A04560 

80A04570 

80A04580 

80A04590. 

80A04600 

80A04610 

80A04620 

80A04630 

80A04640 

80A04650 

80A04660 

80A04670 

80A04680 

80A04690 

80A04700 

80A04710 

80A04720 

80A04730 

80A04740 

80A04750 

80A04760 

80A04770 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1443 FUNCTION TEST 






0968 
0969 
096B 
096C 
096E 
0970 
0971 
0973 
0975 
0976 
0978 
0979 
097B 
097D 
097F 
0981 
0982 



1801 
D400 



630E 



6F00 
4400 



6102 



4400 
4400 



6109 



4400 
610A 
4400 
4400 
4400 
74FF 
70EC 
4C00 



0F14 

0820 
0CB9 

0C50 
OCAC 

0D14 

0D3A 
0DC2 
0D93 
08 20 

08E0 



0984 1 4400 OCCC 

0986 0003 

0987 1 0E54 

0988 0003 

0989 1810 
098A 92EC 
098B D009 

098C 1 4400 0C7B 



SRA 
STO 
LDX 
STX 
RT03A BSI 
LDX 
BSI 
BSI 
LDX 
BSI 
LDX 
BSI 
BSI 
BSI 
MDX 
MOX 

BSC 

********** 

* 
* 
* 
* 

* 

* 

* 

* 

* 

* 

* 

* 

RT04 BSI 
DC 
DC 
DC 

* 

SRA 
S 

STO 

* 

BSI 



1 



1 
L BITS 

3 14 
L3 CYCNT 
L ROTA 

1 2 
L PTRDY 

PRINT 

9 

CKXFR 

10 

CKPTR 

ERRIT 

LOGIT 

CYCNT, -1 

RT03A 

PCON EXIT TO NEXT ROUTINE 

*********************************** 



ROUTINE FIVE 

PARITY CHECK 



ROTATE OUTPUT CHARS 

CHECK PRINTER READY 
PRINT LINE 

CHECK TRASNFER CMPLT 

CHECK PRINTER CMPLT 
PRINT ANY ERRORS 
LOG ANY MESSAGES 
SKIP IF RTN DONE 



THIS ROUTINE CHECKS THAT 
THE PRINTER CIRCUITRY 
WILL RESPOND TO BAD 
PARITY CHARACTERS. 

. SEBIT SET UP HEADING 
3 
PAR 

3 

16 INITIALIZE PARITY 

2 TERM-DST * DATA GENERATION 
BLNCT 



HDNG 



PRINT RTN HEADING 



098E 





C2F5 






LD 


2 


SIZE-DST 




098F 





D202 






STO 


2 


CYCNT-DST 




0990 


1 


6700 


0E58 


RT4I3 


LDX 


L3 


PARK 




0992 





6B08 




* 


STX 


3 


PACNT 




0993 


1 


4400 


OCCC 


SETPA 


BSI 


L 


SEBIT 




0995 





0000 




BLNCT 


DC 




- 120 *WCn 


0996 


1 


0E66 






DC 




BLANK 




0997 





0001 






DC 




1 




0998 


1 


4400 


OCCC 




BSI 


L 


SEBIT 




099A 





FFFF 






DC 




-1 




099B 





0000 




PACNT 


DC 




«PARKa 




099C 





0001 




* 


DC 




1 


, 


0990 





6102 






LDX 


1 


2 




099E 


1 


4400 


0C50 




BSI 


L 


PTRDY 


PRINTER READY 


09A0 


1 


4400 


OCAC 




BSI 


L 


PRINT 


PRINT ONE LINE 


09 A 2 





6109 






LDX 


1 


9 




09A3 


1 


4400 


0014 




BSI 


L 


CKXFR 


CHECK TRANSFER C 


09A5 





6108 






LDX 


1 


8 




09A6 


1 


4400 


0D3A 


* 


BSI 


L 


CKPTR 


CK PRINTER CMPLT 


09A8 


1 


4400 


0DC2 




BSI 


L 


ERRIT 


PRINT ANY ERRORS 


09AA 


1 


4400 


0D93 


* 


BSI 


L 


LOGIT 


GO LOG MESSAGES 


09AC 





COEE 






LD 




PACNT 




09AD 





92EC 






S 


2 


TERM-DST 
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80A04780 
80A04790 
80A04800 
80A04810 
80A04820 
80A04830 
80A04840 
80A04850 
80A04860 
80A04870 
80A04880 
80A04890 
80A04900 
80A04910 
80A04920 
80A04930 

80A04940 
80A04950 
80A04960 
80A04970 
80A04980 
80A04990 
80A05000 
80A05010 
80A05020 
80A05030 
80A05040 
80A05050 
80A05060 
80A05070 
80A05080 
80A05090 
80A05100 
80A05110 
80A05120 
80A05130 
80A05140 
80A05150 
80A05160 
80A05170 
80A05180 
80A05190 
80A05200 
8OA05210 
80A05220 
80A05230 
80A05240 
80A05250 
80A05260 
80A05270 
80A05280 
80A05290 
80A05300 
80A05310 
80A05320 
80A05330 
80A05340 
80A05350 
80A05360 
80A05370 
80A05380 
80A05390 
80A05400 
80A05410 
80A05420 
80A05430 
80A05440 
80A05450 



OATE 
EC NO. 



04N0V66 
415233 



15JUN68 
411935 



14N0V69 
431319 



20MAR70 
431320 



PROG ID 


080A-1 


DATE 


04NOV66 


15JUN68 


14N0V69 


20MAR70 


PAGE 


4 


EC NO. 


415233 


411935 


431319 


431320 



PROG ID 
PAGE 



080A-1 
4A 
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09AE 





DOEC 






STO 




PACNT 






80A05460 


09AF 





100F 






SLA 




15 






80A05470 


09B0 





4820 






BSC 




Z 






80A05480 


09B1 





70E1 




* 


MDX 




SETPA 






80A05490 
80A05500 


09B2 


1 


74FE 


0820 




MDX 


L 


CYCNT 


.-2 


SKIP IF RTN DONE 


80A05510 


09B4 





7002 






MDX 




RT04C 






80A05520 


09B5 


1 


4C00 


08E0 


* 


BSC 


L 


PCON 




EXIT TO NEXT ROUTINE 


80A05530 
80A05540 


09B7 


1 


7401 


0995 


RT04C 


MDX 


L 


BLNCT 


.1 




80A05550 


09B9 





C0E1 






LD 




PACNT 






80A05560 


09BA 





9003 






S 




EPARK 






80A05570 


09 BB 


1 


4C28 


0993 




BSC 


L 


SETPA 


,EZ 




80A05580 


09BD 





70D2 




# 


MDX 




RT4I3 






80A05590 
80A05600 


09BE 


1 


0E65 




EPARK 


DC 




PARKE13 




80A05610 










*********#***>!.********♦**#****»*♦************ 


80A05620 










* 












80A05630 










* 












80A05640 










# 












80A05650 










* 












80A05660 










* 












80A05670 










* 






ROUTINE SIX 


80A05680 










* 












80A05690 










* 










CYCLE STEAL PICK-UP 


80A05700 










* 












80AQ5710 










* 






THIS 


ROUTINE CHECKS THAT 


80A05720 










* 








THE 


NUMBER OF CYCLE 


80A05730 










* 








STEALS TO THE PRINTER 


80A05740 










* 








DO 


NOT EXCEED THE WORD 


80A05750 










* 








COUNT. CS3S ARE ENDED 


80A05760 










* 








AND 


THE 1443 TAKES A 


80A05770 










* 








PRINT CYCLE WHEN THE 


80A05780 










* 








BUFFER ADDRESS REACHES 


80A05790 










* 








197 


. 


8OA05800 










* 












80A05810 










* 








A WORD COUNT OF 98 WILL 


80A05820 










* 








JUST MAKE IT. 


80A05830 










* 












80A05840 










* 








IF 


THE WORD COUNT REG 


80A05850 










* 








FAILS TO DECREMENT OR AN 


80A05860 










* 








EXTRA WORD IS SENT TO 


80A05870 










* 








THE 


1443, THE LINE PRINT 


80A05880 










* 








CYCLE WILL START BEFORE 


80A05890 










* 








WC 


IS ZERO AND WILL BE 


80A05900 










* 








DETECTED BY LOSS OF 


80A05910 










* 








TRANSFER COMPLETE. 


80A05920 










* 












80A05930 


09BF 


1 


4400 


OCCC 


RT05 


BS1 


L 


SEBIT 




SET UP HEADING 


80A05940 


09C1 





OOOA 






DC 




10 






80A05950 


09C2 


1 


0E67 






PC 




CSTEL 






80A05960 


09C3 





OOOA 




* 


DC 




10 






80A05970 
80A05980 


09C4 


1 


4400 


0C7B 




BSI 


L 


HDNG 




PRINT RTN HEADING 


80A05990 


09C6 


1 


4400 


OCCC 




BSI 


L 


SEBIT 




SET UP DATA 


80A06000 


09C8 





0061 






DC 




97 






80A06010 


09C9 


1 


0E73 






DC 




CSE08 






80A06020 


09CA 





OOOA 




# 


DC 




10 






80A06030 
80A06040 


09CB 





6102 




RT05A 


LDX 


1 


2 






80A06050 


09CC 


1 


4400 


0C50 




BSI 


L 


PTRDY 




PRINTER READY 


80A06060 


09CE 


1 


4400 


OCAC 




BSI 


L 


PRINT 




PRINT ONE LINE 


80A06070 


0900 





6109 






LDX 


1 


9 






80A06080 


09D1 


1 


4400 


0D14 




BSI 


L 


CKXFR 




CK TRANSFER CMPLT 


80A06090 


09D3 





610A 






LDX 


1 


10 






80A06100 


0904 


1 


4400 


0D3A 




BSI 


L 


CKPTR 




CK PRINTER COMPLETE 


80A06110 


09D6 


1 


4400 


0DC2 




BSI 


L 


ERRIT 




PRINT ANY ERRORS 


80A06120 


09D8 


1 


4400 


0D93 




BSI 


L 


LOGIT 




LOG ANY MESSAGES 


80A06130 



09DA 1 74FF 0820 
09DC 70EE 
09DD 1 4C00 08E0 



MDX L CYCNT, -1 SKIP IF RTN DONE 

MDX RT05A 

BSC L PCON EXIT TO NEXT ROUTINE 

A***************************************** 



09DF 1 4400 OCCC 

09E1 0006 

09E2 1 0E67 

09E3 0006 

09E4 1 4400 OCCC 
09E6 FFFE 
09E7 1 0E71 
09E8 0002 

09E9 1 4400 0C7B 

09EB 1 4400 OCCC 
09ED 0063 
09EE 1 0E74 
09EF OOOA 



09F0 
09F1 1 
09F3 1 
09F5 
09F6 1 
09F8 
09F9 
09FA 
09FB 
09FC 
09FD 
09FE 
09FF 
OAOO 
0A01 
0A02 1 
0A04 1 
0A06 1 
0A08 1 
OAOA 
OAOB 1 



6102 
4400 
4400 
6109 
4400 
CA24 
4810 
10AO 
D224 
1091 
1801 
D225 
10AO 
DA34 
610A 
4400 
4400 
4400 
74FF 
70E5 
4C00 



0C50 
OCAC 

0D14 



0D3A 
0DC2 
0093 
0820 

08E0 



**# 

* 

* 

* 
* 
* 
* 

* 
* 
* 
* 
* 

* 

* 

* 

* 

* 

RT06 BSI 
DC 
DC 
DC 

* 

BSI 
DC 
DC 
DC 

BSI 

BSI 

DC 

DC 

DC 
* 

RT06A LDX 
BSI 
BSI 
LDX 
BSI 
LDD 
BSC 
SLT 
STO 
SLT 
SRA 
STO 
SLT 
STD 
LDX 
BSI 
BSI 
BSI 
MDX 
MDX 
BSC 

* 

* 
* 
* 
* 



ROUTINE SEVEN 

CYCLE STEAL DROP 

THIS ROUTINE CHECKS THAT 
THE WORD COUNT REG IS 
NOT DECREMENTED TOO 
RAPIDLY. 

A WORD COUNT OF 99 IS 
SPECIFIED. TRANSFER 
COMPLETE IS NOT EXPECTED 
AS EXPLAINED IN ROUTINE 
FIVE. 

L SEBIT SET UP HEADING 
6 

CSTEL 
6 

L SEBIT 
-2 

DROP 
2 

L HDNG 

L SEBIT 
99 

CSE09 
10 

1 2 
L PTRDY 
L PRINT 

1 9 
L CKXFR 

2 DSW9-DST 

32 
2 DSW9-DST 
17 
1 
2 DSW9U-DST 

32 
2 DSWD-DST 
1 10 
L CKPTR 
L ERRIT 
L LOGIT 
L CYCNT, -1 

RT06A 
L PCON EXIT TO NEXT ROUTINE 



PRINT RTN HEADING 
SET UP DATA 



PRINTER READY 
PRINT ONE LINE 

CK TRANSFER CMPLT 

SKIP IF ERROR 



CK PRINTER COMPLETE 
PRINT ANY ERRORS 
LOG ANY MESSAGES 
SKIP IF RTN DONE 



ROUTINE EIGHT 



80A06140 
80A06150 
80A06160 
80AO6170 
80A06180 
80A06190 
80A06200 
80A06210 
80A06220 
80A06230 
80A06240 
80A06250 
80A06260 
80A06270 
80A06280 
80A06290 
80A06300 
80A06310 
80A06320 
80A06330 
80A06340 
80A06350 
80A06360 
80A06370 
80A06380 
80A06390 
80A06400 
80A06410 
80A06420 
80A06430 
80A06440 
80A06450 
80A06460 
80A06470 
80A06480 
80A06490 
80A06500 
80A06510 
80A06520 
80A06530 
80A06540 
80A06550 
80A06560 
80A06570 
80A06580 
80A06590 
80A06600 
80A06610 
80A06620 
80A06630 
80A06640 
80A06650 
80A06660 
80A06670 
80A06680 
80A06690 
80A06700 
80A06710 
80A06720 
80A06730 
80A06740 
80A06750 
80A06760 
80A06770 
80A06780 
80A06790 
80A06800 
80A06810 




DATE 
EC NO. 



04N0V66 
415233 



15JUN68 
411935 



14N0V69 
431319 



20MAR70 
431320 



PROG ID 


080A-1 


DATE 


04N0V66 


15JUN68 


14N0V69 


20MAR70 


PAGE 


5 


EC NO. 


415233 


411935 


431319 


431320 



PROG ID 
PAGE 



080A-1 
5A 
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* 












* 












* 












* 












* 












* 




OAOD 


1 


4400 


OCCC 


RT07 


BSI 


OAOF 





0009 






DC 


0A10 


1 


0E7E 






DC 


0A11 





0009 






DC 



0A12 1 4400 0C7B 



0A14 1 4400 OCCC 
0A16 0090 
0A17 1 0E88 
0A18 0008 

0A19 C2F5 
0A1A 1801 
0A1B 1 D400 0F14 
0A1D 1 4C00 096E 



BSI 



BSI 

DC 

DC 

DC 
* 

RT07B LD 
SRA 
STO 
BSC 



SEBIT 
9 

WCCOR 
9 

HDNG 



L SEBIT 
144 

AWORK 
8 

2 SIZE-DST 
1 
L BITS 
L RT03A 



WORST CASE CORE A 

THIS ROUTINE TESTS THE 
CORE BUFFER BY PRINTING 
A NOISY PATTERN. 

SET UP HEADING 



PRINT RTN HEADING 
SET UP DATA 



* 



ROUTINE NINE 

WORST CASE CORE B 











* 
















* 
















# 
















* 
















* 
















* 
















* 








0A1F 


1 


4400 


OCCC 


RT08 


BSI 


L 


SEBIT 


0A21 





0008 




EIGHT 


DC 




8 


0A22 


1 


0E7E 






DC 




WCCOR 


0A2 3 





0008 




* 


DC 




8 


0A24 


1 


4400 


OCCC 


* 


BSI 


L 


SEBIT 


0A26 





FFFF 






DC 




-1 


0A27 


1 


0E87 






DC 




WCCB 


0A28 





0001 






DC 




1 


0A29 


1 


4400 


0C7B 




BSI 


L 


HDNG 


0A2B 


1 


4400 


OCCC 


~ 


BSI 


L 


SEBIT 


0A2D 





0090 






DC 




144 


0A2E 


1 


0E9O 






DC 




BWORK 


0A2F 





0008 






DC 




8 



THIS ROUTINE ASSURES 
PRINT RELIABILITY BY 
PRINTING A SECOND NOISY 
PATTERN. 

SET UP HEADING 



PRINT. RTN HEADING 
SET UP DATA 



0A30 70E8 



MDX 



RT07B 



*#***********#*******************# *«**##*##$,(! 



ROUTINE TEN 

CHARACTER COMPLIMENT 

THIS ROUTINE PRINTS EACH 
CHARACTER IN ALL PRINT 
POSITIONS. SS52 CHAR BARn 



80A06820 
80A06830 
80A06840 
80A06850 
80A06860 
80A06870 
80A06880 
80A06890 
80A06900 
80A06910 
80A06920 
80A06930 
80A06940 
80A06950 
80A06960 
80A06970 
80A06980 
80A06990 
80AO7000 
80A07010 
80A07020 
80A07030 
80A07040 
80A07050 
80A07060 
80A07070 
80A07080 
80A07090 
80A07100 
80A07110 
80A07120 
80A07130 
80A07140 
80A07150 
80A07160 
80A07170 
80A07180 
80A07190 
80A07200 
80A07210 
80A07220 
80A07230 
80A07240 
80A07250 
80A07260 
80A07270 
80A07280 
80A07290 
80A07300 
80A07310 
80A07320 
80A07330 
80A07340 
80A0735O 
80A07360 
80A07370 
80A07380 
80A07390 
80A07400 
80A07410 
80A07420 
80A07430 
80A07440 
80A07450 
80A07460 
80A07470 
80A07480 
80A07490 



0A31 


1 4400 


OCCC 


RT09 


BSI 


L 


SEBIT 


0A33 


OOOA 






DC 




10 


0A34 


1 OEDC 






DC 




CHARC 


0A35 


OOOA 






DC 




10 



0A36 1 4400 0C7B 

0A38 1 4400 OCCC 
0A3A 0090 
0A3B 1 0E9E 
0A3C 0024 
0A3D C2F5 
0A3E 1801 
0A3F 1 D400 0F14 
0A41 C003 
0A42 D202 
0A43 1 4C00 096E 

0A45 0048 



0A46 1 4400 OCCC 
0A48 0006 
0A49 1 0EE6 
0A4A 0006 

0A4B 1 4400 0C7B 



BSI L 
* 

BSI L 

DC 

DC 

DC 

LD 2 

SRA 

STO L 

LD 

STO 2 

BSC L 
# 

SIX8 DC 
************* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
RTOA BSI L 

DC 

DC 

DC 
* 

BSI L 



SET UP HEADING 



PRINT RTN HEADING 



HDNG 

SEBIT 

144 

ALPHA 

36 

SIZE-DST 

1 

BITS 

SIX8 

CYCNT-DST 

RT03A 



72 CONSTANT 

**#«##** ***#***«****** **#«##***# 



ROUTINE ELEVEN 

REGISTRATION 

THIS ROUTINE PRINTS A 
FIELD OF I CHARACTERS 
SUPERIMPOSED ON A FIELD 
OF H CHARACTERS WITH A 
FLOATING 1. 



SEBIT 
6 

REGIS 
6 

HDNG 



SET UP HEADING 



PRINT RTN HEADING 



0A4D 





C2F5 






LD 


2 


SIZE-DST 


0A4E 





D002 






STO 




RTOAI 


0A4F 


1 


4400 


OCCC 




BSI 


L 


SEBIT 


0A51 





0090 




RTOAI 


DC 




144 


0A52 


1 


OEEC 






DC 




AITCH 


0A53 





0001 




# 


DC 




1 


0A54 





C2F5 






LD 


2 


SIZE-DST 


0A55 





D202 






STO 


2 


CYCNT-DST 


0A56 


1 


6700 


0F14 




LDX 


L3 


BITS 


0A58 





1801 






SRA 




1 


0A59 





D300 




^ 


STO 


3 





0A5A 





D004 






STO 




RTOAJ&l 


0A5B 





C3D8 






LD 


3 


AITCH-BITS 


0A5C 





1808 






SRA 




8 


0A5D 





1008 






SLA 




8 


0A5E 





D700 


0000 


RTOAJ 


STO 


L3 





0A60 





C2EC 




RTOAA 


LD 


2 


TERM-DST. 


0A61 


1 


7400 


080F 




MDX 


L 


ONLINtO 


0A63 





7001 






MDX 




*tl 


0A64 





D24E 






STO 


2 


KEEP-DST 


0A65 





1010 






SLA 




16 


0A66 





92EC 






S 


2 


TERM-DST 


0A67 





EA3F 






OR 


2 


WRITE61-DST 


0A68 





D2 3F 






STO 


2 


WRITE61-DST 



SET UP DATA 



SET LINE COUNTER 



SET WORD COUNT 



SET SPACE SUPRESS 
IS UNIT ONLINE 
* YES 



8OAO75O0 
80A07510 
'80A07520 
80A07530 
80A07540 
80AO7550 
80A07560 
80A07570 
80A075 80 
80A07590 
80A07600 
80A07610 
80A07620 
80A07630 
80A07640 
80A07650 
80A07660 
80A07670 
80A07680 
80A07690 
80A07700 
80A07710 
80A07720 
80A07730 
80A07740 
80A07750 
80A07760 
80A07770 
80A07780 
80A07790 
80A07800 
80A07810 
80A07820 
80A07830 
80A07840 
80A07850 
80A07860 
80A07870 
80A07880 
80A07890 
80A07900 
80A07910 
80A07920 
80A07930 
80A07940 
80A07950 
80A07960 
80A07970 
80A07980 
80A07990 
80A08000 
80A08010 
80A08020 
80A08030 
80A08040 
80A08050 
80A08060 
80A08070 
80A08080 
80A08090 
80A08100 
80A08110 
80A08120 
80A08130 
80A08140 
80A08150 
80A08160 
80A08170 



DATE 


04N0V66 


15JUN68 


14N0V69 


20MAR70 


EC NO. 


415233 


411935 


431319 


431320 



PROG ID 


080A-1 


DATE 


04N0V66 


15JUN68 


14N0V69 


20MAR70 


PAGE 


6 


tC NO. 


415233 


411935 


431319 


431320 



PROG ID 
PAGE 



080A-1 
6A 



<<<((<<<<<<<< (<<<<<< <<<<<<<(<<<(< 



F 
L 
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* 












80A08180 


0A69 





6102 






LOX 


1 


2 






80A08190 


0A6A 


1 


4400 


0C50 




BSI 


L 


PTRDY 




PRINTER READY 


80AO8200 


0A6C 


1 


4400 


OCAC 




BSI 


L 


PRINT 




PRINT ONE LINE 


80A08210 


0A6E 





6109 






LOX 


1 


9 






80A08220 


0A6F 


1 


4400 


0D14 




BSI 


L 


CKXFR 




CK TRANSFER CMPLT 


80A08230 


0A71 





610A 






LDX 


1 


10 






80A08240 


0A72 


1 


4400 


0D3A 




BSI 


L 


CKPTR 




CK PRINTER COMPLETE 


80A08250 


0A74 


1 


C400 


080F 




LD 


L 


ONLIN 




GET ONLINE SWITCH 


80A08260 


0A76 


1 


4420 


0DF3 




BSI 


L 


DROPD, 


Z 


RELEASE DEVICE ID (,/- 


80A08270 
80A08280 


0A78 





6700 


0092 




LDX 


L3 


146 






80A08290 


0A7A 


1 


C700 


0F14 


RTOAB 


LD 


L3 


BITS 




MODIFY FOR OVERPRINT 


80A08300 


0A7C 





824F 






A 


2 


ONECH- 


•DST 




80A08310 


0A7D 


1 


D700 


0F14 




STO 


L3 


BITS 






80A08320 


0A7F 





73FF 






MDX 


3 


-1 






80A08330 


0A80 





70F9 




* 


MDX 




RTOAB 






80A08340 
80A08350 


0A81 





1010 






SLA 




16 




RESET SPACE SUPRESS 


80A08360 


0A82 





024E 






STO 


2 


KEEP-DST 




80A08370 


0A83 





C23F 






LD 


2 


WRITE61-DST 


80A08380 


0A84 





1801 






SRA 




1 






80A08390 


0A85 





1001 






SLA 




1 






80A08400 


0A86 





023F 






STO 


2 


WRITEtl-DST 


80A08410 










* 












80A08420 


0A87 





6102 






LDX 


1 


2 






80A08430 


0A88 


1 


4400 


0C50 




BSI 


L 


PTRDY 




PRINTER READY 


80A08440 


0A8A 


1 


4400 


OCAC 




BSI 


L 


PRINT 




PRINT ONE LINE 


80A08450 


0A8C 





6109 






LDX 


1 


9 






80A08460 


0A8D 


1 


4400 


0D14 




BSI 


L 


CKXFR 




CK TRANSFER CMPLT 


80A08470 


0A8F 





610A 






LDX 


1 


10 






80A08480 


0A90 


1 


4400 


0D3A 




BSI 


L 


CKPTR 




CK PRINTER CMPLT 


80A08490 


0A92 


1 


4400 


0DC2 




BSI 


L 


ERRIT 




PRINT ANY ERRORS 


80A08500 


0A94 


1 


4400 


0093 




BSI 


L 


LOGIT 




LOG ANY MESSAGES 


80A08510 


0A96 


1 


74FF 


0820 




MDX 


L 


CYCNT, 


-1 


SKIP IF RTN DONE 


80A08520 


0A98 





7002 






MDX 




RTOAD 






80A08530 


0A99 


1 


4C00 


08E0 


* 


BSC 


L 


PCON 




EXIT TO NEXT ROUTINE 


80A08540 
80A08550 


0A9B 





6700 


0092 


RTOAO 


LDX 


L3 


146 






80A08560 


0A9D 


1 


C700 


0F14 


RTOAC 


LD 


L3 


BITS 






80A08570 


0A9F 





924F 






S 


2 


ONECH- 


DST 




80A08580 


OAAO 


1 


D700 


0F14 




STO 


L3 


BITS 






80A08590 


0AA2 





73FF 






MDX 


3 


-1 






80A08600 


0AA3 





70F9 




* 


MDX 




RTOAC 






80A08610 
8OAO8620 


0AA4 


1 


4400 


0CB9 




BSI 


L 


ROTA 




UPDATE OUTPUT FIELD 


80A08630 


0AA6 





70B9 






MDX 




RTOAA 






80A08640 










********************************************* 


80A08650 










* 












80A08660 










* 












80A08670 










* 












80A0 86 80 










* 












80A08690 










* 












80A08700 










# 








ROUTINE TWELVE 


80A08710 










* 












80A08720 










* 










STRESS 


80A08730 










* 












80A08740 










* 








THIS 


ROUTINE PRINTS THE 


80A08750 










* 








TYPE BAR IMAGE TO IMPOSE 


80A08760 










* 








WORST CASE STRESS ON THE 


80A08770 










* 








TYPE BAR DRIVE MECHANISM 


80A08780 










* 












80A08790 










* 












80A08800 


0AA7 


1 


4400 


OCCC 


RTOB 


BSI 


L 


SEBIT 




SET UP HEADING 


80A08810 


0AA9 





0003 






DC 




3 






80A08820 


OAAA 


1 


OEED 






DC 




STRES 






80A08830 


OAAB 





0003 




* 


DC 




3 






80A08840 
80A08850 



IBM MAINTENANCE DIAGNOSTIC 

1443 FUNCTION TEST 

OAAC 1 4400 0C7B 

OAAE 1 4400 OCCC 

OABO 0090 

0AB1 1 0EC2 

0AB2 001A 

0AB3 C2F5 

0AB4 1801 

0AB5 1 D400 0F14 

0AB7 C003 

0AB8 D202 

0AB9 1 4C00 096E 

OABB 0034 



PROGRAM FOR THE 1800 SYSTEM 



OABC 1 4400 OCCC 
OABE 0008 
OABF 1 OFOO 
OACO 0008 

0AC1 1 4400 0C7B 

0AC3 C256 
0AC4 D23C 
0AC5 C24A 
0AC6 D258 

0AC7 1 4400 OCOC 



0AC9 
OACA 
OACB 
OACC 
OACE 
OACF 



C216 
0202 
0201 

4400 0C2F 
6101 
4400 0C50 



0AD1 6104 
0AD2 1 4400 0C95 

0AD4 6105 
0AD5 1 4400 OCAC 

0AD7 6109 
0AD8 1 4400 0D14 

OADA 610A 
OADB 1 4400 0D3A 
OADD 1 4400 00C2 
OADF 1 4400 0D93 

0AE1 1 74FF 081F 
0AE3 70E8 



BSI 

* 

BSI 

DC 
DC 
DC 
* 

LD 
SRA 
STO 
LD 
STO 
* 

BSC 
* 
FIVE2 DC 



HDNG 

SEBIT 
144 
STRSS 
26 



2 SI2E-DST 
1 
L BITS 
FIVE2 
2 CYCNT-DST 

L RT03A 

52 



PRINT RTN HEADING 
SET UP DATA 



CONSTANT 



***************#***********#*<::<<,};«.«;;:#£;;,******* 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

RTOC BSI 

DC 
DC 
DC 



BSI 

LD 
STO 
LD 
STO 

BSI 



LD 
STO 

RT0C3 STO 
BSI 
LDX 
BSI 

* 

LDX 

BSI 
* 

LDX 

BSI 
* 

LDX 
BSI 

* 

LDX 
BSI 
BSI 

BSI 

* 

MDX 

MDX 



SEBIT 

8 

SPIM 

8 

HDNG 



ROUTINE THIRTEEN 

SPACE IMMEDIATE 

THIS ROUTINE TESTS THE 
CARRIAGE SPACE IMMEDIATE 
CONTROL FUNCTION. THE 
NORMAL SPACE AFTER PRINT 
IS ALSO OBTAINED. 

SET UP RTN HEADING 



PRINT HEADING 



2 IMSP1-DST SET TO IMMED SPACE 
2 CNTRL-DST 
2 ONE-DST 
2 STEP-DST 



SETIT 



SET UP PRINT DATA 



2 DSW5&2-DST REPEAT THREE TIMES 
2 CYCNT-DST 
2 RPCNT-DST 



L MOVE 

1 1 
L PTRDY 

1 4 
L FORMS 

1 5 
L PRINT 

1 9 
L CKXFR 

1 10 

L CKPTR 

L ERRIT 

L LOGIT 

L RPCNT.-l 
RT0C361 



SHIFT FLOATING SLASH 
CK IF PRINTER READY 
GIVE CONTROL COMMAND 

PRINT ONE LINE 

CHECK TRANSFER CMPLT 

CHECK PRINTER CMPLT 

PRINT ANY ERRORS 
LOG ANY MESSAGES 

SKIP IF DONE 



PART NO. 
PAGE 



80A08860 

80A08870 

80A08880 

80A08890 

80A08900 

80A08910 

80A08920 

80A08930 

80A08940 

80A08950 

80A08960 

80A08970 

80A08980 

80A08990 

80A09000 

80A09010 

80A09020 

80A09030 

80A09040 

80A09050 

80A09060 

80A09070 

80A09080 

80A09090 

80A09100 

80A09110 

80A09120 

80A09130 

80A09140 

80A09150 

80A09160 

80A09170 

80A09180 

80A09190 

80A09200 

80A09210 

80A09220 

80A09230 

80A09240 

80A09250 

80A09260 

80A09270 

80A09280 

80A09290 

80A09300 

80A09310 

80A09320 

80A09330 

80A09340 

80A09350 

80A09360 

80A09370 

80A09380 

80A09390 

80A09400 

80A09410 

80A09420 

80A09430 

80A09440 

80A09450 

80A09460 

80A09470 

80A09480 

80A09490 

80A09500 

80A09510 

80A09520 

80A09530 
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DATE 


04NOV66 


15JUN68 


14N0V69 
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7 


EC NO. 


415233 


411935 


431319 


431320 



PROG ID 
PAGE 



080A-1 
7A 



IBM MAINTENANCE DIAGNOSTIC 
1443 FUNCTION TEST 



0AE4 C23C 
0AE5 8246 
0AE6 023C 
0AE7 1 7401 0F37 
0AE9 1 7401 0876 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



1443 FUNCTION TEST 



OAEB C216 
OAEC 1 74FF 0820 
OAEE 70DC 
OAEF 1 4C00 O8E0 



0AF1 1 4400 OCCC 

0AF3 0003 

0AF4 1 OFOO 

0AF5 0003 

0AF6 1 4400 OCCC 
0AF8 FFFA 
OAF 9 1 0EF2 
OAFA 0006 

OAFB 1 4400 0C7B 

OAFD C254 
OAFE D23C 
OAFF C24A 
OBOO D258 
0B01 1 4400 OCOC 

0B03 C216 
0B04 D202 
0B05 D201 
0B06 1 4400 0C2F 
0B08 6101 
0B09 1 4400 0C50 

OBOB 610A 
OBOC 1 4400 0C95 

OBOE 6105 
OBOF 1 4400 OCAC 

0B11 6109 
0B12 1 4400 0D14 

0B14 610A 
0B15 1 4400 0D3A 
0B17 1 4400 0DC2 
0B19 1 4400 0D93 

0B1B 1 74FF 081F 
0B1D 70E8 
0B1E 1 4400 0C2F 

OB20 C23C 



* 












80A09 540 




LD 


2 


CNTRL- 


-DST 


ENLARGE THE SKIP 


B0A09550 




A 


2 


K0100- 


-DST 




80A09560 




STO 


2 


CNTRL- 


-DST 




80A09570 




MDX 


L 


BITS&35.1 




80A09580 




MDX 


L 


step,: 


I 




80A09590 


* 












80A09600 




LD 


2 


DSW562-DST 




80A09610 




MDX 


L 


CYCNT 


,-1 


SKIP IF DONE 


80A09620 




MDX 




RT0C3 






80A09630 




BSC 


L 


PCON 






80A09640 


♦♦a****************************************** 


80A09650 


* 












80A09660 


* 












80A09670 


* 












80A09680 


* 












80A09690 


* 








ROUT INF FOURTEEN 


80A09700 


* 












80A09710 


* 










SPACE AFTER PRINTING 


80A09720 


* 












80A09730 


* 








THIS 


ROUTINE TESTS THE 


80A09740 


* 








SPACE AFTER PRINT 1443 


80A09750 


* 








CONTROL FUNCTION. 


80A09760 


* 












80A09770 


RTOD 


BSI 

DC 
DC 
DC 


L 


SEBIT 
3 

SPIM 
3 




SET UP RTN HEADING 


80A09780 
80A09790 
80A09800 
80A09810 


* 












80A09820 




BSI 


L 


SEBIT 






80A09830 




DC 




-6 






80A09 840 




DC 




AFTER 






80A09850 




DC 




6 






80A09 860 


* 












80A09870 




BSI 


L 


HDNG 




PRINT HEADING 


80A09880 


* 












80A09890 




LD 


2 


WRSP1- 


DST 


SET TO SPACE AFTER 


80A09900 




STO 


2 


CNTRL- 


•DST ' 


* PRINTING 


80A09910 




LD 


2 


ONE-DST 




80A09920 




STO 


2 


STEP-DST 




80A09930 




BSI 


L 


SETIT 




SET UP PRINT DATA 


80A09940 


* 












80A09950 




LD 


2 


DSW562 


:-ost 


REPEAT THREE TIMES 


80A09960 




STO 


2 


CYCNT- 


DST 




80A09970 


RT0D3 


STO 


2 


RPCNT- 


DST 




80A09980 




BSI 


L 


MOVE 




SHIFT FLOATING SLASH 


80A09990 


RT0D4 


LDX 


1 


1 






80A10000 




BSI 


L 


PTRDY 




CK IF PRINTER READY 


80A10010 


# 












80A10020 




LDX 


1 


10 




GIVE CONTROL COMMAND 


80A10030 




BSI 


L 


FORMS 






80A10040 


* 












80A10050 




LDX 


1 


5 




PRINT ONE L INE 


80A10060 




BSI 


L 


PRINT 






80A10070 


* 












80A10080 




LDX 


1 


9 




CHECK TRANSFER CMPLT 


80A10090 




BSI 


L 


CKXFR 






80A10100 


* 












80A10110 




LDX 


1 


10 




CHECK PRINTER CMPLT 


80A10120 




BSI 


L 


CKPTR 






80A10130 




BSI 


L 


ERRIT 




PRINT ANY ERRORS 


80A10140 




BSI 


L 


LOGIT 




LOG ANY MESSAGES 


80A10150 


* 












80A10160 




MDX 


L 


RPCNT, 


-1 


SKIP IF DONE 


80A10170 




MDX 




RT0D361 




80A10180 




BSI 


L 


MOVE 






80A10190 


* 












80A10200 




LD 


2 


CNTRL- 


•DST 


ENLARGE THE SKIP 


80A10210 



0B21 8246 
0B22 D23C 
0B23 1 7401 0F37 
0B25 1 7401 0876 

0B27 C216 
0B28 D201 
0B29 1 74FF 0820 
0B2B 70DC 
0B2C 1 4C00 08E0 



A 

STO 
MDX 
MDX 



2 KOIOO-DST 

2 CNTRL-DST 

L BITS&35.1 

L STEP,1 



0B2E 1 4400 OCCC 
0B30 0007 
0B31 1 0EF8 
0B32 0007 

0B33 1 4400 0C7B 

0B35 1 4400 OCOC 

0B37 6102 
0B38 1 6D00 0876 

0B3A C246 
0B3B D23C 

0B3C 6700 2400 
0B3E 6106 
0B3F 406C 

OB40 1 4400 OCOC 

0B42 6107 
0B43 1 6DO0 0F37 

0B45 6700 2000 
0B47 6102 
0B48 4063 

0B49 6700 3000 
0B4B 6101 
0B4C 405F 

0B4D C246 
0B4E 1 ECOO 0F37 
0B50 1 D400 0F37 

0B52 6700 3000 

0B54 6101 

0B55 4056 

0B56 C246 

0B57 824A 

0B58 1 D400 0F37 



LD 2 DSW5&2-DST 

STO 2 RPCNT-DST 

MDX L CYCNT, -1 SKIP IF DONE 

MDX RT0D4 

BSC L PCON 
♦♦♦♦♦♦He************************************** 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
RTOE 



BSI 

DC 
DC 
DC 

BSI 

BSI 

LDX 
STX 

LD 
STO 

LDX 
LDX 
BSI 

BSI 



SEBIT 

7 

SKIM 

7 

HDNG 
SETIT 



ROUTINE FIFTEEN 

SKIP IMMEDIATE 

THIS ROUTINE TESTS THE 
CHANNEL SKIP IMMEDIATE 
CONTROL FUNCTION. THE 
NORMAL SPACE AFTER PRINT 
IS ALSO RECEIVED. 

SET UP RTN HEADING 



PRINT HEADING 

SET UP RTN HEADING 



1 2 

LI STEP 

2 KOIOO-DST 
2 CNTRL-DST 

L3 /2400 

1 6 

CHAN 

L SETIT 



PERFORM CARRIAGE OP 
RESET OUTPUT DATA 



LDX 
STX 


1 
LI 


7 
BITS&35 


LDX 
LDX 
BSI 


L3 
1 


/2000 
2 

CHAN 


LDX 
LDX 
BSI 


L3 

1 


/3000 
1 

CHAN 


LD 
OR 
STO 


2 

L 
L 


KOIOO-DST 
BITSE35 . 
BITSE35 


LDX 

LDX 

BSI 

LD 

A 

STO 


L3 
1 

2 

2 

L 


/3000 

1 

CHAN 

KOIOO-DST 

ONE-DST 

BITS635 



PERFORM CARRIAGE OP 



PERFORM CARRIAGE OP 



PERFORM CARRIAGE OP 



PART NO. 2196382 
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80A10220 
80A10230 
80A10240 
80A10250 
80A10260 
80A10270 
80A10280 
80A10290 
80A10300 
80A10310 
80A10320 
80A10330 
80A10340 
80A10350 
80A10360 
80A10370 
80A10380 
80A10390 
80A10400 
80A10410 
80A10420 
80A10430 
80A10440 
80A10450 
80A10460 
80A10470 
80A10480 
80A10490 
80A10500 
80A10510 
80A10520 
80A10530 
80A10540 
80A10550 
80A10560 
80A10570 
80A10580 
80A10590 
80A10600 
80A10610 
80A10620 
80A10630 
80A10640 
80A10650 
80A10660 
80A10670 
80A10680 
80A10690 
80A10700 
80A10710 
80A10720 
80A10730 
80A10740 
80A10750 
80A10760 
80A10770 
80A10780 
80A10790 
80A10800 
80A10810 
80A10820 
80A10830 
80A10840 
80A10850 
80A10860 
80A10870 
80A10880 
80A10890 
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PROG ID 


080A-1 


DATE 


04NOV66 


15JUN68 


14N0V69 
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8 


EC NO. 


415233 ' 


411935 


431319 


431320 
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8A 
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* 












80A10900 


0B5A 6700 3000 




LDX 


L3 


/3000 






80A10910 


0B5C 6101 




LOX 


1 


1 






80A10920 


0B50 404E 


* 


BSI 




CHAN 




PERFORM CARRIAGE OP 


80A10930 
80A10940 


0B5E 6700 2800 




LDX 


L3 


/2800 






80A10950 


0B60 6101 




LDX 


1 


1 






80A10960 


0B61 404 A 


* 


BSI 




CHAN 




PERFORM CARRIAGE OP 


80A10970 
80A10980 


0B62 1 4C00 08E0 




BSC 


L 


PCON 






80A10990 




******************** *******#*ftft**ft#ft*#*$*:«### 


80A11000 




* 












80A11010 




* 












8OA11020 




* 












80A11030 




* 












80A11040 




* 












80A11050 




* 








ROUTINE SIXTEEN 


80A11060 




* 












80A11070 




* 










SKIP AFTER PRINTING 


80A11080 




* 












80A11090 




* 








THIS 


ROUTINE TESTS THE 


80A11100 




* 








CHANNEL SKIP AFTER PRINT 


80A11110 




ft 








CONTROL FUNCTION. ' 


80A11120 




ft 












80A11130 




ft 












80A11140 


0B64 1 4400 OCCC 


RTOF 


BSI 


L 


SEBIT 




SET UP RTN HEADING 


80A11150 


0B66 0008 




DC 




8 






80A11160 


0B67 1 OEFO 




DC 




SKAP 






80A11170 


0B68 0008 


ft 


DC 




8 






80A11180 
80A11190 


0B69- 0- 6101 




LDX 


1 


1 




CK READY 


80A11200 


0B6A 1 4400 0C50 


ft 


BSI 


L 


PTRDY 






80A11210 
80A11220 


0B6C C253 




LD 


2 


SPAC3- 


DST 




80A11230 


0B6D D23C 


ft 


STO 


2 


CNTRL- 


DST 




80A11240 
80A11250 


0B6E 6104 




LDX 


1 


4 




TRIPLE SPACE 


80A11260 


0B6F 1 4400 0C95 


ft 


BSI 


L 


FORMS 






80A11270 
80A11280 


0B71 C255 




LD 


2 


WRSK1- 


DST 




80A11290 


0B7.2 D23C 


* 


STO 


2 


CNTRL- 


DST 




80A11300 
80A11310 


0B73 6101 




LDX 


1 


1 






80A11320 


0B74 6700 0400 




LDX 


L3 


/0400 






80A11330 


0B76 4065 


ft 


BSI 




SHAN 




PERFORM CARRIAGE OP 


80A11340 
80A11350 


0B77 1 4400 OCOC 


ft 


BSI 


L 


SETIT 




SET UP RTN DATA 


80A11360' 
80A11370 


0B79 6102 




LDX 


1 


2 






80A11380 


0B7A 1 6000 0876 


* 


STX 


LI 


STEP 






80A11390 
80A11400 


0B7C 6300 




LDX 


3 









80A11410 


0B70 6106 




LDX 


1 


6 






80AU420 


0B7E 405D 


ft 


BSI 




SHAN 




PERFORM CARRIAGE OP 


80A11430 
80A11440 


0B7F 1 4400 OCOC 


ft 


BSI 


L 


SETIT 






80A11450 
80A11460 


0B81 6102 




LDX 


1 


2 






80A11470 


0B82 1 6D00 0876 




STX 


LI 


STEP 






80A11480 


0B84 6107 




LDX 


1 


7 






80A11490 


0B85 1 6000 0F37 




STX 


LI 


BITS635 




80A11500 




ft 












80A11510 


0B87 6300 




LDX 


3 









80A11520 


0B88 6101 




LDX 


1 


1 






80A11530 


0B89 40b2 


* 


BSI 




SHAN 




PERFORM CARRIAGE OP 


80A11540 
80A11550 


0B8A 6700 1000 




LDX 


L3 


/1000 






80A11560 


0B8C 6101 




LDX 


1 


1 






80A11570 



IBM MAINTENANCE DIAGNOSTIC 
1443 FUNCTION TEST 

0B8D 404E 

0B8E 6700 1000 
0B90 6101 
0B91 404A 

0B92 C246 
0B93 1 ECOO 0F37 
0B95 1 D400 0F37 

0B97 6700 1000 
0B99 6101 
0B9A 4041 

0B9B C246 
0B9C 824A 
0B9D 1 D400 0F37 

0B9F 6700 0800 
0BA1 6101 
0BA2 4039 

0BA3 C255 
0BA4 D23C 

0BA5 6700 0400 
0BA7 6101 
0BA8 1 4400 OBDC 

OBAA 1 4C00 08E0 



PROGRAM FOR THE 1800 SYSTEM 



OBAC 0000 
OBAD 1 6D00 081F 
OBAF 1 6F00 083C 

0BB1 6101 
0BB2 1 4400 0C50 



0BB4 





6104 




0BB5 


1 


4400 


0C95 


0BB7 





1010 




0BB8 





92EC 




0BB9 





EA3F 




OBBA 





D23F 




OBBB 





6105 




OBBC 


1 


4400 


OCAC 


OBBE 





C23F 




OBBF 





1801 




OBCO 





1001 




0BC1 





D23F 





0BC2 6109 
0BC3 1 4400 0D14 

0BC5 6107 
0BC6 1 4400 0D3A 

0BC8 1 4400 0DC2 
OBCA 1 4400 0D93 

OBCC 1 7401 0F37 



BSI 

LDX 
LDX 
BSI 

LD 
OR 
STO 

LDX 
LDX 
BSI 

LD 

A 

STO 

LDX 
LDX 
BSI 

LD 
STO 

LDX 
LDX 
BSI 



SHAN 

L3 /1000 

1 1 
SHAN 

2 K0100-DST 
L BITSG35 

L BITS635 

L3 /1000 

1 1 
SHAN 

2 K0100-DST 
2 ONE-DST 

L BITS635 

L3 /0800 

1 1 
SHAN 

2 WRSK1-DST 
2 CNTRL-DST 

L3 /0400 

1 1 
L SHAN 



PERFORM CARRIAGE OP 



PREFORM CARRIAGE OP 



PERFORM CARRIAGE OP 



EXECUTE CARRIAGE OP 



CHECK CHAN 12 



BSC L PCON 

********* ft ftftftft ft *#**************ft***ft*ftftft*ft*** 

* 

* 

* 

*' SKIP IMMEDIATE CHANNEL 



* 
ft 

CHAN DC /OOOO 
STX LI RPCNT 
CHAN1 STX L3 DSW7&2 



LDX 
BSI 

LDX 
BSI 

SLA 

S 

OR 

STO 

LDX 

BSI 

LD 

SRA 

SLA 

STO 

LDX 
BSI 

LDX 
BSI 

BSI 
BSI 

MDX 



1 1 

L PTRDY 

1 4 
L FORMS 



CHECK SUBROUTINE 

SET REPEAT COUNTER 

CK PTR READY 

PERFORM CONTROL 
SET SPACE SUPRESS 



16 

2 TERM-DST 
2 WRITE61-DST 
2 WRITEG1-DST 

1 5 PERFORM PRINT 
L PRINT 

2 WR1TE61-DST RESET SPACE SUPRESS 
1 

1 
2 WRITEtl-DST 



1 9 

L CKXFR 

1 7 

L CKPTR 



CK XFER CMPLT 



CK PTR CMPLT 



ERRIT 
LOGIT 

BITS£35,1 
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80A11680 

80A11690 

80A11700 

80A11710 

80A11720 

80A11730 

80A11740 

80A11750 

80A11760 

80A11770 

80A11780 

80A11790 

80A11800 

80A11810 

80A11820 

80A11830 

80A11840 

80A11850 

80A11860 

80A11870 

80A11880 

80A11890 

80A11900 

80A11910 

80A11920 

80A11930 

80A11940 

80A11950 

80A11960 

80A11970 

80A11980 

80A11990 

80A12000 

80A12010 

80A12020 

80A12030 

80A12040 

80A12050 

80A12060 

80A12070 

80A12080 

80A12090 

80A12100 

80A12110 

80A12120 

80A12130 

80A12140 

80A12150 

80A12160 

80A12170 

80A12180 

80A12190 

80A12200 

80A12210 

80A12220 

80A12230 

80A12240 

80A12250 
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9A 
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OBCE C23C 
OBCF 8246 
OBOO 023C 

0BD1 4050 
0BD2 405C 
0BD3 405B 
0BD4 405A 

0BD5 6700 2000 
0BD7 1 74FF 081F 
0B09 7005 

OBDA 1 4C80 OBAC 



OBDC 0000 
OBDO 1 6000 081F 
OBDF 1 6F00 083C 

0BE1 6101 

0BE2 1 4400 0C50 

0BE4 610A 
0BE5 1 4400 0C95 

0BE7 6105 
0BE8 1 4400 OCAC 

OBEA 6109 
OBEB 1 4400 0D14 

OBEO 610A 
OBEE 1 4400 003A 

OBFO 6101 
0BF1 1 4400 0C50 

0BF3 0A43 
0BF4 6107 
0BF5 1 4400 005E 
0BF7 1 4400 OCFF 

0BF9 1 4400 0DC2 
OBFB 1 4400 0093 

OBFD 1 7401 0F37 

OBFF C23C 
OCOO 8246 
0C01 D23C 

0C02 402C 
0C03 402B 
0C04 402A 
0C05 0. 4029 

0C06 6300 
0C07 1 74FF 081F 
0C09 7005 

OCOA 1 4C80 OBDC 



LD 

A 

STO 

BSI 
BSI 
BSI 

BSI 

LOX 

MOX 
MDX 



2 CNTRL-DST 
2 K0100-DST 
2 CNTRL-DST 

MOVE 
MOVE 
MOVE 
MOVE 

L3 /2000 
L RPCNT, -1 
CHAN1 



BSC I CHAN 
******************* ************************** 



* 










* 
* 
* 






SKIP AFTER PRINT CHANNEL 
CHECK SUBROUTINE 


SHAN 

SHAN1 

* 


DC 

STX 

STX 


LI 
L3 


/OOOO 
RPCNT 
DSW7£2 


SET REPEAT COUNTER 


* 


LDX 
BSI 


1 
L 


1 

PTRDY 


CK PTR READY 


* 


LDX 
BSI 


1 
L 


10 
FORMS 


PERFORM CONTROL 




LDX 
BSI 


1 
L 


5 
PRINT 


PERFORM PRINT 




LDX 
BSI 


1 
L 


9 
CKXFR 


CK XFER CMPLT 




LDX 
BSI 


1 
L 


10 
CKPTR 


CK PTR CMPLT 


* 


LDX 
BSI 


1 
L 


1 
PTRDY 


AWAIT CARRIAGE READY 


* 


XIO 
LDX 
BSI 
BSI 


2 

1 
L 

L 


SENSD-DST 

7 

QLOG 

SBANA 


SAVE STATUS 
CHECK FOR CHANNEL 


* 


BSI 
BSI 


L 

L 


ERRIT 
LOGIT 






MDX 


L 


BITS£35,1 





LD 

A 

STO 

BSI 
BSI 
BSI 
BSI 

LDX 
MDX 
MOX 



2 CNTRL-DST 
2 K0100-DST 

2 CNTRL-DST 

MOVE 
MOVE 
MOVE 
MOVE 

3 

. RPCNT, -1 
SHAN1 



BSC I SHAN 



PART NO. 
PAGE 



80A12260 
80A12270 
80A12280 
80A12290 
80A12300 
80A12310 
80A12320 
80A12330 
80A12340 
80A12350 
80A12360 
80A12370 
80A12380 
80A12390 
80A12400 
80A12410 
80A12420 
80A12430 
80A12440 
80A12450 
80A12460 
80A12470 
80A12480 
80A12490 
80A12500 
80A12510 
80A12520 
80A12530 
80A12540 
80A12550 
80A12560 
80A12570 
80A12580 
80A12590 
80A12600 
80A12610 
80A12620 
80A12630 
80A12640 
80A12650 
80A12660 
80A12670 
80A12680 
80A12690 
80A12700 
80A12710 
80A12720 
80A12730 
80A12740 
80A12750 
80A12760 
80A12770 
80A12780 
80A12790 
80A12800 
80A12810 
80A12820 
80A12830 
80A12840 
80A12850 
80A12860 
80A12870 
80A12880 
80A12890 
80A12900 
80A12910 
80A12920 
80A12930 



2196382 
10 
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****************************** ******** ** ***** 
* 



SETUP CARRIAGE TEST 
OUTPUT ROUTINE 











* 
















* 
















* 






SE 










* 
















* 








ococ 





0000 




SETIT 


DC 




/OOOO 


OCOD 


1 


4400 


OCCC 




BSI 


L 


SEBIT 


OCOF 





001E 






DC 




30 


0C10 


1 


0E66 






DC 




BLANK 


0C11 





0001 




* 


DC 




1 


0C12 





C2E2 




# 


LD 


2 


RID-DST 


0C13 





82EC 






A 


2 


TERM-DST 


0C14 





100E 






SLA 




14 


0C15 


1 


4C10 


0C1D 


* 


BSC 


L 


SETT1,- 


0C17 


1 


4400 


OCCC 




BSI 


L 


SEBIT 


0C19 





FFFA 






DC 




-6 


0C1A 


1 


0F08 






DC 




CNNL 


0C1B 





0006 






DC 




6 



SET UP PRINT FIELD 



BR IF SPACING 



0C1C 7005 

0C1D 1 4400 OCCC 
0C1F FFFA 
0C20 1 OFOE 
0C21 0006 

0C22 1 4400 OCCC 
0C24 FFE8 
0C25 1 OEFF 
0C26 0001 

0C27 C257 
0C28 1 D400 0F50 

0C2A C24A 
0C2B 1 D400 0F37 

0C2D 1 4C80 OCOC 



MDX 

# 

SETT1 BSI 
DC 
DC 
DC 

* 

SETT2 BSI 
DC 
DC 
DC 

* 

LD 
STO 
* 

LD 
STO 



SETT2 

L SEBIT 
-6 
SPCC 
6 

L SEBIT 
-24 

E 
1 

2 SLASH-DST SET FLOATING SLASH 
L BITS£60 

2 ONE-DST 
L BITS£35 



BSC I SETIT RETURN 
********************************************* 
* 



0C2F 





OOOO 




* 
* 
MOVE 


DC 




/OOOO 


0C30 





C258 






LD 


2 


STEP-DST 


0C31 





1003 






SLA 




3 


0C32 





D001 






STO 




#£1 


0C33 





6700 


OOOO 




LDX 


L3 


/OOOO 


0C35 


1 


6580 


0F14 


& 


LDX 


11 


BITS 


0C37 


1 


C500 


0F14 




LD 


LI 


BITS 


0C39 





18D0 






RTE 




16 


0C3A 


1 


C500 


0F13 




LD 


LI 


BITS-1 


0C3C 





1380 






SLT 


3 





0C3D 


1 


4C08 


0C47 




BSC 


L 


M0VE4,£ 


0C3F 


1 


D5 00 


0F13 




STO 


LI 


BITS-1 


0C41 





18D0 






RTE 




16 


0C42 


1 


4C08 


0C4C 




BSC 


L 


M0VE5,£ 


0C44 


1 


D500 


0F14 




STO 


LI 


BITS 


0C46 





7007 






MDX 




M0VE6 


0C47 





C257 




M0VE4 


LD 


2 


SLASH-DST 


0C48 


1 


D500 


0F12 




STO 


LI 


BITS-2 


0C4A 


1 


74FF 


0F14 




MDX 


L 


BITS.-l 



BR IF BLANK 
BR IF BLANK 



80A12940 
80A12950 
80A12960 
80A12970 
80A12980 
80A12990 
80A13000 
80A13010 
80A13020 
80A13030 
80A13040 
80A13050 
80A13060 
80A13070 
80A13080 
80A13090 
80A13100 
80A13110 
8OA13120 
80A13130 
80A13140 
80A13150 
80A13160 
80A13170 
80A13180 
80A13190 
80A13200 
80A13210 
80A13220 
80A13230 
80A13240 
80A13250 
80A13260 
80A13270 
80A13280 
80A13290 
80A13300 
80A13310 
80A13320 
80A13330 
80A13340 
80A13350 
80A13360 
80A13370 
80A13380 
80A13390 
80A13400 
80A13410 
80A13420 
80A13430 
80A13440 
80A13450 
80A13460 
80A13470 
80A13480 
80A13490 
80A13500 
80A13510 
8OA13520 
80A13530 
80A13540 
80A13550 
80A13560 
80A13570 
80A13580 
80A13590 
80A13600 
80A13610 



DATE 
EC NO. 
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0C4C 1 74FF OF 14 
0C4E 1 4C80 0C2F 



0C50 
0C51 
0C52 
0C53 
0C54 
0C55 
0C56 
0C57 1 
0C59 
0C5A 1 
0C5C 1 
0C5E 
0C60 
0C61 1 
0C63 
0C64 1 



0C66 
0C68 
0C69 
0C6A 
0C6B 
0C6D 
0C6F 



0000 

691F 

C01E 

1002 

DOOA 

C245 

D203 

4400 0E06 

0A41 

4400 0D5E 

6600 081E 

6500 0000 

0A41 

4400 OCFF 

E901 

4C18 0C70 

74FF 0821 

700E 

1010 

D24E 

4400 0DC2 

4400 0D93 

70E5 



0C70 6500 0000 
0C72 1 4400 0D5E 
0C74 6105 
0C75 1 4C80 0C50 



0C77 1 6600 0C5C 
0C79 1 4C00 ODBE 



0C7B 0000 
0C7C 6101 
0C7D 1 4400 0C5O 



M0VE5 MDX L BITSt-1 

M0VE6 BSC I MOVE RETURN 

a******************** ************* ******#***# 

* 

* 
# 



* 

* 

* 

* 

* 

* 
* 
* 
# 
* 

PTROY DC 
STX 
LD 
SLA 
STO 

PTRY1 LD 
STO 
BSI 
XIO 
BSI 

PTRY2 LDX 

PTRY3 LDX 
XIO 
BSI 
OR 
BSC 

* 

MDX 
MDX 
SLA 
STO 
BSI 
BSI 
MDX 



PTRY4 LDX 
BSI 
LDX 
BSC 

# 



PRINTER READY ROUTINE 

THIS ROUTINE WAITS FOR 
THE DSW TO APPEAR AS 
SPECIFIED BY XR1. IF 
IT NEVER APPEARS PROPER 
THEN ERRORS WILL BE 
PRINTED. 

CALL ******************** 

* LDX 1 MSG ID NO * 

* BSI L PTRDY * 

*********************** 



/OOOO 

1 PTRY4£1 
PTRY4S1 
2 
PTRY3C1 

2 K0400-DST 
2 WACNT-DST 

L GETDE 

2 SENSO-DST 
L QLOG 
L2 DST 
LI /OOOO 

2 SENSO-DST 
L SBANA 

1 1 
L PTRY4.6- 



WACNT.-l 

PTRY9 

16 

KEEP-DST 

ERRIT 

LOGIT 

PTRY1 



LI /OOOO 

L QLOG 

1 5 

I PTRDY 



GO REQUEST DEVICE 
SENSE DSW - NO RESET 
SAVE STATUS 



SENSE DSW - NO RESET 



BR IF PRINTER READY 



PRINT ANY ERRORS 
LOG ANY MESSAGES 



SAVE STATUS 
EXIT TO USER 



PTRY9 LDX L2 PTRY2 
BSC L LOPGO 

******************* ************************** 



* 
* 
* 
* 

* 
* 

HDNG DC /OOOO 

LDX 1 1 

BSI L PTRDY 

* 



PRINT HEADING ROUTINE 
SAVE STATUS ROUTINE 

CK IF PTR READY 



80A13620 

80A13630 

80A13640 

80A13650 

80A13660 

80A13670 

80A13680 

80A13690 

80A13700 

80A13710 

80A13720 

80A13730 

80A13740 

80A13750 

80A13760 

80A13770 

80A13780 

80A13790 

80A13800 

80A13810 

80A13820 

80A13830 

80A13840 

80A13850 

80A13860 

80A13870 

80A13880 

80A13890 

80A13900 

80A13910 

80A13920 

80A13930 

80A13940 

80A13950 

80A13960 

80A13970 

80A13980 

80A13990 

80A14000 

80A14010 

80A14020 

80A14030 

80A14040 

80A14050 

80A14060 

80A14070 

80A14080 

80A14090 

80A14100 

80A14110 

80A14120 

80A14130 

80A14140 

80A14150 

80A14160 

80A14170 

80A14180 

80A14190 

80A14200 

80A14210 

80A14220 

80A14230 

80A14240 

80A14250 

80A14260 

80A14270 

80A14280 

80A14290 



0C7F 





C253 




0C80 





D2 3C 




0C81 





6104 




0C82 


1 


4400 


0C95 


0C84 





6105 




0C85 


1 


4400 


OCAC 



0C87 6109 
0C88 1 4400 0D14 
0C8A 610A 
0C8B 1 4400 0D3A 
0C8D 1 4400 0DF3 

0C8F 1 6700 0D74 
0C91 1 6F00 0D61 
0C93 1 4C80 0C7B 



0C95 OOOO 
0C96 C246 
0C97 D242 
0C98 D240 

0C99 0A3C 
0C9A 0A41 
0C9B 1000 



0C9C 1 



0C9E 1 
OCAO 
0CA1 1 
0CA3 1 
0CA5 1 
0CA7 
0CA8 1 
OCAA 1 



4400 0D5E 
4400 OCFF 
610A 

4400 0D3A 
4400 0DC2 
4400 0D93 
6101 

4400 0C50 
4C80 0C95 



LD 


2 


SPAC3-D 


STO 


2 


CNTRL-D 


LDX 


1 


4 


BSI 


L 


FORMS 


LDX 


1 


5 


BSI 


L 


PRINT 


LDX 


1 


9 


BSI 


L 


CKXFR 


LDX 


1 


10 


BSI 


L 


CKPTR 


BSI 


L 


DROPD 


LDX 


L3 


MSGAR62 


STX 


L3 


0L0G161 


BSC 


I 


HDNG 



PERFORM SPACING 

PRINT HEADING 

WA IT FOR XFER CMPLT 

BR TO CK PRNTR 

BR TO RELEASE DEVICE 

RESET LOG AREA 

RETURN 

****** ********** *********** ****************** 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 



CARRIAGE CONTROL ROUTINE 

THIS ROUTINE PERFORMS 
CARRIAGE CONTROL AND 
CHECKS THE DSW AFTER 
THE XIO CONTROL COMMAND. 

CALL ******************** 

* LDX 1 MSG ID NO * 

* BSI L FORMS * 

*********************** 

/OOOO 
2 K0100-DST RESTORE PRINT WORDS 
2 PRDSW-DST 
2 XFDSW-DST 

2 CNTRL-DST CONTROL 1443 
2 SENSO-DST SENSE - NO RESET 




OCAC OOOO 



FORMS DC 

LD 

STO 

STO 
* 

XIO 

XIO 

NOP 
* 

BSI 
BSI 
LDX 
BSI 
BSI 
BSI 
LDX 

BSI 
BSC 

**************** ***************************** 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

PRINT DC /OOOO 



L QLOG 

L SBANA 

1 10 

L CKPTR 

L ERRIT 

L LOGIT 

1 1 

L PTRDY 

I FORMS 



SAVE STATUS 
CHECK FOR BUSY 

GO CK PRNTR 

BR TO ERROR RTN 

BR TO LOG RTN 

BR TP CK FOR RDY 
EXIT 



PRINT ROUTINE 

THIS ROUTINE PRINTS DATA 
AND CHECKS THE DSW AFTER 
XIO INITIALIZE WRITE 
COMMAND. 

CALL ******************** 

* LDX 1 MSG ID NO * 

* BSI L PRINT * 
************************ 
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80A14300 
80A14310 
80A14320 
80A14330 
80A1434Q 
80A14350 
80A14360 
80A14370 
80A14380 
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80A14400 
80A14410 
80A14420 
80A14430 
80A14440 
80A14450 
80A14460 
80A14470 
80A14480 
80A14490 
80A14500 
80A14510 
80A14520 
80A14530 
80A14540 
80A14550 
80A14560 
80A14570 
80A14580 
80A14590 
80A14600 
80A14610 
80A14620 
80A14630 
80A14640 
80A14650 
80A14660 
80A14670 
80A14680 
80A14690 
80A14700 
80A14710 
80A14720 
80A14730 
80A14740 
80A14750 
80A14760 
80A14770 
80A14780 
80A14790 
80A14800 
80A14810 
80A14820 
80A14830 
80A14840 
80A14850 
80A14860 
80A14870 
80A14880 
80A14890 
80A14900 
80A14910 
80A14920 
80A14930 
80A14940 
80A14950 
80A14960 
80A14970 
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OCAD 





C246 






LD 


2 


K0100-DST 


RESTORE INTRPT WORDS 


OCAE 





D242 






STO 


2 


PRDSW-DST 




OCAF 





D240 




* 


STO 


2 


XFDSW-DST 




OCBO 





0A3E 






XIO 


2 


WRITE-DST 


PRINT LINE 


0CB1 





0A41 






XIO 


2 


SENSO-DST 


SENSE - NO RESET 


0CB2 





1000 






NOP 









0CB3 


1 


4400 


0D5E 




BSI 


L 


QLOG 


SAVE STATUS 


0CB5 


1 


4400 


OCFF 




BSI 


L 


SBANA 


CHECK FOR BUSY 


0CB7 


1 


4C80 


OCAC 




BSC 


I 


PRINT 


EXIT 










********************************************* 

* 










* 
* 






SHIFT OUTPUT ROUTINE 










* 






THE 


ROTATE ROUTINE SHIFTS 










* 






* ALL 


CHARACTERS IN OUTPUT 










* 
* 






* AREA ONE PLACE. 


0CB9 





0000 




* 
ROTA 


DC 




/OOOO 




OCBA 





6A0E 






STX 


2 


R0TA261 


SAVE XR2 


OCBB 





6600 


0090 




LDX 


L2 


144 


SET TO END OF TABLE 


OCBD 


1 


C400 


OF 15 




LD 


L 


BITS61 


PLACE 1ST CHAR LAST 


OCBF 





18D0 






RTE 




16 




OCCO 


1 


C600 


OF 14 


R0TA1 


LD 


L2 


BITS 


PICK UP NEXT WORD 


0CC2 





18D8 






RTE 




24 




0CC3 


1 


0600 


OF 14 




STO 


L2 


BITS 


SAVE ADVANCED CHARS 


0CC5 





1088 






SLT 




8 




0CC6 





72FF 






MDX 


2 


-1 


CHECK IF TABLE CMPLT 


0CC7 





70F8 






MDX 




R0TA1 




0CC8 





6600 


0000 


R0TA2 


LDX 


L2 


/OOOO 


RESTORE XR2 


OCCA 


1 


4C80 


0C89 




BSC 


I 


ROTA 












********************************************* 

* 

* 










* 
* 
* 






SET 1 


PRINTER OUTPUT ROUTINI 










* 






THIS 


ROUTINE SETS DATA IN 










* 






THE 


1443 OUTPUT AREA. 










* 






THE 


WORD COUNT IS PLACED 










* 






EQUAL TO THE TOTAL DATA 










* 






SIZE. 










* 






CALL 


******************** 










* 






* 


BSI L SEBIT * 










* 






* 


DC DATA SIZE * 










* 






* 


DC SOURCE ADDR* 










* 






* 


DC SOURCE SIZE* 










* 
* 

* 






*********************** 














TO AOD TO EXISTING DATA 










* 






THE 


DATA SIZE SHOULD BE 










* 






SPECIFIED NEGATIVELY. 










* 






XR1 , 


AND XR2 ARE SAVED 


OCCC 





0000 




SEBIT 


DC 









OCCD 





6924 






STX 


1 


SEB0T61 


SAVE INDEX REGS 


OCCE 





6A25 




* 


STX 


2 


SEB0TG3 




OCCF 


1 


6780 


OCCC 


* 


LDX 


13 


SEBIT 


FETCH CALLING ADDR 


0CD1 


1 


6600 


0F14 




LDX 


L2 


BITS 


INITIALIZE RTN 


0CD3 





6A18 






STX 


2 


PUT£1 





80A14980 
80A14990 
80A15000 
80A15010 
80A15020 
80A15030 
80A15040 
80A15050 
80A15060 
80A15070 
80A15080 
80A15090 
80A15100 
80A15110 
80A15120 
80A15130 
80A15140 
80A15150 
80A15160 
80A15170 
80A15180 
80A15190 
80A15200 
80A15210 
80A15220 
80A15230 
80A15240 
80A15250 
80A15260 
80A15270 
80A15280 
80A15290 
80A15300 
80A15310 
80A15320 
80A15330 
80A15340 
8OA15350 
80A15360 
80A15370 
80A15380 
80A15390 
80A15400 
80A15410 
80A15420 
80A15430 
80A15440 
80A15450 
80A15460 
80A15470 
80A15480 
80A15490 
80A15500 
80A15510 
80A15520 
80A15530 
80A15540 
80A15550 
80A15560 
80A15570 
80A15580 
80A15590 
80A15600 
80A15610 
80A15620 
80A15630 
80A15640 
80A15650 



OCFF OOOO 



FETCH WORD COUNT 
BR IF RESTORE FIELD 

ADD TO EXISTNG FIELD 



MAKE WORD COUNT 
* POSITIVE 



LOAD XR2 WI-TH WD CNT 
FETCH SOURCE DATA AD 



FETCH SOURCE SIZE 



XFER SOURCE DATA 
* TO PRINT AREA 
INCR PRINT FIELD WC 



RET TO XFER NXT DATA 

FINISHED WITH XFER 
* RESTORE XRS 
RETURN 



GO XFER NEXT DATA 
FULL - WRAP DATA 
* AROUND IN PRINT AR 

RESET PRINT FIELD WC 



******* **************************** ********** 

* 

* 

* 

* STATUS ANALYSIS ROUTINE 

* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
SBANA DC /OOOO 



0CD4 
0CD5 




1 


C300 
4C30 


OCFA 




LD 
BSC 


3 
L 



RSTWC, -Z 


0CD7 
0CD9 
OCDA 


1 




C400 
8012 

D011 


0F14 


* 

* 


LD 

A 

STO 


L 


BITS 

PUTE1 

PUT61 


OCOB 
OCDC 
OCDD 
OCDE 








C300 
9300 
9300 
D001 




STOLX 

* 


LD 
S 

s 

STO 


3 
3 
3 





LXR261 


OCDF 
0CE1 
0CE2 
0CE4 






1 




6600 
C301 
8400 
D005 


OOOO 

080A 


LXR2 

* 
LXR1 


LDX 
LD 
A 
STO 


L2 
3 
L 



1 

TERM 
GETtl 


0CE5 
0CE6 






C302 
D001 




LD 

STO 


3 


2 
*&1 


0CE7 
0CE9 
OCEB 
OCED 






1 


65 00 
C500 
D600 
7401 


OOOO 
OOOO 
OOOO 
0F14 


GET 
PUT 

* 


LDX 
LD 
STO 
MDX 


LI 
LI 

L2 

L 





BITS.l 


OCEF 
OCFO 






72FF 
7006 




* 
SEBOT 

* 


MDX 
MDX 


2 


-1 
DECXO 


0CF1 
0CF3 
0CF5 







6500 
6600 
4F00 


OOOO 
OOOO 
0003 


LDX 
LDX 
BSC 


LI 
L2 
L3 





3 


0CF7 
0CF8 
0CF9 







71FF 
70F0 
70EB 




DECXO 

* 


MDX 
MDX 
MDX 


1 


-1 

GET 

LXR1 


OCFA 
OCFB 
OCFD 
OCFE 




1 





1010 
D400 
C300 
70DF 


0F14 


* 
RSTWC 


SLA 
STO 
LD 
MDX 


L 
3 


16 

BITS 

STOLX 



THIS ROUTINE CHECKS THE 
DSW FOR THE PROPER BITS 
AND SAVES ANY ERRORS IN 
THE FORM OF DSW WAS AND 
DSW SHOULD HAVE BEEN. 

CALL ******************** 

* LDX 1 4XMS,G ID NO * 

* BSI L SBANA * 
*********************** 

THE MSG ID NO REFERS TO A 
STRING. THIS STRING IS 
CALLED DSWN FOR MSG ID 
NUMBER N. THE STRING IS. 



DSWN DC 


DSW WAS 


DC 


DSW S/B 


DC 


EXPECTED DSW 


DC 


MASK FOR CKG 
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80A15660 
80A15670 

80A15680 
80A15690 
80A15700 
80A15710 
80A15720 
80A15730 
80A15740 
80A15750 
80A15760 
80A15770 
80A1578O 
80A15790 
80A15800 
80A15810 
80A15820 
80A15830 
80A15840 
80A15850 
80A15860 
80A15870 
80A15880 
80A15890 
80A15900 
80A15910 
80A15920 
80A15930 
80A15940 
80A15950 
80A15960 
80A15970 
80A15980 
80A15990 
80A16000 
80A16010 
80A16020 
80A16030 
80A16040 
80A16050 
80A16060 
80A16070 
80A16080 
80A16090 
80A16100 
80A16110 

80A16120 
80A16130 
80A16140 
80A16150 
80A16160 
80A16170 
80A16180 
80A16190 
80A16200 
80A16210 
80A16220 
80A16230 
80A16240 
80A16250 
80A16260 
80A16270 
80A16280 
80A16290 
80A16300 
80A16310 
80A16320 
80A16330 



DATE 


04N0V66 


15JUN68 


14N0V69 


20MAR70 


EC NO. 


415233 


411935 


431319 


431320 



PROG ID 


080A-1 


DATE 


04N0V66 


15JUN68 


14N0V69 


20MAR70 


PAGE 


12 


EC NO. 


415233 


411935 


431319 


431320 



PROG 10 
PAGE 



080A-1 
12A 



I 1 4 4 4 4 4 4 4 4 4 4 ( 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 < 4 < 



4 4 
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ODOO 


1 


7500 081E 


MDX 


LI 


DST 


0D02 





1000 


NOP 







0D03 





0248 


STO 


2 


SBANO-DST 


0D04 





18D0 


RTE 




16 


0D05 





C248 


LD 


2 


SBANQ-DST 


OD06 





F102 


EOR 


1 


2 


0D07 





E103 


AND 


1 


3 


0D08 





D100 


STO 


1 





0D09 





D101 


STO 


1 


1 


ODOA 


1 


4C98 OCFF 


BSC 


I 


SBANA.fi- 


ODOC 





C103 


LD 


1 


3 


ODOD 





F2EC 


EOR 


2 


TERM-DST 


ODOE 





E248 


AND 


2 


SBANQ-DST 


ODOF 





E902 


OR 


1 


2 


0D10 





18D0 


RTE 




16 


0D11 





D900 


STD 


1 






0D12 1 4C80 OCFF 



FETCH ANALYSIS MSG 



CK AGAINST EXPECTED 
REMOVE UNNEC BITS 



EXIT IF DSW OK 
SET DSW S/B 



SAVE ANY ERROR FOUND 

BSC I SBANA EXIT 

********************************************* 
* 











* 

* 
* 






CHECK TRANSFER COMPLETE 










* 






ROUTINE 


0D14 





0000 




CKXFR 


DC 




/OOOO 




0D15 





C246 






LD 


2 


K0100-DST 


RESET WAIT COUNTER 


0D16 





1802 






SRA 




2 




0D17 





D203 




4 


STO 


2 


WACNT-OST 




0D18 





6901 






STX 


1 


*<a 




0019 





6500 


0000 


CKXF1 


LDX 


LI 


/OOOO 




0D1B 


1 


6600 


081E 




LDX 


L2 


DST 




0D1D 





C240 






LD 


2 


XFDSW-DST 




0D1E 





F246 






EOR 


2 


K0100-DST 




0D1F 


1 


4C18 


0D26 


£ 


BSC 


L 


CKXF7,£- 


BR IF XFER NOT CMP 


0D21 





C240 






LD 


2 


XFDSW-DST 




0D22 





403B 






BSI 




QLOG 


SAVE STATUS 


0D23 





40DB 




* 

CKXF3 


BSI 




SBANA 


CHECK FOR ERROR 


0024 


1 


4C80 


0D14 


BSC 


I 


CKXFR 


RETURN 


0D26 


1 


74FF 


0821 


* 
CKXF7 


MDX 


L 


WACNT.-l 




0028 





700D 






MDX 




CKXF8 




0029 





COFO 






LD 




CKXF161 




002A 





1002 






SLA 




2 




0D2B 





D001 






STO 




*U 




0D2C 





6500 


0000 




LDX 


LI 


/OOOO 




0D2E 





0A43 






XIO 


2 


SENSD-DST 




0D2F 





EA46 






OR 


2 


K0100-DST 




0030 





40CE 






BSI 




SBANA 


SAVE ERROR MESSAGE 


0D31 





F246 






EOR 


2 


K0100-DST 




0032 





DA34 






STD 


2 


DSWD-DST 




0033 





10A0 






SLT 




32 




0D34 





D900 






STD 


1 







0D35 





70EE 






MDX 




CKXF3 




0D36 


1 


6600 


0D19 


CKXF8 


LDX 


L2 


CKXF1 


TRY AGAIN - LATER 



0D3A OOOO 
0D3B C245 
0D3C D203 



BSC L LOPGO 
******** **********************#*$#$$ **#*#* *** 
* 
* 
* 
CKPTR DC /OOOO 

LD 2 K0400-DST RESET WAIT COUNTER 

STO 2 WACNT-DST 



80A16340 

80A16350 

80A16360 

80A16370 

80A16380 

80A16390 

8 OA 16400 

80A16410 

80A16420 

80A16430 

80A16440 

80A16450 

80A16460 

80A16470 

80A16480 

80A16490 

80A16500 

80A16510 

80A16520 

80A16530 

80A16540 

80A16550 

80A16560 

80A16570 

80A16580 

80A16590 

80A16600 

80A16610 

80A16620 

80A16630 

80A16640 

80A16650 

80A16660 

80A16670 

80A16680 

80A16690 

80A16700 

80A16710 

80A16720 

80A16730 

80A16740 

80A16750 

80A16760 

80A16770 

80A16780 

80A16790 

80A16800 

80A16810 

80A16820 

80A16830 

80A16840 

80A16850 

80A16860 

80A16870 

80A16880 

80A16890 

80A16900 

80A16910 

80A16920 

80A16930 

80A16940 

80A16950 

80A16960 

80A16970 

80A16980 

80A16990 

80A17000 

80A17010 



0D3D 6901 






STX 


1 *£1 




0D3E 6500 


OOOO 


CKPT1 LDX 


LI /OOOO 




0D40 1 6600 


081E 




LDX 


L2 DST 




0D42 C242 






LD 


2 PRDSW-DST 




0D43 F246 






EOR 


2 K0100-DST 




0044 1 4C18 


0D4B 


age 


BSC 


L CKPT7.G- 


BR IF PTR NOT CMPLT 


0D46 C242 






LD 


2 PRDSW-DST 




0D47 4016 






BSI 


OLOG 


SAVE STATUS 


0D48 40B6 




* 


BSI 


SBANA 


CHECK FOR ERROR 


0D49 1 4C80 


0D3A 


CKPT3 BSC 

* 


I CKPTR 


RETURN 


0D4B 1 74FF 


0821 


* 

CKPT7 MDX 


L WACNT.-l 




0D4D 700D 






MDX 


CKPT8 




0D4E COFO 






LD 


CKPT161 




0D4F 1002 






SLA 


2 




0D50 D001 






STO 


*£1 




0D51 6500 


OOOO 




LDX 


LI /OOOO 




0D53 0A43 






XIO 


2 SENSD-DST 




0D54 EA46 






OR 


2 K0100-DST 




0D55 40A9 






BSI 


SBANA 


SAVE ERROR MESSAGE 


0D56 F246 






EOR 


2 K0100-DST 




0D57 DA38 






STD 


2 DSWE-DST 




0D58 10A0 






SLT 


32 




0D59 D900 






STD 


1 




0D5A 70EE 




4c 


MDX 


CKPT3 




0D5B 1 6600 


0D3E 


CKPT8 


LDX 


L2 CKPT1 


TRY AGAIN - LATER 


0D5D 7060 






MDX 


LOPGO 








********************************#,,< 3*$,,, 3^.^ ,,,,;, 
* 

* 






* 

* 




THE 


OULOG ROUTINE SAVES 






* 




LOG 


MESSAGES IN ORDER 






* 




RECEIVED FOR OUTPUT AT 






* 
* 




A LATER TIME. 






* 




CALL 


******************$$ 






* 




* 


LDX 1 MSG ID NO * 






* 




* 


BSI L OLOG * 






* 




************ *********** 






* 




AT ENTRY TIME 






* 




ACC 


EQUALS MSG WANTED 






* 
* 




XR1 


EQUALS MSG ID NO 






* 




ACC 


IS SAVED 






* 
* 




XR1 


IS MULTIPLIED BY FOUR 


0D5E OOOO 




* 
OLOG 


DC 


/OOOO 




0D5F 690F 






STX 


1 QL0G2S1 




0060 1 6500 0D74 


QL0G1 


LDX 


LI MSGARS2 




0D62 1 7402 0D61 


* 


MDX 


L QL0G161,2 


UPDATE STO AREA 


0064 D101 




* 


STO 


1 1 


SAVE MESSAGE 


0D65 C009 






LD 


QL0G261 


SET MESSAGE ID 


0D66 E82B 






OR 


KAOOO 




0D67 D100 






STO 


1 




0D68 1810 






SRA 


16 


CLEAR NEXT MSGID 


0D69 D102 




* 


STO 


1 2 




0D6A C004 




LD 


QL0G261 


SET XR1 



80A17020 

80A17030 

80A17040 

80A17050 

80A17060 

80A17070 

80A17080 

80A17090 

80A17100 

80A17110 

80A17120 

80A17130 

80A17140 

80A17150 

80A17160 

80A17170 

60A17180 

80A17190 

80A17200 

80A17210 

80A17220 

80A17230 

80A17240 

80A17250 

80A17260 

80A17270 

80A17280 

80A17290 

80A17300 

80A17310 

80A17320 

80A17330 

80A17340 

80A17350 

80A17360 

80A17370 

80A17380 

80A17390 

80A17400 

80A17410 

80A17420 

80A17430 

80A17440 

80A17450 

80A17460 

80A17470 

80A17480 

80A17490 

80A17500 

80A17510 

80A17520 

80A17530 

80A17540 

80A17550 

80A17560 

80A17570 

80A17580 

80A17590 

80A17600 

80A17610 

80A17620 

80A17630 

80A17640 

80A17650 

80A17660 

80A17670 

80A17680 

80A17690 



DATE 


04N0V66 


15JUN68 


14N0V69 


20MAR70 


EC NO. 


415233 


411935 


431319 


431320 



PROG ID 

PAGE 



080A-1 
13 



DATE 
EC NO. 



04N0V66 
415233 



15JUN68 
411935 



14N0V69 
431319 



20MAR70 
431320 



PROG ID 
PAGE 



080A-1 
13A 
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PAGE 



2196382 
14A 



006B 1002 
006C D002 
006D C101 
0D6E 6500 0000 



SLA 2 

STO QLOG261 

LD 1 1 

0L0G2 LDX LI /OOOO 

# 



0D70 


1 


4C80 


0D5E 


* 


BSC 


I 


OLOG 


0D72 




0000 




BSS 


E 





0D72 





0001 




MSGAR 


DC 




1 


0D73 





0000 






DC 







0D74 





0000 






DC 







0D75 





0000 






DC 







0D76 




001C 






BSS 




28 


0D92 





AOOO 




KAOOO 


DC 




/AOOO 



RESTORE ACC 



EXIT TO USER 



0D93 0000 

0094 1 6700 0D74 

0096 6BCA 

0097 C2E2 
0D98 B250 
0D99 7019 
0D9A 1000 
0D9B C2E4 
0D9C 1009 
0D9D 1 4C10 0DB3 

0D9F 1 C480 0E10 
0DA1 1 4C88 0D93 



0DA3 4480 012F 
0DA5 1 0D72 
0DA6 1 0DB9 
0DA7 1 ODAA 

0DA8 4C80 012D 



ODAA 1 6700 0076 
OOAC CBOO 
ODAD 1 4C10 00B3 

ODAF D8C4 
ODBO 1 7402 ODAB 

0DB2 70F0 

0DB3 1 6700 0D76 
0DB5 6BF5 

0DB6 4063 
0DB7 1 4C80 0D93 



0DB9 1 6600 0DA3 
ODBB 7002 



MODIFIER WORD COUNT 
HEX OUTPUT 
MESSAGE ID 
OBJECT DSW 

CONSTANT 

* 



LOG MESSAGE ROUTINE 

THE LOGGING ROUTINE SETS 
UP AND LOGS MESSAGES 
PREVIOUSLY SAVED BY THE 
OLOG ROUTINE. 



LOGIT DC /OOOO 

LDX L3 MSGAR&2 



STX 


3 


QL0G1&1 


LD 


2 


RID-DST 


CMP 


2 


KOOOC-DST 


MDX 




0LUP1 


NOP 






LD 


2 


SWO-DST 


SLA 




9 


BSC 


L 


QLUP1,- 


LD 


I 


GETAD 


BSC 


I 


LOGIT, 6 



RESET QULOG AREA 

CHECK IF FORCE LOG 
NOT IN THIS ROUTINE 

BR IF NOT LOG NOW 
BR IF NOT RELEASED 



**#****#****#********* PRINT MESSAGE 

L0G1 BSI I LOG * 

DC MSGAR MSG * 

DC LOGBY BUSY * 

DC QLUP TERM * 

BSC I START 
* 
* 

OLUP LDX L3 MSGARC4 

LDD 3 

BSC L QLUP1,- 



* 



STO 

MDX 

MDX 



MSGAR62 
QLUP6U2 

L0G1 



0LUP1 LDX L3 MSGARE4 

STX 3 OLUP&l 
* 

BSI HALT 
* 

BSC I LOGIT 
* 
* 
LOGBY LDX L2 L0G1 

MDX LOPGO 
* 



EXIT - NO MORE MSGS 
MOVE MSG FOR OUTPUT 

GO LOG 

RESET CHECK AREA 

CHECK IF HALT PROG 
RETURN TO USER 

TRY AGAIN - LATER 



80A17700 
80A17710 
80A17720 
80A17730 
80A17740 
80A17750 
80A17760 
80A17770 
80A17780 
80A17790 
80A17800 
80A17810 
80A17820 
80A17830 
80A17840 
80A17850 
80A17860 
80A17870 
80A17880 
80A17890 
80A17900 
80A17910 
80A17920 
80A17930 
80A17940 
80A17950 
80A17960 
80A17970 
80A17980 
80A17990 
80A18000 
80A18010 
80A18020 
80A18030 
80A18040 
80A18050 
80A18060 
80A18070 
80A18080 
80A18090 
80A18100 
80A18110 
80A18120 
80A18130 
80A18140 
80A18150 
80A18160 
80A18170 
80A18180 
80A18190 
80A18200 
80A18210 
80A18220 
80A18230 
80A18240 
80A18250 
80A18260 
80A18270 
80A18280 
80A18290 
80A18300 
80A18310 
80A18320 
80A18330 
80A18340 
80A18350 
80A18360 
80A18370 



ODBC 1 6600 0DE3 
ODBE 1 6E00 0809 
ODCO 4C80 012D 



00C2 OOOO 
0DC3 402F 
0DC4 1 C480 0E10 
0DC6 1 4C88 0DC2 

0DC8 6500 FFC8 
ODCA 10A0 
ODCB 1 BDOO 085A 
ODCD 1000 
ODCE 7008 
ODCF 7104 
ODDO 70FA 

0DD1 C2E5 
0DD2 F244 
0DD3 1 4C20 08E0 
ODDS 1 4C80 0DC2 

0DD7 1 CDOO 085A 
0DD9 D816 



ODDA 





6914 


OODB 





C013 


ODDC 





8015 


ODDD 





1802 


ODDE 





E800 


ODDF 





DOOF 


ODEO 





10A0 


0DE1 


1 


DDOO 085A 



0DE3 1 6600 081E 

0DE5 4480 0130 
0DE7 1 ODED 
0DE8 1 ODBC 
0DE9 1 ODEA 



ODEA 
ODEC 
ODEC 
ODED 
ODEE 
ODEF 
ODFO 
0DF1 



0DF2 



70DD 
OOOO 
EOOO 
0002 
OOOO 
EOOF 
EDOO 
OOOO 
003C 



ERRBY LDX L2 ERR5 TRY AGAIN - LATER 
LOPGO STX L2 MLSCF 
BSC I START 

* 
* 

* 
* 
* 

* 
* 

ERR IT DC 
BSI 



LOG ERROR ROUTINE 

THE ERROR ROUTINE LOGS 
* ALL ERROR MESSAGES 



* 
ERR1 

ERR2 



LD 
BSC 

LDX 
SLT 

DCM 
NOP 
MDX 
MDX 
MDX 

LD 
EOR 
BSC 
BSC 



/OOOO 
DROPD 
GETAD 
ERRIT.e 



LI -56 

32 
LI DST660 



ERR4 

1 4 
ERR2 

2 SW1-DST 

2 SWCMP-DST 
L PCON,Z 
I ERRIT 



ERR4 LDD LI DSTC60 
STD EMESSG3 



STX 

LD 

A 

SRA 

OR 

STO 

SLT 

STD 



1 EMESS62 
EMESS&2 
SIXTY 
2 

KEOOO 
EMESS&2 
32 
LI DSTS60 



RELEASE THE 1443 
BR IF NOT RELEASED 
CHECK ERROR TABLE 

BR IF ENTRY FOUND 

BR IF SW1 CHANGED 
RETURN TO USER 

TRANSFER TO OUTPUT 
BUILD MSG ID 

RESTORE ERROR WORDS 



ERR5 LDX L2 DST 

##*******#*#**#******* PRINT ERROR 

BSI I ERROR * 

DC EMESS MSG * 

DC ERRBY BUSY * 

DC * * 

ft****************************** 



MDX 

BSS 

KEOOO DC 

EMESS DC 

DC 

DC 

DC 

DC 

SIXTY DC 



ERR1 



/EOOO 

2 



/EOOF 

/EDOO 



60 



MODIFIER WORD COUNT 

HEX OUTPUT 

MESSAGE ID 

DSW 

DSW SHOULD BE 

CONSTANT 



# 
* 
# 
* 

* 



RELEASE DEVICE ROUTINE 



0DF3 OOOO 
0DF4 1 C480 0E10 
0DF6 1 4C10 ODFF 



DROPD DC 
LD 
BSC 





GETAD 

DRPED,- 



80A18380 
80A18390 
80A18400 
80A18410 
80A18420 
80A18430 
80A18440 
80A18450 
80A18460 
80 Al 8470 
80A18480 
80A18490 
80A18500 
80A18510 
80A18520 
80A18530 
80A18540 
80A18550 
80A18560 
80A18570 
80A18580 
80A18590 
80A18600 
80A18610 
80A18620 
80A18630 
80A18640 
80A18650 
80A18660 
80A186 70 
80A18680 
80A18690 
80A18700 
80A18710 
80A18720 
80A18730 
80A18740 
80A18750 
80A18760 
80A18770 
80A18780 
80A18790 
80A18800 
80A18810 
80A18820 
80A18830 
80A18840 
80A18850 
80A18860 
80A18870 
80A18880 
80A18890 
80A18900 
80A18910 
80A18920 
80A18930 
80A18940 
80A18950 
80A18960 
80A18970 
80A18980 
80A18990 
80A19000 
80A19010 
80A19020 
80A19030 
80A19040 
80A19050 



DATE 
EC NO. 



04N0V66 
415233 



15JUN68 
411935 



14N0V69 
431319 



20MAR70 
431320 



PROG ID 


080A-1 


PATE 


04N0V66 


15JUN68 


14N0V69 


20MAR70 


PAGE 


14 


EC NO. 


415233 


411935 


431319 


431320 



PROG ID 
PAGE 



080A-1 
14A 



<<<<<<<<<<<<<( <<<<<<< 4 4 4 4 4 ( I 4 4 < < < < 



F 
L 
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1443 FUNCTION TEST 



0DF8 C24E 
0DF9 1 4C20 0E02 

OOFB 4480 0132 
ODFD 1 0811 
OOFE 1 080A 

ODFF 1 6600 0E02 
0E01 70BC 

0E02 1 6600 081E 
OE04 1 4C80 0DF3 



0E06 0000 

0E07 1 C480 0E10 

0E09 1 4C28 0E13 

OEOB 1 7401 0877 

OEOD 4480 0131 
OEOF 1 0E17 
0E10 1 0811 
0E11 1 0878 
0E12 1 080A 

0E13 1 6600 081E 
0E15 1 4C80 0E06 

0E17 1 6600 OEOD 
0E19 70A4 



0E1A 0000 

0E1B 1 6600 081E 

0E1D C2E4 

0E1E 18D8 

0E1F 1 4C90 0E1A 

0E21 18C1 

0E22 1 4C10 0E29 

0E24 1 4400 00C2 

0E26 1' 6600 0E1B 

0E28 7095 



LD 2 KEEP-DST 

BSC L DRPAD, Z BR IF NO RELEASE NOW 
********************** RELEASE DEVICE. 

BS1 I RELDV * 

DRAD DC DDEF1 * 

DC TERM * 

******************************* 

DRPED LDX L2 DRPAD 
MDX LOPGO 

* 

DRPAD LDX L2 DST 

BSC I DROPD 
************** ft****************************** 
* 
* 
* 



* 

* 

GETDE DC 
LD 
BSC 
MDX 



REQUEST DEVICE ROUTINE 





GETAD 
G0TIT,Z£ 
INTSW.l 



SET INTERRUPT SWITCH 



********************** request DEVICE, 



GETRN BSI 
DC 

GETAD DC 
DC 

DC 



I 



REQDV 

REXIT 

DDEF1 

OVA 

TERM 

******************************* 

GOTIT LDX L2 DST 

I GETDE 



* 
BUSY * 

* 
* 
* 



BSC 



REXIT LDX L2 GETRN 
MDX LOPGO 

********************************************* 
* 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

HALT 

HALT1 LDX 
LD 
RTE 
BSC 

* 

RTE 
BSC 

BSI 
* 

LDX 
MDX 



PROGRAM HALT ROUTINE 

THIS ROUTINE CHECKS FOR 
PROGRAM HALT AND WILL 
RETURN TO MAINLINE ONLY 
WHEN EITHER PROGRAM HALT 
IS OFF OR WHEN BOTH 
PROGRAM HALT AND SINGLE 
CYCLE ARE SPECIFIED. 



DC 



/oooo 

L2 DST 
2 SWO-DST 
24 
I HALT,- 



HALT9,- 
ERRIT 



BR BACK IF NO HALT 



BR IF SINGLE CYCLE 
CK IF END ROUTINE 



L2 HALT1 
LOPGO 









* 














* 














* 














* 








0E29 


1001 




HALT9 


SLA 


1 


RESTOR 


0E2A 


1888 






SRT 


8 




0E2B 


D2E4 






STO 


2 SWO-DST 




0E2C 1 


4C80 


0E1A 




BSC 


I HALT 


RETURN 
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80A19060 

80A19070 

80A19080 

80A19090 

80A19100 

80A19110 

80A19120 

80A19130 

80A19140 

80A19150 

80A19160 

80A19170 

80A19180 

80A19190 

80A19200 

80A19210 

80A19220 

80A19230 

80A19240 

80A19250 

80A19260 

80A19270 

80A19280 

80A19290 

80A19300 

80A19310 

80A19320 

80A19330 

80A19340 

80A19350 

80A19360 

80A19370 

80A19380 

80A19390 

80A19400 

80A19410 

80A19420 

80A19430 

80A19440 

80A19450 

80A19460 

80A19470 

80A19480 

80A19490 

80A19500 

80A19510 

80A19520 

80A19530 

80A19540 

80A19550 

80A19560 

80A19570 

80A19580 

80A19590 

80A19600 

80A19610 

80A19620 

80A19630 

80A19640 

80A19650 

80A19660 

80A19670 

80A19680 

80A19690 

80A19700 

80A19710 

80A19720 

80A19730 
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0E2E 0000 
0E2F 1 6600 081E 
0E31 C2E4 
0E32 1009 
0E33 1809 
0E34 D2E4 
0E35 1 C480 0E10 
0E37 1 4C90 0E2E 

0E39 4480 0132 
0E3B 1 0811 
0E3C 1 080A 

0E3D 1 4C80 0E2E 



0E3F 
0E41 
0E42 



6500 0E45 
6980 



74FF ODED 
0E44 709E 
0E45 1 7401 ODED 

0E47 4C80 012E 



0E49 





3239 


0E4A 





1300 


0E4B 





2339 


0E4C 





2535 


0E4D 





0000 


0E4E 





2020 


0E4F 





1010 


0E5O 





0808 


0E51 





0404 


0E52 





0202 


0E53 





0101 


0E54 





2731 


0E55 





2939 


0E56 





1318 


0E58 




0000 


0E58 





8000 


0E59 





0040 


0E5A 





AOOO 


0E5B 





0060 


0E5C 





9000 


0E5D 





0050 


0E5E 





8800 


0E5F 





0048 


0E60 





8400 


0E61 





0044 


0E62 





8200 



************* 

* 

* 

* 

* 

* 

ENDIT DC 

LDX L2 
LD 2 
SLA 
SRA 

STO 2 
LD I 
BSC I 

************* 

BSI I 
ENDAD DC 
DC 

************* 

BSC I 

************* 

* 
* 
* 
* 
* 
DEND 



*******************************,;, 



END OF PROGRAM ROUTINE 



DST 

SWO-DST 

9 

9 

SWO-DST 

GETAD 

ENDIT,- BR IF 1443 RELEASED 
********* RELEASE DEVICE 

RELDV * 

DDEF1 * 

TERM * 

****************** 

ENDIT 

******************************** 



EDIT ERROR END ROUTINE 



LI 

1 
L 



I 



LDX 

STX 

MDX 

MDX 
DEND1 MDX 
* 

BSC 

************* 

* 

* 
* 
* 
* 
* 

BLINE DC 

DC 
DC 
DC 



DEND1 

ERRIT 

EMESS.-l 

ERR5 

EMESS.l 



PRINT EDIT ERROR 



END CALL END 
******* ************************* 



OUTPUT DATA TABLES 



* 
BILK 



PAR 



PARK 



DC 
DC 
DC 
DC 
DC 
DC 

DC 

DC 

DC 

DC 

BSS 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 



/3239 
/1300 
/2339 
/2535 

/OOOO 
/2020 
/1010 
/0808 
/0404 
/0202 

/0101 

/2731 

/2939 

/1318 



/8000 

/0040 

/AOOO 

/0060 

/9000 

/0050 

/8800 

/0048 

/8400 

/0044 

/8200 



B I 
T 

L I 

N E 

BLANK 
MINUS 
PLUS 

8 
4 
2 

1 

P A 

R I 

T Y 

BAD BLANK 

MINUS 

PLUS 

8 
4 
2 
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80A19740 

80A19750 

80A19760 

80A19770 

80A19780 

80A19790 

80A19800 

80A19810 

80A19820 

80A19830 

80A19840 

80A19850 

80A19860 

80A19870 

80A19880 

80A19890 

80A19900 

80A19910 

80A19920 

80A19930 

80A19940 

80A19950 

80A19960 

80A19970 

80A19980 

80A19990 

80A20000 

80A20010 

80A20020 

80A20030 

80A20040 

80A20050 

80A20060 

80A20070 

80A20080 

80A20090 

80A20100 

80A20110 

80A20120 

80A20130 

80A20140 

80A20150 

80A20160 

80A20170 

80A20180 

80A20190 

80A20200 

80A20210 

80A20220 

80A20230 

80A20240 

80A20250 

80A20260 

80A20270 

80A20280 

80A20290 

80A20300 

80A20310 

80A20320 

80A20330 

80A20340 

80A20350 

80A20360 

80A20370 

80A20380 

80A20390 

80A20400 

80A20410 



DAfi 
EC MO. 



04N0V66 
415233 



15JUN68 
411935 



14N0V69 
431319 



20MAR70 
431320 



PROG ID 
PAGE 



080A-1 
15 



DATE 
EC NO. 



04N0V66 
415233 



15JUN68 
411935 



14N0V69 
431319 



20MAR70 
431320 



PROG ID 
PAGE 



080A-1 
15A 
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0E63 





0042 




DC 


/0042 




0E64 





8100 




DC 


/8100 




0E65 





0041 


£ 


DC 


/0041 




0E66 





0000 


BLANK 


DC 


/OOOO 




0E67 





3318 


CSTEL 


DC 


/3318 


C Y 


0E68 





3323 




DC 


/3323 


C L 


0E69 





35 00 




DC 


/3500 


E 


0E6A 





1213 




DC 


/1213 


S T 


0E6B 





3531 




DC 


/3531 


E A 


0E6C 





2300 


* 


DC 


/2300 


L 


0E6D 





2739 




DC 


/2739 


P I 


0E6E 





3322 




DC 


/3322 


C K 


0E6F 





2014 




DC 


/2014 


- U 


0E70 





2700 


* 


DC 


/2700 


P 


0E71 





3429 


DROP 


DC 


/3429 


D R 


0E72 





2627 


£ 


DC 


/2627 


P 


0E73 





0009 


CSE08 


DC 


/0009 


9 


0E74 





OOOA 


CSE09 


DC 


/OOOA 





0E75 





0001 




DC 


/0001 


1 


0E76 





0002 




DC 


/0002 


2 


0E77 





0003 




DC 


/0003 


3 


0E78 





0004 




DC 


/0004 


4 


0E79 





0005 




DC 


/0005 


5 


0E7A 





0006 




DC 


/0006 


6 


OE7B 





0007 




DC 


/0007 


7 


OE7C 





0008 




DC 


/0008 


8 


0E7D 





0009 


WCCOR 


DC 


/0009 


9 


0E7E 


'0 


1626 


DC 


/1626 


W 


OE7F 





2912 




DC 


/2912 


R S 


0E80 





1300 




DC 


/1300 


T 


0E81 





3331 




DC 


/3331 


C A 


0E82 





1235 




DC 


/1235 


S E 


0E83 





0033 




DC 


/0033 


C 


0E84 





2629 




DC 


/2629 


R 


0E85 





3500 


# 


DC 


/3500 


E 


0E86 





3100 


WCCA 


DC 


/3100 


A 


0687 





3200 


WCCB 


DC 


/3200 


B 


0E88 





2A2A 


AMORK 


DC 


/2A2A 


# # 


0E89 





2A15 




DC 


/2A15 


# V 


0E8A 





2A2A 




DC 


/2A2A 


# # 


0E8B 





152A 




DC 


/152A 


V # 


0E8C 





1515 




DC 


/1515 


V V 


0E8D 





152A 




DC 


/152A 


V # 


0E8E 





1515 




DC 


/1515 


V V 


0E8F 





2A15 


* 
BWORK 


DC 


/2A15 


# V 


0E90 





3838 


DC 


/3838 


H H 


0E91 





3807 




DC 


/3807 


H 7 


0E92 





3838 




DC 


/3838 


H H 


0E93 





0738 




DC 


/0738 


7 H 


0E94 





0707 




DC 


/0707 


7 7 


0E95 





0738 




DC 


/0738 


7 H 


0E96 





0707 




DC 


/0707 


7 7 


0E97 





3807 


$ 


DC 


/3807 


H 7 


0E98 





3525 


EOT 


DC 


/3525 


E N 


0E99 





3400 




DC 


/3400 


D 


0E9A 





2636 




DC 


/2636 


F 


0E9B 





0013 




DC 


/0013 


T 


0E9C 





3512 




DC 


/3512 


E S 
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80A20420 
80A20430 
80A20440 
80A20450 
80A20460 
80A20470 
80A20480 
80A20490 
80A20500 
80A20510 
80A20520 
80A20530 
80A20540 
80A20550 
80A20560 
80A20570 
80A20580 
80A20590 
80A20600 
80A20610 
80A20620 
80A20630 
80A20640 
80A20650 
80A20660 
80A20670 
80A20680 
80A20690 
80A20700 
80A20710 
80A20720 
80A20730 
80A20740 
80A20750 
80A20760 
80A20770 
80A20780 
80A20790 
80A20800 
80A20810 
80A20820 
80A20830 
80A20840 
80A20850 
80A20860 
80A20870 
80A20880 
80A20890 
80A20900 
80A209I0 
80A20920 
80A20930 
80A20940 
80A20950 
80A20960 
80A20970 
80A20980 
80A20990 
80A21000 
80A21010 
80A21020 
80A21030 
80A21040 
80A21050 
80A21060 
80A21070 
80A21080 
80A21090 
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TEST 










0E9D 





133B 


DC 

* 


/133B 


T . 




0E9E 





0000 


* 

ALPHA DC 


/OOOO 


BLANK 


0E9F 





0102 


DC 


/0102 


1 


2 


OEAO 





0304 


DC 


/0304 


3 


4 


0EA1 





0506 


DC 


/0506 


5 


6 


0EA2 





0708 


DC 


/0708 


7 


8 


0EA3 





090A 


DC 


/090A 


9 





0EA4 





0000 


DC 


/OOOO 


BLANK 


0EA5 





0031 


DC 


/0031 




A 


0EA6 





3233 


DC 


/3233 


B 


c 


0EA7 





3435 


DC 


/3435 


D 


E 


0EA8 





3637 


DC 


/3637 


F 


G 


0EA9 





3839 


DC 


/3839 


H 


I 


OEAA 





2122 


DC 


/2122 


J 


K 


OEAB 





2324 


DC 


/2324 


L 


M 


OEAC 





2526 


DC 


/2526 


N 





OEAD 





2728 


DC 


/2728 


P 


Q 


OEAE 





2912 


DC 


/2912 


R 


S 


OEAF 





1314 


DC 


/1314 


T 


u 


OEBO 





1516 


DC 


/1516 


V 


w 


0EB1 





1718 


DC 


/1718 


X 


Y 


0EB2 





1900 


DC 


/1900 


z 


BLANK 


0EB3 





0000 


DC 


/OOOO 


BLANK 


0EB4 





1030 


DC 


/1030 


£ 


AMP 


0EB5 





2011 


DC 


/2011 


- 


/ 


0EB6 





1A3A 


DC 


/1A3A 


PCT 


LOS 


0EB7 





2A0B 


DC 


/2A0B 


NOS 


# 


0EB8 





1B3B 


DC 


/1B3B 


f 


. 


0EB9 





2B0C 


DC 


/2B0C 


$ 


AT 


OEBA 





1C3C 


DC 


/1C3C 


% 


□ 


OEBB 





2C0D 


DC 


/2C0D 


* 


APOSTROPHE 


OEBC 





1D3D 


DC 


/1D3D 


UDR 


CNT 


OEBD 





2D0E 


DC 


/2D0E 


EXC 


GTR 


OEBE 





1E3E 


DC 


/1E3E 


COL 


LES 


OEBF 





2E0F 


DC 


/2E0F 


SMI 


OST 


OECO 





1F3F 


DC 


/1F3F 


QTE 


OR 


0EC1 





2F00 


DC 


/2F00 


NOT 


BLANK 


0EC2 





3020 


STRSS DC 


/3020 


& 


- 


0EC3 





0111 


DC 


/Olll 


1 


/ 


0EC4 





3121 


DC 


/3121 


A 


J 


0EC5 





0212 


DC 


/0212 


2 


S 


0EC6 





3222 


DC 


/3222 


B 


K 


0EC7 





0313 


DC 


/0313 


3 


T 


0EC8 





3323 


DC 


/3323 


C 


L 


0EC9 





0414 


DC 


/0414 


4 


U 


OECA 





3424 


DC 


/3424 


D 


M 


OECB 





0515 


DC 


/0515 


5 


V 


OECC 





3525 


DC 


/3525 


E 


N 


OECD 





0616 


DC 


/0616 


6 


W 


OECE 





3626 


DC 


/3626 


F 





OECF 





0717 


DC 


/0717 


7 


X 


OEDO 





3727 


DC 


/3727 


G 


P 


0ED1 





0818 


DC 


/0818 


8 


Y 


0ED2 





3828 


DC 


/3828 


H 





0ED3 





0919 


DC 


/0919 


9 


z 


0ED4 





3929 


DC 


/3929 


I 


R 


0ED5 





0A1A 


DC 


/0A1A 





% 


0ED6 





3A2A 


DC 


/3A2A 


□ 


# 


0ED7 





0B1B 


DC 


/0B1B 


# 


t 


0ED8 





3B2B 


DC 


/3B2B 


. 


$ 


0ED9 





0C1C 


DC 


/0C1C 


f 


□ 


OEDA 





3C2C 


DC 


/3C2C 


a 


# 


OEDB 





0D1D 


DC 


/0D1D 


j 


I 


OEDC 





3338 


CHARC DC 


/3338 


C H 
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80A21100 

80A21110 

80A21120 

80A21130 

80A21140 

80A21150 

80A21160 

80A21170 

80A21180 

80A21190 

80A21200 

80A21210 

80A21220 

80A21230 

80A21240 

80A21250 

80A21260 

80A21270 

80A21280 

80A21290 

80A21300 

80A21310 

80A21320 

80A21330 

80A21340 

80A21350 

80A21360 

80A21370 

80A21380 

80A21390 

80A21400 

80A21410 

80A21420 

80A21430 

80A21440 

80A21450 

80A21460 

80A21470 

80A21480 

80A21490 

80A21500 

80A21510 

80A21520 

80A21530 

80A21540 

80A21550 

80A21560 

80A21570 

80A21580 

80A21590 

80A21600 

80A21610 

80A21620 

80A21630 

80A21640 

80A21650 

80A21660 

80A21670 

80A21680 

80A21690 

80A21700 

80A21710 

80A21720 

80A21730 

80A21740 

80A21750 

80A21760 

80A21770 



2196382 
16A 



DATE 
EC NO. 



04N0V66 
415233 



15JUN68 
411935 



14N0V69 
431319 



20MAR70 
431320 



PROG ID 


080A-1 


DATE 


04N0V66 


15JUN68 


14N0V69 


20MAR70 


PAGE 


16 


EC NO. 


415233 


411935 


431319 


431320 



PROG ID 
PAGE 



080A-1 
16A 
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OEDD 





3129 


OEDE 





3133 


OEDF 





1335 


OEEO 





2900 


0EE1 





3326 


0EE2 





2427 


0EE3 





2339 


0EE4 





2435 


0EE5 





2513 


0EE6 





2935 


0EE7 





3739 


0EE8 





1213 


0EE9 





2931 


OEEA 





1339 


OEEB 





2625 


OEEC 





3838 


OEED 





1213 


OEEE 





2935 


OEEF 





1212 


OEFO 





1222 


0EF1 





3927 


0EF2 





0031 


0EF3 





3613 


0EF4 





35 29 


0EF5 





0027 


0EF6 





2939 


0EF7 





2513 


0EF8 





1222 


0EF9 





3927 


OEFA 





0039 


OEFB 





2424 


OEFC 





3534 


OEFD 





3931 


OEFE 





1335 


OEFF 





3535 


OFOO 





1227 


0F01 





3133 


0F02 





3500 


0F03 





3924 


0F04 





2435 


0F05 





3439 


0F06 





3113 


0F07 





35 00 


OF 08 





3338 


0F09 





3125 


OFOA 





2535 


OFOB 





2300 


OFOC 





0000 


OFOD 





0000 


OFOE 





1227 


OFOF 





3133 


0F10 





3500 


0F11 





0000 


0F12 





0000 


0F13 





0000 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

REGIS DC 
DC 

* 

DC 
DC 
DC 
DC 

* 

AITCH DC 

* 

STRES DC 
DC 
DC 



SKAP 



DC 
DC 
AFTER DC 
DC 
DC 
DC 
DC 
DC 



* 
SKIM 



E 
* 
SPIM 



0F14 



0093 



* 
CNNL 



* 
SPCC 



* 
* 
BITS 



DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 



BSS 



/3129 
/3133 
/1335 
/2900 
/3326 
/2427 
/2339 
/2435 
/2513 

/2935 
/3739 

/1213 
/2931 
/1339 
/2625 

/3838 

/1213 
/2935 
/1212 

/1222 
/3927 
/0031 
/3613 
/3529 
/0027 
/2939 
/2513 

/1222 
/3927 
/0039 
Z2424 
/3534 
/3931 
/1335 

/3535 

/1227 
/3133 
/3500 
/3924 
/2435 
/3439 
/3113 
/3500 

/3338 
/3125 
/2535 
/2300 
/OOOO 
/OOOO 

/1227 
/3133 
/3500 
/OOOO 
/OOOO 
/OOOO 



147 



H H 

S T 
R E 
S S 

S 

I 

F 
E 



SKIP IMMEDIATE 



SPACE IMMECIATE 



CHANNEL 



SPACE 



1443 OUTPUT AREA 



80A21780 
80A21790 
80A21800 
80A21810 
80A21820 
80A21830 
80A21840 
80A21850 
80A21860 
80A21870 
80A21880 
80A21890 
80A21900 
80A21910 
80A21920 
80A21930 
80A21940 
80A21950 
80A21960 
80A21970 
80A21980 
80A21990 
80A22000 
80A22010 
80A22020 
80A22O30 
80A22040 
80A22050 
80A22060 
80A22070 
80A22080 
80A22090 
80A22100 
80A22110 
80A22120 
80A22130 
80A22140 
80A22150 
80A22160 
80A22170 
80A22180 
80A22190 
80A22200 
80A22210 
80A22220 
80A22230 
80A22240 
80A22250 
80A22260 
80A22270 
80A22280 
80A22290 
80A22300 
80A22310 
80A22320 
80A22330 
80A22340 
80A22350 
80A22360 
80A22370 
80A22380 
80A22390 
80A22400 
80A22410 
80A22420 
80A22430 
80A22440 
80A22450 



0FA7 4480 012C 
0FA9 1 07FF 



OFAA OOOO 

OFFD 

OFFD OOOO 

OFFE 0FA7 



***«***«********# BEGIN ROUTINE. 

PRCUS BSI I BEGIN * 

DC PID 

* PATCH AREA 

BSS E 

ORG /7FE6PID 

PEND DC 

END PRCUS 



NO STATEMENTS FLAGGED IN THE ABOVE ASSEMBLY 



80A22460 
80A22470 
80A22480 
80A22490 
80A22500 
80A22510 
80A22520 
80A22530 
80A22540 
80A22550 
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AFTER 

AGAIN 

AGIN1 

AGIN2 

AITCH 

ALL 

ALPHA 

AWORK 

BAR 

BASIC 

BEGIN 

BILK 

BITS 



BLANK 

BLINE 

BLNCT 

BMORK 

CHAN 

CHAN1 

CHARC 

CKPTR 

CKPT1 

CKPT3 

CKPT7 

CKPT8 

CKXFR 

CKXF1 

CKXF3 

CKXF7 

CKXF8 

CNNL 

CNTRL 

COMP 

CSE08 

CSE09 

CSTEL 

CYCNT 

DDEF1 

DDEF2 

DECXO 

DEND 

DEND1 

DRAD 

DROP 

DROPD 

DRPAD 

DRPED 

DST 



0EF2 
0894 
0897 
089C 
OEEC 
086B 
0E9E 
0E88 
0814 
086A 
012C 
0E4D 
0F14 



0E66 
0E49 
0995 
0E90 
OBAC 
OBAF 
OEDC 
0D3A 

0D3E 
0D49 
0D4B 
0D5B 
0D14 
0D19 
0D24 
0026 
0036 
0F08 
085A 

0810 
0E73 
0E74 
0E67 

0820 

0811 
0812 
0CF7 
0E3F 
0E45 
ODFD 
0E71 
0DF3 
0E02 
ODFF 
081E 



DSWA 



0AF9 

0806 0807 08A7 

089A 

089F 

0A52 0A5B 

08EC 

0A3B 

0A17 

08EB 
0FA7 
0965 
085C 
0AB5 
0C28 
0C01 
08FF 
095E 
098B 
0A2E 
0B3F 
0BD9 
0A34 
0923 
0C8B 
004E 
0D5A 
0044 
0D4D 
0976 
0D29 
0D35 
0D1F 
0028 
0C1A 
08D7 
OBDO 

09C9 

09EE 

09C2 

08E7 

0AB8 

08C6 

08C0 

OCFO 

08C7 

0E3F 

08CF 

09E7 

08DE 

0DF9 

0DF6 

081E 089C 08BA 08BC 

08DC 08DD 08E0 08E9 

0925 0928 094A 094B 

0A19 0A3D 0A42 0A4D 

0A83 0A86 0A9F 0AB3 

0AE5 0AE6 OAEB OAFD 

0B27 0B28 0B3A 0B3B 

0B9C 0BA3 0BA4 0BB8 

OCOO 0C01 0C12 0C13 

0C6A 0C7F 0C80 0C96 

ODOO 0D03 0005 ODOD 

0D31 0D32 003B 0D3C 

0D98 009B ODCB 0DD1 

0E2B 0E2F 0E31 0E34 



0912 0918 0933 0969 0A1B 0A3F 0A56 0A5B 0A7A 0A7D 0A90 OAAO 
0AE7 0B23 0B43 0B4E 0B50 0B58 0B85 0B93 0B95 0B9D OBCC OBFD 
0C2B 0C35 0C37 0C3A 0C3F 0C44 0C48 0C4A 0C4C OCBD OCCO 0CC3 
0CD7 OCED OCFB 
0996 0C10 

09B7 

0B48 0B4C 0B55 0B5D 0B61 OBDA 



093C 0950 0979 09A6 09D4 0A02 0A72 0A90 OADB 0B15 0BC6 OBEE 

0CA1 0D49 

0D5B 



09A3 09D1 09F6 0A6F 0A8D 0AD8 0B12 0BC3 OBEB 0C88 0024 
0D36 



094B 0AC4 0AE4 0AE6 OAFE 0B20 0B22 0B3B 0B6D 0B72 0BA4 OBCE 
OBFF 0C01 0C80 0C99 



09E2 

092D 0942 0956 

OACA OAEC 0B04 

08CB ODFD 0E10 

08C3 



090B 0A76 0C8D 
ODFF 



096C 097F 098F 09B2 09DA 0A08 0A42 0A55 0A96 

0B29 

0E3B 



0DC3 OE04 



08C0 
08EA 
0967 
0A54 
0AB8 
OAFE 
0B4D 
0BB9 
0C27 
0C97 
ODOE 
0D40 
0DD2 



08C6 
08EB 
098A 
0A55 
0AC3 
OAFF 
0B56 
OBBA 
0C2A 
0C98 
0D15 
0D42 
0D07 



08D5 
08EC 
098E 
0A60 
0AC4 
OBOO 
0B57 
OBBE 
OC30 
0C99 
0017 
0D43 
0DE1 



08D6 
08ED 
098F 
0A64 
0AC5 
0B03 
0B6C 
0BC1 
0C47 
0C9A 
0D1B 
0D46 
0DE3 



08D7 
08F0 
09 AD 
0A66 
0AC6 
0B04 
0B6D 
OBCE 
0C55 
OCAD 
0D1D 
0D53 
0DF8 



08D8 
08F9 
09F8 
0A67 
0AC9 
0B05 
0B71 
OBCF 
0C56 
OCAE 
001E 
0D54 
0E02 



08D9 
091A 
09FB 
0A68 
OACA 
0B20 
0B72 
OBDO 
0C59 
OCAF 
0D21 
0D56 
0E13 



08DA 
091B 
09FE 
0A7C 
OACB 
0B21 
0B92 
0BF3 
0C5C 
OCBO 
0D2E 
0D57 
0E1B 



08DB 
091C 
OAOO 
0A82 
0AE4 
0B22 
0B9B 
OBFF 
0C60 
0CB1 
0D2F 
0D97 
0E1D 



0846 



DSWB 

DSWC 

DSWD 

DSWE 

DSW1 

DSW2 

DSW3 

DSW4 

DSW5 

DSW6 

DSW7 

0SW8 

DSW9 

DVA 

E 

EIGHT 

EMESS 

END 

ENDAD 

END IT 

EOT 

EPARK 

ERRBY 

ERR IT 

ERROR 

ERR1 

ERR2 

ERR4 

ERR5 

FIVE2 

FORMS 

GET 

GETAD 

GETDE 

GETRN 

GOTIT 

HALT 

HALT1 

HALT9 

HDNG 

IMSP1 

INTRE 

INTRP 

INTRR 

INTRX 

INTR1 

INTSW 

KAOOO 

KEEP 

KEOOO 

KOOOC 

K0100 

K0200 

K0400 

LAST 

LOG 

LOGBY 

LOGIT 

L0G1 

LOP GO 

LXR1 

LXR2 

MASK 

MLSCF 



08 4A 
084E 
0852 
0856 
0822 
0826 
082A 
082E 
0832 
0836 
08 3A 
083E 
0842 
0878 
OEFF 
0A21 
ODED 
012E 
0E3B 
0E2E 
0E98 
09BE 
ODBC 
0DC2 

0130 
0DC8 
ODCB 
0DD7 
0DE3 
OABB 
0C95 
0CE9 
0E10 
0E06 
OEOD 
0E13 
0E1A 
0E1B 
0E29 
0C7B 

0874 
088E 
0879 
0890 
0892 
0886 
0877 
0D92 
086C 
ODEC 
086E 
0864 

0865 
0863 
08B9 
012F 
0DB9 
0D93 

0DA3 
ODBE 
0CE5 
OCDF 
0869 
0809 



088F 

OAOO 0D32 
0D57 



0AC9 

OBAF 

09F8 
0806 
0C25 

0DD9 
08C9 
08D1 
0808 
0904 
09BA 
0DE8 
0929 
0CA3 
0DE5 
ODEA 
ODDO 
ODCE 
ODBC 
0AB7 
094D 
0CE4 
08CD 
08D3 
0E17 
0E09 
0DB6 
0E26 
0E22 
0906 
0C93 
0AC3 
0881 
0892 
088D 
0885 
087C 
0891 
0D66 
08A0 
ODDE 
0098 
0880 
OCAD 
08DA 
08D5 
086B 
0DA3 
0DA6 
092B 
0CA5 
0DB2 
0C79 
0CF9 
OCDE 
08ED 
08A3 



OAEB 0B03 0B27 

OBDF 

09FB 09FE 
0E11 



ODDA ODDB OODF 0DE7 0E42 0E45 
090D 0E47 

0E37 0E3D 



093E 0952 097B 09A8 0906 0A04 0A92 OADD 0B17 0BC8 0BF9 0C6E 
0DC6 0DD5 0E24 0E41 



0E44 



0A02 OBOC 0B6F 0BB5 0BE5 0C82 OCAA 

0CF8 

0D9F 0DC4 0DF4 0E07 0E35 

0C57 0E15 



0E1F 0E2C 



0960 098C 09C4 09E9 0A12 0A29 0A36 0A4B OAAC 0AC1 OAFB 0B33 



0889 



OEOB 

0A64 0A82 0C6A 0DF8 



0888 08D8 0AE5 0B21 0B3A 0B4D 0B56 0B92 0B9B OBCF OCOO 0C96 
0D15 0D1E 0D2F 0D31 0D43 0D54 0D56 

0C55 0D3B 



0940 0954 0970 09AA 09D8 OA06 0A94 OADF 0B19 OBCA OBFB 0C6D 

0DA1 0DB7 

0DB9 

0D38 0D5D ODBB 0E01 0E19 0E28 



ODBE 
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MOVE 


0C2F 


OACC 


0B06 


0B1E 


M0VE4 


0C47 


0C3D 






M0VE5 


0C4C 


0C42 






M0VE6 


0C4E 


0C46 






MSGAR 


0D72 


0897 


08E2 


0C8F 


ONE 


0868 


08DC 


091A 


0AC5 


ONECH 


086D 


0A7C 


0A9F 




ONLIN 


080F 


0A61 


0A74 




PACNT 


099B 


0992 


09AC 


09AE 


PAR 


0E54 


0987 






PARK 


0E58 


0990 


09BE 




PCON 


08E0 


0930 


0945 


0959 


PEND 


OFFD 


080B 






PID 


07FF 


0FA9 






PRCUS 


0FA7 


OFFE 






PRDSW 


0860 


0887 


088C 


0C97 


PRINT 


OCAC 


0920 
0CB7 


0939 


0973 


PTRDY 


0C50 


0909 


091E 


0936 






0BB2 


0BE2 


0BF1 


PTRY1 


0C55 


0C6F 






PTRY2 


0C5C 


0C77 






PTRY3 


0C5E 


0C54 






PTRY4 


0C70 


0C51 


0C52 


0C64 


PTRY9 


0C77 


0C68 






PUT 


OCEB 


0CD3 


0CD9 


OCDA 


QLOG 


0D5E 


0BF5 


0C5A 


0C72 


QL0G1 


0D60 


08 E4 


0C91 


0D62 


QL0G2 


0D6E 


0D5F 


0D65 


0D6A 


QLUP 


ODAA 


0DA7 


ODBO 


0DB5 


QLUP1 


0DB3 


0D99 


0D9D 


ODAD 


RAD 


0801 


08F9 






REGIS 


0EE6 


0A49 






RELDV 


0132 


ODFB 


0E39 




REQDV 


0131 


OEOD 






REXIT 


0E17 


OEOF 






RIO 


0800 


08A5 


08F0 


08F1 


ROTA 


0CB9 


096E 


0AA4 


OCCA 


R0TA1 


OCCO 


0CC7 






R0TA2 


0CC8 


OCBA 






RPCNT 


081F 


OACB 


0AE1 


0B05 


RSTWC 


OCFA 


0CD5 






RTABL 


08A9 


086B 


08F7 


08FA 


RTZ 


090F 


08A9 


092F 




RTZZZ 


08FC 


08B9 






RTZ1 


0912 


0915 






RTOA 


0A46 


08B3 






RTOAA 


0A60 


0AA6 






RTOAB 


0A7A 


0A80 






RTOAC 


0A9D 


0AA3 






RTOAD 


0A9B 


0A98 






RTOAI 


0A51 


0A4E 






RTOAJ 


0A5E 


0A5A 






RTOB 


0AA7 


08B4 






RTOC 


OABC 


08B5 






RT0C3 


OACB 


0AE3 


OAEE 




RTOD 


0AF1 


08B6 






RT0D3 . 


0B05 


0B1D 






RT0D4 


0B08 


0B2B 






RTOE 


0B2E 


08B7 






RTOF 


0B64 


08B8 






RT01 


0932 


08AA 






RT01A 


0935 


0944 






RT02 


0947 


08AB I 


3958 




RT03 


095B 


08AC 






RT03A 


096E 


0981 ( 


DA1D I 


DA43 ( 


RT04 


0984 


08AD 






RT04C 


09B7 


09B4 







0BD1 0BD2 0BD3 0BD4 0C02 0C03 0C04 0C05 0C4E 



0D60 0D94 0DA5 ODAA ODAF 0DB3 
OAFF 0B57 0B9C 0C2A 



09B9 



0982 09B5 090D OAOB 0A99 OAEF 0B2C 0B62 OBAA 0DD3 



OCAE 0D42 0D46 

09A0 09CE 09F3 0A6C 0A8A 0AD5 OBOF OBBC 0BE8 0C85 

0948 0971 099E 09CC 09F1 0A6A 0A88 OACF 0B09 0B6A 
0C75 0C7D 0CA8 



0C9C 0CB3 0D22 0D47 0D70 

0096 

0D6C 



08F5 0C12 0D97 



0B1B 0B28 OBAD 0BD7 OBDD 0C07 



RT05 


09BF 


08AE 










RT05A 


09CB 


09DC 










RT06 


09DF 


08AF 










RT06A 


09F0 


OAOA 










RT07 


OAOD 


08B0 










RT07B 


0A19 


0A30 










RT08 


0A1F 


08B1 










RT09 


0A31 


08B2 










RT4I3 


0990 


09BD 










SBANA 


OCFF 


0BF7 


0C61 


0C9E 


0CB5 


ODOA 


SBANQ 


0866 


0D03 


0D05 


ODOE 






SEBIT 


OCCC 


08FC 


0901 


095B 


0962 


0984 






0A14 


0A1F 


0A24 


0A2B 


0A31 






0B2E 


0B64 


OCOD 


0C17 


0C1D 


SEBOT 


0CF1 


OCCD 


OCCE 








SENSD 


0861 


087A 


08DD 


0BF3 


0D2E 


0D53 


SENSO 


085F 


08DB 


0C59 


0C60 


0C9A 


0CB1 


SETIT 


OCOC 


0AC7 


0B01 


0B35 


0B40 


0B77 


SETPA 


0993 


09B1 


09BB 








SETT1 


0C1D 


0C15 










SETT2 


0C22 


0C1C 










SHAN 


OBDC 


0B76 


0B7E 


0B89 


0B8D 


0B91 


SHAN1 


OBDF 


0C09 










SIXTY 


0DF2 


ODDC 










SIX8 


0A45 


0A41 










SIZE 


0813 


0967 


098E 


0A19 


0A3D 


0A4D 


SKAP 


OEFO 


0B67 










SKIM 


0EF8 


0B31 










SLASH 


0875 


0C27 


0C47 








SPAC1 


086F 


094 A 










SPAC2 


0870 












SPAC3 


0871 


0B6C 


0C7F 








SPCC 


OFOE 


0C20 










SPIM 


OFOO 


OABF 


0AF4 








START 


012D 


0DA8 


ODCO 








STARX 


08BA 


08A1 










STAR1 


08C6 


08BE 


08C1 








STAR2 


08CD 


08C5 










STEP 


0876 


0AC6 


0AE9 


OBOO 


0B25 


0B38 


STOLX 


OCDE 


OCFE 










STRES 


OEED 


OAAA 










STRSS 


0EC2 


0AB1 










SWCMP 


0862 


08 EA 


0DD2 








SWO 


0802 


0D9B 


0E1D 


0E2B 


0E31 


0E34 


SW1 


0803 


08 E9 


0DD1 








SW2 


0804 


08BC 










SW3 


0805 












TERM 


080A 


098A 


09AD 


0A60 


0A66 


0BB8 


WACNT 


0821 


0C56 


0C66 


0D17 


0026 


0D3C 


WCCA 


0E86 












WCCB 


0E87 


0A27 










WCCOR 


0E7E 


0A10 


0A22 








WRITE 


085C 


08 D9 
OCBO 


091B 


09 1C 


0925 


0928 


WRSK1 


0873 


0B71 


0BA3 








WRSP1 


0872 


OAFD 










XFDSW 


085E 


087F 


0884 


0C98 


OCAF 


0D1D 


END OF 


ASSEMBLY 
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